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This Library Memo announces the release and availability of Updating Package B to “SPERRY UNIVAC Operating 
System/3 (OS/3) Assembler User Guide’, UP-8913. 


This update provides the 8.0 release enhancements to OS/3 Assembler. The enhancements include: 
a The addition of two privileged instructions (Put IORB, Get jORB) 
a An additional UPSI byte setting for diagnostic errors 


a The addition of STXIT island code (providing the capability to continue job streams when program checks 
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a An additional warning message when using continuation characters with macroinstructions (a comma after the 
last operand is checked) 
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This Library Memo announces the release and availability of Updating Package A to “SPERRY UNIVAC Operating 
System/3 (OS/3) Assembler User Guide’, UP-8913. 


This update discusses assembler features that are new to release 7.1. These features include: 
a Added instructions: IPL and SWLS 
. A new option for the ASM listing parameter: LST=NR 


a ASM, ASML, and ASMLG jproc enhancements to accept cataloged files for input, output, macro library, 
COPY source code library, and alternate load library files. 


The following instructions were deleted: ENQ, DEQ, STEP, and MSS. 


& All other changes are corrections to, or clarifications of, material applicable prior to release 7.1. 


Copies of Updating Package A are now available for requisitioning. Either the updating package only or the complete 
manual with the updating package may be requisitioned by your local Sperry Univac representative. To receive only 
the updating package, order UP-8913-A. To receive the complete manual, order UP-8913. 





Site eS ss ae ae ae 


Mailing Lists Mailing Lists DE, GZ, HA, 28U and 29U «Library Memo for 


& BZ, CZ (less DE, (Package A to UP-8913, | UP-8913 
GZ and HA) and i 83 pages plus Memo) 
MZ i 





September, 1981 


i 
| 
i 


UDT-2h1 Rev. 273 





UDI-2S7 Rew. 





B73 





This Library Memo announces the release and availability of ‘“SPERRY UNIvAc® Operating System/3 (OS/3) 
Assembler User Guide’, UP-8913. 
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usage, and assembler output. 


Additional copies may be ordered by your local Sperry Univac representative. 


Mailing Lists 
BZ,CZ (less DE,GZ and 
HA) and MZ 


Mailing Lists DE, GZ, HA, 28U and 29U 
(Covers and 886 pages) 






| 
[RELEASE DATE: 


i 
i 
j 
i 


Assembler 


User Guide 





Operating System/3 (OS/3) | 


Library Memo 


October, 1980 











@ 


Assembler 





Environment: System 80 


SPERYS UNIVAC 


UP-8913 








This document contains the latest information available at the time of preparation. 

Therefore, it may contain descriptions of functions not implemented at manual distribution 

time. To ensure that you have the latest information regarding levels of implementation 

and functional availability, please consult the appropriate release documentation or contact & 
your local Sperry Univac representative. 


Sperry Univac reserves the right to modify or revise the content of this document. No 
contractual obligation by Sperry Univac regarding level, scope, or timing of functional 
implementation is either expressed or implied in this document. It is further understood 
that in consideration of the receipt or purchase of this document, the recipient or 
purchaser agrees not to reproduce or copy it by any means whatsoever, nor to permit such 
action by others, for any purpose without prior written permission from Sperry Univac. 


Sperry Univac is a division of the Sperry Corporation. 


FASTRAND, SPERRY UNIVAC, UNISCOPE, UNISERVO, and UNIVAC are registered 
trademarks of the Sperry Corporation. ESCORT, PAGEWRITER, PIXIE, and UNIS are 
additional trademarks of the Sperry Corporation. 


This document was prepared by Systems Publications using the SPERRY UNIVAC UTS 400 
Text Editor. It was printed and distributed by the Customer Information Distribution Center 
(CIDC), 555 Henderson Rd., King of Prussia, Pa., 19406. 





©1980 — SPERRY CORPORATION PRINTED IN U.S.A. 











UP-8913 


SPERRY UNIVAC 0S/3 PSS 1 
ASSEMBLER Update C 
@ | 





PAGE STATUS SUMMARY 


= 
ISSUE: Update C — UP-8913 
RELEASE LEVEL: 8.2 Forward 
. Page 
| Part/Section Number 
| Cover /Disciamer 
{ 
pss 1 thru 3 
iPreface 1 
! 2 
i 3 
Contents 1 thru 3 
4 
| 5 thru 7 
8 thry 11 
| : 12 thru 14 
| 15 thru 18 
PART 1 
| Title Page 
1 1 thr 11 
12 1,2 
@ 13 3 thu § 
y 14 thru 20 
ore 19 
i zz a 1 thru 10 
: 24 
3 1 thr 3 
34 
4 1 
2 40 
3 thru 9 41 
10 42 
11 thes 13 43 
14 44 
15 thru 20 45, 46 
47 
[PART 2 
Title Page 50 
1 § 12 55 
3 
, 4 thru 10 73 
| 11,12 74, 
| 13.thru 18 76 
. ‘9 77 
; 78 
, 6 . th 3 79 
H 4 80 
PART 3 83 
Tinie Page 84 thru 87 





88 
89, 90 


RBRISSSVSRTsERs2 SSS 


NNN NNO HHH H 
PWN - OWOAN HD uw 





4 "Te 1ee"71cal changes are denoted by an arrow f=) in the ma-gin. A downward pointing arrow (vj next tc a line indicates that 







"2a cnhaqges Dea:n at this line and continue until an upward po7ung arrow (ft ) is found. A horizontai arrow fue} pointing to a line 





UP-8913 : SPERRY UNIVAC OS/3 ; PSS 2 
ASSEMBLER. Update C 





PAGE STATUS SUMMARY 


ISSUE: Update C — UP-8913 
RELEASE LEVEL: 8.2 Forward 


. Page Update 
Part/Section Number Lavell 
100, 101 
102 
103 
104, 105 
106 
107 thru 111 
12 
113 
114, 115 
116 thru 118 
119 
120 thru 131 


Orig. 
c 
Orig. 
c 
Orig. 
c 
Orig. 
Cc 
Orig. 
c 
Orig. 
c 
Orig. 
Cc 

c 
Orig. 
c 
Orig. 
Orig. 
B 
Orig. 
a. = 
c 

B 
Orig. 
B 
Orig. 
c 
Orig. 
c 
Orig. 
c 
Orig. 
c 
Orig. 
B 
Orig. 


60 
61 
62 
63 
64 


oon 
2. 
a 


> Or? 


68 


73 

74 

75 

76 thru 81 
82 

83, 84 
85, 86 

87 


Oe > Om > > oo 





All the tecnnical changes are denoted by an arrow (==) in the margi- A downward pointing arrow (3) nex: to a line indicates that 
technical caanges begin at this line and continue until an upward pointic 3 arrow (t ) is found. A horizontal arrow f=) pointing to a line 
indicates a :echmcal change in only that ine. A horizontal arrow locaied setween two consecutive lines indicates technical changes in both 





UP-8913 — SPERRY UNIVAC OS/3 PSS 3 
ASSEMBLER Update C 





PAGE STATUS SUMMARY 


7 ISSUE: Update C — UP-8913 
RELEASE LEVEL: 8.2 Forward 


Page 
Number 


Past/Section 


User Comment 
Sheet 








Al the tecnn:cal cnanzges are denoted by an arrow (=) in the margin. A downward pointing arrow {<) next to a line indicates that 
lecnnicai changes beg7 at this line and continue until an upward pointing arrow (ft) is found. A honzontal arrow } pointing to a line 
maicates @ tecnnical cuange in ently that line. A horizontal arrow located between two consecutive lines indicates technical changes in both 
4 , tent 




















UP-8913 SPERRY UNIVAC 0S/3 Preface 1 


ASSEMBLER 





Preface 


This manual is one of a series designed to instruct and guide the programmer in the 
use of the SPERRY UNIVAC Operating System/3 (OS/3). This manual specifically 
describes the OS/3 assembler and its effective use. Its intended audience is the 
novice programmer with a basic knowledge of data processing, but with limited 
programming experience, and the assembler programmer whose experience is limited 
to systems other than Sperry Univac. 


Two other manuals are available that cover OS/3 assembler; one is an introductory 
manual and the other is a programmer reference. The introductory manual briefly 
describes OS/3 assembler and its facilities. The programmer reference provides the 
characteristics of OS/3 assembler in skeletal form and is intended as a quick- 
reference document for the programmer experienced in the use of OS/3 assembler. 


This user guide is divided into the following parts: 
m= PART 1. BASIC DATA AND CONVENTIONS 


Introduces you to what basic assembly language (BAL) is, how the computer 
stores information (data), how to locate the data required, and what forms 
mathematic notations assume in computer manipulations. The genera! rules that a 
programmer must understand to solve simple BAL problems are stated in this 
part. Where the content may seem out of context to the more experienced user, 
he can find such material repeated in greater detail in the following parts of this 
manual. As the manual progresses, the problems and examples become 
increasingly complex. 


m PART 2. STORAGE AND SYMBOL DEFINITIONS 


Describes and illustrates the use of storage assignments, the constants, and the 
rules for symbol designations. 


= PART 3. BAL APPLICATION INSTRUCTIONS 


Presents the explicit and implicit formats for all the assembly language application 
instructions, the rules of their use and illustrative examples. 
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m PART 4. BAL DIRECTIVES 





Describes and illustrates the use of all the assembler control directives. 
a PART 5. BAL MACROS 


Explains the macro facility for writing and using this time-saving feature of the 
assembler. 


= PART 6. ASSEMBLY LISTING 


Describes what an assembly listing is, what it means, and how it is of use to 
the programmer. 


=» PART 7. PROGRAMMING TECHNIQUES 
A series of programming techniques are presented in this part. 
= PART 8. APPENDIXES 


The appendixes contain figures and tables for use in explaining the text and for 
general programmer reference. 


Each of the foregoing parts consists of one or more sections that cover the different 
aspects of the subject matter covered in each part. 





Other current OS/3 publications for the System 80 system, referenced in this manual, will 
be necessary or useful to the programmer working with the assembler. 


Document name and number Description 


General editor user guide/programmer Describes the general editor 
reference, UP-8828 


System services program user guide, Describes the librarian and linkage editor 
UP-8841 
Consolidated data management concepts Presents an overview of data management 


and facilities user guide, UP-8825 


Consolidated data management macro- Describes the data management 
instructions user guide/programmer macroinstructions 
reference, UP-8826 


Supervisor concepts and facilities Presents an overview of the supervisor 
user guide, UP-8831 


user guide/programmer reference, 


Supervisor macroinstructions Describes the supervisor macroinstructions © 
UP-8832 
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Document name and number 
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Processor programmer reference, 
UP-8881 


System hardware and software 
summary, UP-8868 


Interactive job control user 
guide, UP-8822 


Workstation user guide, UP-8845 


Assembler programmer reference, 
UP-8914 


Description 


Describes the processor 


Presents an overview of the system 
hardware and software 


Describes interactive job control 


Describes the OS/3 workstation 


Describes the assembler 
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1. Introduction to Assembler 
Language Programming 


1.1. CODING AN ASSEMBLER PROGRAM 


An assembler language program goes through several translations from the time it is hand 
coded by a programmer until it is actually inside the computer and operating. (See Figure 
1—1.) The first change is the conversion of code decipherable by people, source code 
written in basic assembler language (BAL), to data capable of being processed by a 
computer. Although an assembler source program can reside on several types of storage 
media, diskette and punched card are the two types used by the BAL programmer 
operating in a System 80 environment. The source code recorded on either of these media 
types is in card image format. Therefore, the guidelines for generating your BAL program 
on diskette are the same as those used for preparing punched cards. Because of this 
similarity, the descriptions provided in this section are discussed from the standpoint of 
card images. 


While source code is entered onto cards by a card punch, it is recorded onto diskette 
by either of two methods, both of which involve keyboard entry. One method allows 
you to prepare the diskette offline by use of the SPERRY UNIVAC Universal 
Distributed System 2000 (UDS 2000). Basically, you perform the same functions on 
the UDS 2000 that you would from a card punch except the card images generated 
from the keyins are recorded on diskette. The second method for recording card 
images onto diskette is through the use of the system console (or workstation 
keyboard) and the general! editor, information for which is presented in the general 
editor user guide/programmer reference. In addition to diskette, the general editor can 
output source code to disk. 
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Figure 1—1. Writing and Submitting a Program 


The coded entries in a card image are converted on a column-by-column basis to data 
that can be processed by the computer. Each column represents a single unit of 
information. Figure 1—2 shows a blank card image. From this figure, you can see 
that it has 80 vertical columns. Each column has 12 vertical positions called rows 
(rows are numbered O through 9, 11, and 12 which appear at the top portion of the 
format preceding row O). 
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Figure 1—2. Card Image 


Different entry configurations in a column represent different characters and numbers. 
For instance, each decimal number (O through 9) is represented by a _ respective 
position in the card image. If an entry is made only in row O of a column, then the 
image for that column is interpreted as the value zero. Likewise, if an entry is made 
only in row 1 of a column, then the image for that column is interpreted as the 
value 1, and so on through row 9. Everything you code in assembly language is 
based on the 80-column card image. 


The card images that make up an assembler language program are entered from code 
that is handwritten on an assembler coding form. (The Sperry Univac assembler 
coding form is shown in Figure 1—3.) Each line on the assembler coding form has 80 
positions that correspond to the 80 columns of the card image. One card image is 
entered for every line of code on the assembler coding form (Figure 1—4). The lines 
of code on the assembler coding form and the card images entered from the form are 
called source code lines. Collectively, these source lines make a source program. 


A BAL source program is written with instructions, directives, conditional statements, 
and macros. They are the elements of the assembler language and each is usually 
written on one source line. (Sometimes it may take more than one source line to 
write a single element, but most of the time it takes only one source line for one 
instruction, directive, statement, or macro.) The assembler ignores the presence of any 
blank card images in the source code. A blank line will not be printed nor terminate 
a sequence of continuation lines. The rules for coding assembler language source 
lines are reflected on the assembler coding form. Each source line has five fields 
and the assembler expects specific information to be coded in each field. 
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Figure 1—4. Coding Form and Card Image Relationship 


1.1.1. Operation Field 


The easiest part of an assembler source code line to recognize is the operation field; 
it begins in column 10 and ends in column 14 of the card image. The operation field 
is the most restrictive field on the coding form because you must use an established 
operation code. You cannot arbitrarily assign a name of your own. The operation code 
you use is a mnemonic code that relates to some function. For example, A is for add, 
D is for divide, and S is for subtract. The mnemonic code must be written exactly as 
the instruction, directive, or statement indicates. For example, A (not AD) causes the 
add operation to be performed. If you put AD in the operation field, the assembler 
could not relate it to any of the assembler functions, so this would cause an error. 
Each mnemonic code for instructions, directives, statements, or macros is listed with 
the description of that function. The rules for using the operation field are: 


@ 1. The operation code must not contain embedded blanks. 


2. The operation code must be written exactly as shown in the list of mnemonics 
for instructions, directives, and procs, or macroinstructions. 
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3. The operation field must be terminated by a blank. 


4. The operation code must not start in column 1. 








Examples: 
LABEL AOPERAT IONA OPE RAND 
1 10 16 
1.] MOVEPAY MVC YEARPAY , WORK 
2.| MOVEPAY MVC YEAR,WORK 
3. EQJ 
h, ENJOB 
5. START 6 
6. START @ 
7. USINC *,6 
8. USING *,6 
1. Valid 
2. Invalid because there are embedded blanks in the operation code MVC 
3. Valid 
4. Invalid because there is no such mnemonic as ENJOB 
5. Valid 
6. Invalid because the operation code START is not followed by a blank 
7. Valid 
8. Invalid because the operation code starts in column 1 


1.1.2. Operand Field 


The operand field is the object of the operation code. The operand field begins in 
column 16 and ends in column 71. The operand field holds the data or the location 
of data that is being operated on. Each item of data in the operand field is an 
operand, and operands are separated by commas. For instructions, operands can be 
actual data — like the decimal number 10, the name of an area where data is stored 
— like STORAREA, or the actual address specifying the number of bytes the 
assembler must count to get to the data — like 1108(32). Operands for instructions, 
directives, statements, or macros are whatever parameters are required by the 
particular operation that is being done. For instance, an add immediate instruction has 
two operands. The first operand is a main storage location, and the second operand is 
a byte of actual data. An add immediate instruction adds the second operand to 
whatever data is located at the first operand’s address. 


Al STORAREA, 16 


The add operation in this example is performed on the actual data, 10, and on 
whatever data is located at an area named STORAREA. 
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The rules for using the operand field are: 
1. The operand field is terminated by a blank that is not enclosed by an apostrophe. 


2. Operands may be continued onto the next line by placing a nonblank character in 
column 72. Up to two continuation lines are permitted. Caution should be 
exercised when using a nonblank character in column 72. As shown in the 
OUTRIB RIB example (1.1.7), a comma must follow the last operand on the 
continued statement if there are more operands to follow; otherwise, the 
operands that follow will be treated as comments. 


3. Column 16 is where a continuation line starts. 





Examples: 
LABEL AOPERATIONA OPERAND 
| 10 16 72 
1.| NAME DC CLO'REBEW R D' NAME IN 9 BYTES 
2.1 NAME DC CLO'REBEW R D'NAME IN 9 BYTES 
3. ENTRY [LE ,AYAHC NAD,NAHS ,WNS ,WBE ,OREG, x 
DNOMYAR ,N4543N11 ,CONST32, EQUITY ,WMC , X 
WDR , WRD32 , SGAW 
1. Valid 


2. Invalid because the operand field is not terminated by a blank 
3. Invalid because the line has an embedded blank 


1.1.3. Label Field 


As we mentioned, the operand field can contain data or the name of an area where 
data is stored. You assign a name to an area in your program by coding a symbolic 
name in the label field of the area to be accessed. Once a source line is given a 
label, it can be referenced from any other location in the source program. For 
example, | can name a line of code and use its name in the operand field of an 
instruction. 





1.{ ROUTINE Al STORAREA, 19 


2. B ROUT INE 


In this example, | labeled an add instruction: ROUTINE. Then, tater in my program, | 
used the symbol ROUTINE to refer to that line of code. On line 2, | said, “Branch to 
the area called ROUTINE, where the add instruction is located.” 








a 
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A symbol in the label field of a line of code can also be used as an operand to 
reference data. For example, | can write a line of code to define a constant. 





LABEL AOPERATIONA OPERAND 
] 10 16 
TEN oc H' 1g! 


This line of code says, ‘Place the number 10 in the location named TEN.” Once the 
symbol TEN is defined, it cars be used as an operand to represent the value 10. 


Al TEN,6 
In this line of coding, I’m requesting that 6 be added to whatever data is stored at 
location TEN. When you label data as | labeled the data (10), you are associating a 
symbol with a value. That symbol can then be used in place of the value. 
The rules for using the label field are: 


1. The symbol must start in column 1. 


2. The symbol must begin with an alphabetic character or special letter. 





3. The symbol must not exceed eight characters in length. 

4. The symbol must not contain embedded blanks or other special characters. 
5. The field must be terminated by a blank. 

Examples: 


LABEL AOPERATIONA OPERAND 
| 10 20 





BEGIN 
BEGIN 
WEEKS 52 
52WEEKS 
EMPLOYEE 
EMPLOYEENO 
BLANKNO 
BLANK NO 
MOVEPAYMVCYEARPAY , WORK 


Won nu Sewn — 











UP-8913 SPERRY UNIVAC OS/3 1-9 


a a ee 
1. Valid 
2. Invalid because the symbol does not start in column 1 
3. Valid 
4. Invalid because the symbol starts with a number 
5. Valid 
6. Invalid because the symbol is longer than eight characters 
7. Valid 
8. Invalid because the symbol contains an embedded blank 
9. Invalid because the symbol MOVEPAY is not followed by a blank (There must 


also be a blank after the operation code MVC.) 


The three fields just discussed are essential for designing an executable BAL program. The 
remaining two fields, the comment and sequence fields, don’t play a role in the actual 
design of a program but they are useful programming aids. The comment field is a program 
documentation aid and the sequence field is a program maintenance aid. Program 
documentation is as important to the programmer writing the program as it is to those who 
must refer to it later. Operand specification is usually completed by column 40, thus leaving 
columns 41 through 71 free for comments. 


1.1.4. Comments Field 
There are two ways to code comments: 


1. Comments can be coded on the same line as an instruction, statement, or 
directive. There must be at least one blank between the end of the operand 
specification and the start of comments. If your comments exceed one source 
line, place a nonblank character in column 72 and continue the remaining 
comments on the next source line (at column 16). 


Examples: 
LABEL AOPERAT 1ONA OPERAND ACOMMENTS 
1 10 16 72 
OPEN CARDFLE, (PRINT) OPEN FILES 
BALR 14,HDRTN GO TO HEADING ROUTINE 
READCARD DMINP CARDFLE , CARWORK READ A CARD INTO WORKAREA 
MVI PRINTOUT,C' ! CLEAR PRINT AREA 
MVC PRINTOUT+1 (131) ,PRINTOUT 
CLC NUMBERIN(5) ,CUSTNO 1S THE CUSTOMER NUMBER DI FFERENX 


T THAN THE PREVIOUS NUMBER 
BNE NEWCUST 


Ne 
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2. Comments can be coded on a separate line. This is done by placing an asterisk 
(*) in column 1 of a source line. Then your comments can be coded. If your 
comments exceed one full source line, place another asterisk in column 1 of the 
next source line and continue coding the remaining comments. Note that a 
nonblank character is not coded in column 72 for continuation when an asterisk 
is coded in column 1 of the next source line. However, if your comments exceed 
one full source line, you can code a nonblank character in column 72 if you 
continue the remaining comments on the next source line starting in column 16. 
An asterisk must not be coded in column 1. 





Example: 
LABEL AOPERATIONA OPERAND 
| 10 16 

BALR 4g 

USING *,4 

OPEN CARDSIN, (CARDRIB) 


* THIS PROGRAM PREPARES AN ACCOUNTS RECEIVABLE REPORT USING CARD INPUT 
* AND PRINTER OUTPUT 


During assembly, comments are printed but do not affect the resulting object code. 
The purpose of comments is to make the program listing easier to follow and can 
also highlight certain portions of the program. 





1.1.5. Sequence Numbers 


Columns 73 through 80 may be used for entering sequence numbers. This is done by 
assigning consecutive numbers to each line of coding and is useful for reassembling 
the card deck, if it should be dropped. It is good practice to number the lines in 
multiples of 10, or even 100. This allows you to insert additional coding lines without 
having to renumber the cards when they have been keypunched prior to the 
modification. Some programmers use letters in addition to the numbers. This is useful 
in identifying the deck from which cards have come if they have been removed for 
any reason. Sequence numbers also are important in maintaining a source module. A 
copy of your source module may be stored on tape, disk, or diskette and the OS/3 
librarian can update and correct the source module by using the sequence numbers. 
(See the system service programs (SSP) user guide.) 
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1.1.6. Column 72 


Another coding feature on the assembler coding form is column 72. This column 
separates the sequence field from the rest of the source line and is normally blank 
unless you have to continue an operand field to the next source line. If an operand 
specification is too lengthy to fit into the columns provided on a single line, the field 
may be continued onto the next line. An operand field can be continued by coding 
any nonblank character in column 72 and then continuing the operands on the next 
line starting in column 16. It is best to avoid using the comma as a continuation | 
character when the comma is being used to separate the operand fields. However, it 
can be used as a continuation character when it is being used to separate operands. 
If you have coded up to column 72 and the next character you have to code is a 
comma separating operands, that comma must appear in column 16 of the next line 
after you code a nonblank character in column 72 (even another comma may be 
used). 


1.1.7. Additional Coding Rules 


The operand fields of an _ instruction, directive, or conditional statement must 
completely fill all available space on a source line, starting with the first operand 
specified up to and including column 71. Then a nonblank character can be placed in 
column 72 and the remainder of the operand field can be continued onto the next 
source line (column 16). These operand fields in an instruction or directive can be 
continued for only two additional lines. 





Example: 
LABEL AOPERAT IONA OPERAND 
1 10 16 72 
TITLE DC C'UNITED STATES GOVERNMENT PRINTING OFFICE STYLE MANUALSX 
(ABRIDGED) ! 
ENTRY 11234567,J1234567,K1234567,L1234567,M1234567 ,.N1234567 ,O1X 
234567 


The operand fields of macros and procs can be coded in two different ways: 


1. The operand fields can be coded in the same manner as instructions, directives, 
or conditional statements, in which case they must completely fill all available 
space on a source line, starting with the first operand specified up to and 
including column 71. Then a nonblank character can be placed in column 72 and 
the remainder of the operand field can be continued onto the next source line 
(column 16). 
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2. The operand fields can be coded to leave space between the last operand specified on 
that line and the nonblank character in column 72. A comma must be placed 
immediately following the last operand on that line, thereby separating it from the 
following operand field on the next source line. However, if you omit the comma 
immediately following the last operand on that line, and at least one blank exists 
between the last operand and the nonblank character in column 72, a warning 
message is issued by the assembler. 


The operand fields in a macro or proc can be continued for as many lines as 
necessary. 





Examples: 

LABEL AOPERATIONA OPERAND 

] 10 16 72 

OUTRIB RIB 10A1=OUTBUF , RCFM=VARBLK, VARBLD=(13) , lORG=(12) , TYPEFLE=OUX 
TPUT,FILABL=STD 

OUTRIB RIB 1OA1=OUTBUF , X 
RCFM=VARBLK, X 
VARBLD=(13) , X 
1ORG=(12), X 
TYPEFLE=OUTPUT, X 
FILABL=STD 


It is wise to develop good coding habits from the start. A neatly coded program is 
easy to enter, debug, and interpret. Figure 1—5 is an example of such a program. 
This example program follows the format of the coding form, has plenty of comments, 
and uses sequence numbers. Don't fall into the bad habit of jotting down instructions 
and assembling them just to see if your ideas have any substance. It is much better 
to sit down and evaluate the problem. First flowchart your program, and then code it 
on the coding form, using plenty of comments and sequence numbers for lengthy 
programs. 
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LABEL AOQPERATIONA 
] 10 16 


OPERAND - ACOMMENTS 


1-13 
Update BC 


72 80 


aS pe ent 


TITLE "FIRST PROBLEM: PROGRAM! 








START 
BALR 
USING 


MOVEPAY 


WORKAREA 
BONUS 
WEEKS 
YEARRATE 
OUTPUT 
EMPLOYEE 
NAME 
WORKNO 
YEARPAY 
WEEKPAY 
cG 


g 

6,6 

*,6 

WORKAREA, BONUS 
WORKAREA , WEEKS 
WORKAREA, YEARRATE 
YEARPAY ,WORKAREA+2 
WORKAREA, WEEKS 
WEEKPAY , WORKAREA+] 


OUTPUT (29) , EMPLOYEE 


CL6 

PL2'S86' 
PL2'52! 
PL4'1366606' 
23C'A! 

GCL23 
CL9'REBEWARAD! 
C'AI234! 
PLE'g! 
PL3'@! 
c'AAa! 

BEGIN 


ENTERS BONUS RATE INTO WORKAREA 


MULT BONUS BY 52 WEEKS 

ADD BONUS TO YEARLY RATE 

MOVE TOTAL YEARLY PAY 

DIVIDE TOTAL PAY BY 52 WEEKS 
MOVE WEEKLY PAY,HOURLY RATE !S 
NOT CALCULATED IN THIS PROGRAM 
COMPLETE RECORD MOVED 

END OF JOB 

RESERVE 6 BYTES OF STORAGE 
PACKED VALUE OF 586 IN 2 BYTES 
PACKED VALUE OF 52 IN 2 BYTES 
PACKED 1360066 IN 4 BYTES 

23 BYTES OF BLANKS 

SYMBOL FOR NEXT 23 BYTES 
REBEWARAD IN 9 BYTES 

Al234 IN 5 BYTES 

4 BYTES OF PACK ZEROS 

3 BYTES OF PACKED ZEROS 

3 BYTES OF BLANKS 

END OF THE PROGRAM 





Figure 1—5. Example of Proper Coding Techniques 


DARGH1 96 
DARGS208 
DARGO368 
DAROB4 69 
DARB6566 
DAR#6669 
DAR#6766 
DARBS8 86 
DARO6968 
DARG 1666 
DARS1 188 
DARB129¢ 
DARD] 368 
DARGI 466 
DARB1 566 
DAROI 699 
DAROI 768 
DAROI 869 
DARO1969 
DARS2909 
DAR#2166 
DAR#2268 
DAR62366 
DARB2466 
DAR#2586 


You can, if you wish, code your assembler program in a free-form manner. The 
Operation, operand, and comments fields don’t always have to start in column 10, 
column 16, and column 41. These columns are shown on the coding form as 
preferred starting positions for each field to promote formalized coding practices. One 
unbreakable rule is that label field must always start in column 1. Each field after the 
label field must be separated by at least one blank. So, if you only have a 3-character 
label, the operation field can be coded starting in column 5 instead of column 10. 
Also note that the label, operation, and operand fields must all be keypunched on the 
same card. Another restriction is that the sequence numbers must always appear in 
columns 73 through 80. Some examples of free-form coding are as follows: 





LABEL AOPERATIONA OPERAND 

1 10 16 72 80 

TAG START @ DARBD1 68 
BEGIN BALR 6,8 DAR6H266 
USING *,6 DARGH308 
ZAP WORKAREA,BONUS ENTERS BONUS RATE INTO WORKAREA DARGHAGS 
MP WORKAREA,WEEKS, MULT BONUS BY 52 WEEKS DAR@D56B 
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As you can see, the free-form style of coding is much more difficult to interpret than 
the formalized style. 





Another option is available, if the location of the fields on the supplied coding form 
doesn’t suit your particular application. The assembler coding form can be changed by 
using the ICTL directive (21.1). By using this directive, you can change the location of 
the beginning, ending, or continuation column. 


After a BAL source program is coded, it must first be assembled (and also linked) 
before the program can be executed by the computer. These two functions are 
separate operations and therefore they happen at different times under control of two 
different computer elements. At assembly time, the assembler translates the source 
program to machine code instructions, and at execution time, the hardware processor 
performs the machine code instructions. Although you can interpret a source program 
as if it can actually execute, the hardware processor is incapable of actually executing 
this source program. 


1.2. ASSEMBLING A PROGRAM 


Before source code can be executed by a computer, it must be converted to machine 
code. A BAL source program is converted by an assembler, and a_ higher-level 
language, like COBOL or FORTRAN, is converted by a compiler. Whether a source 
program is assembled or compiled, the output is always the same. An assembler or 
compiler produces an object program (machine code): 














ASSEMBLER 
OR 
COMPILER 






OBJECT PROGRAM 





SOURCE PROGRAM 


The object program is a binary program that can actuate the electronic logic circuits 
in the hardware processor to perform specific functions like add, subtract, or divide. 
Any computer program must be in binary form before it can be stored in the 
computer and executed by the processor. 


Though an assembler or compiler can produce an object program, each operates 
differently. Figure 1—6 shows five source lines from a COBOL program, and Figure 
1—7 shows the object source code generated from the original COBOL source lines. 
As you can see from Figure 1—7, a single compiler source line produces several 
object code instructions. This is not true of assembler source lines (excluding 
macroinstructions); each line is converted to object code on a one-for-one basis. The 
object code shown in Figure 1—7 is in hexadecimal as is any object code shown in 
printout form. This is because hexadecimal is easier to read and binary would take up 
too much room on a printout. 
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(INF toe Sra. SoURCF STATEMENT 1DENe 


nooBA AN4019 PROCEDURE NIVISTANs PROGO! 
0069 nO4O20 INITIALIZE, PRoGO! 
nonen no4wo2t OPEN INPUT CNSe PRoGOl 
none) 704022 OPEN SuTPUT NESFIL,. LISTe PROGO! 


aong2 n04023 MOVE SpaCeS rO OUT, PRaoGOt 





Figure 1—6. COBOL Source Code 


aASEsO1SpL ANDRESS CONTENTS OF MEMORY OPERAND AnoReSSFS aPCNOE COMMENTS 
9n0938 Inrvracize PARAGRAPH WEADER 


n0938 $8 10 A nae NnnlEs OPEN 
Anov3c S88 FO A NFO Onoloes 
Onae4o oS EF 


Orog42 4110 a Onnooe 


On0946 58 FO OnooFc BAL COBOL 
Nnoe4A oS FF 
Onoeac 0042 SOURCE SOURCE 


OPERATION : STATEMENT 


INO94E $8 10 a. nandEc 
Onn952 SA FO onnioa CODES NAMES 
9n0956 OS €F 

0n0958 90 77 nanvco 


Nonesc 92 40 OBJECT 
Ann%60 02 82 CODE 





Figure 1—7. Object Code Generated from COBOL Source Code 


The assembler converts each source instruction directly to a line of object code. 
Figure 1—8 shows a listing of an assembler program. The source code that was 
submitted to the assembler is shown at the right of the listing, and the object code 
generated by the assembler is shown at the left of the listing. Figure 1—8 has a 
BALR assembler instruction in the second source line that uses register 6 in operand 
1 and register O in operand 2. As you can see, in the object code part of this listing, 
the assembler has converted the BALR source instruction to 0560,,¢. The 05,¢ is the 
machine code for a branch and link instruction; when the processor reads an 054g, it 
will perform the BALR instruction. For a listing of the machine codes for all 
instruction opcodes, see Table E—1. The register numbers for the BALR source 
instruction are in the second half of the object instruction. 


Very rarely will high-level language programmers read object code. Their concern is 
mostly with the language and the compiler. While assembler language programmers 
not only have the assembler and the assembler language to contend with, they also, 
if not just by sheer exposure, have to tolerate reading object code. This is because 
the assembler is really only one language step from the hardware processor. The only 
programming language left after assembler language is the nonsymbolic machine 
language. Although assembler language is closely related to the processor, it is still a 
symbolic programming language. 


LOC. 


9ocooo 
cocudu 
oucud2 
Gucue2 
cocuds 
caocooc 
oocul2 
Cucole 
cuculc 
fuCu22 
Cucu2s 
CGCO2E 
cGcu34 
OUCU3A 
Oudu3e 


oocus4 
eoco4a 
ouco4s 
oucas9 
gocusc 
aaco4so 
cocuseG 
cucas2 
cucu54 
COCUSA 


Nuecase 
cucose 
egto62 
Coll66 
OOCQ6A 


OUQG6E 
COCU6E 
oudu7u 
cuco71 
oucUu72 
oo0o74 
coca76 
Ou0uU76 
gacu7e 


auco7s 
aocu78 
agocu7c 


Ouau7E 
Cucu7e 





OBJECT CODE 


gseo 


4100 
F263 
F212 
F272 
4F49 
FC6l1 
FA6] 
D1u0 
0205 
F 86S 
4649 
F346 


4519 


60F6 
6UCA 
6005 
66DE 
6uDE 
6aCA 
6UCA 
6uUCF 
60EB 
60CA 
6uUlA 
6uF1 


6U4E 


ADOR1 


OOOBC 
ouecs 


ADOR2 


00F8 
Ou0D3 
socb9 
OuogESs 
OCOEO 
Nono7 
NGOEB 
ou002 
ouocc 
Oueeo 
oudic 
9v0CcCc 


Ou0s0 


rP pr PrP rp bm 


rrProOTmWdawweny, Yr bP PP bP 


od 


SOURCE STATEMENT 


IFSAVE 
BEGIN 


START 
BALR 
USING 
LA 
PACK 
PACK 
PACK 
CvB 
MP 

AP 
MVN 
MVC 
ZAP 
BCT 
uUNPK 
OPEN 
CNOP 
BAL 
tc 

oc 

oc 

oc 
svc 
CNOP 
MVC 
oI 
coMOUT 
bC 


re 

65u 

956 

13,SAVE 

PRINP »PRINZ 

INTERP,INTERZ 

TIMEP ,TIMEZ 

4,TIMEP 

PRINP ,INTERP 

PRINP ,ROUNDEC 

PRINP+5(1) .PRINP+6 

AREA, PRINP 

FRINP ,AREA 

4,AGAIN 

ANSWER,PRINP 

GUT,{OUTRIB) 

G,4 

1,¥412 

x*ar* 

AL3(0UT) 

x*an* 

aL 3(COUTRIB) 

38 ISSUE SVC 

G4 

BUF (9 } ANSWER 

bUF+8,X*FQ* 

OUT,BUF 

uY¥th) * SET ALIGNMENT 
1,=A(O0UT) LOAD R1S, CDI& ADDRESS 
u,=A( BUF) & LOAD RNS, WORKAREA ADDRESS 
201),X%20° * SET FUNCTION CODE 
3¢1),0 * SET FUNCTION CONTROL BYTE 1 
47 

oH 

239 

YL1¢16) 

YLi¢47) 

25 

u 

28 

¥-2 

133 

OUT 

cya) 

1,=ACOUT) LOAD R1 WITH FILENAME ADDRESS 
39 ISSUE SVC 


cH 
26 


ouT 


Figure 1—8. Assembly Listing 
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Pa000960 
Pa001150 
P9001160 
Pu0d1170 
Pa001180 
Pe001190 
Pa0u217G 


Pulonesu 
Pa100710 
PslQ0740 
Palun89a 
Puludaol 
Palug920 
Ps$an810 
PsSO1380 
P$s01390 
P$SU1395 
P$S01590 
PssoleSo 
P$S01660 


Psoon28o 
Ps002020 
Ps002036 


Eovo0050 
EoJvuou7o 











EL68-dN 


Ya TEWASSV 
€/SO IVAINN Add3dS 


9L-1L 
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The symbolic language for the assembler has two basic types of operation codes. Those 
that are translated directly to machine codes and those that are not. The mnemonic codes 
that aren't translated to machine codes are processed only at assembly time and do not 
become part of the object program. Nonmachine code mnemonics are used to direct the 
assembler when building an object program, while machine code mnemonics make up the 
actual object program. Operations codes that are translated to machine codes are called 
assembler instructions. For a complete listing of mnemonic instruction codes and their 
counterpart machine codes, see Table E—1. 


There are three categories of nonmachine code mnemonics in the OS/3 assembler 
language: directives, conditional statements, and macros. Table 15—1 is a summary of 
assembler directives; Table 27—1 is a summary of conditional statements; and information 
on the macroinstructions available under OS/3 is included in the applicable user guide or 
programmer reference. The most commonly used macroinstruction types are data 
management and supervisor. See the consolidated data management concepts and facilities 
user guide, the consolidated data management macroinstructions user guide, the supervisor 
concepts and facilities user guide, and the supervisor macroinstructions user guide. The 
following listing shows the four elements of the assembler language and whether or not 
they are converted to executable code. 


1. Instructions Machine Codes/Executable Code 

2. Directives 

3. Conditional statements Nonmachine Codes/Nonexecutable Code 
4. Macros . 


As stated, the main function of the assembler is to produce an object program from a BAL 
source program. The object program created by the OS/3 assembler is called an object 
module and contains other information in addition to the machine code instructions 
translated from your source program. This other information is generated by the assembler 
so that OS/3 can recognize and process the object module. Figure 1—9 shows the format 
of the OS/3 object module. The shaded area indicates where the machine code program is 
located in the generated object module, and the remaining unshaded areas in the object 
module are used by the linkage editor, which is an OS/3 system program that creates 
another module called a load module. For further details about the contents of an object 
module, see the system service programs (SSP) user guide. 
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OBJECT MODULE HEADER RECORD 


LINKAGE EDITOR CONTROL STATEMENTS 
(OPTIONAL) 


CONTROL SECTION RECORDS 


EXTERNAL SYMBOL DICTIONARY (ESD) 
RECORDS (OPTIONAL) 
TRANSFER RECORD 


LINKAGE EDITOR CONTROL STATEMENTS 
(OPTIONAL) 


| MACHINE CODE 








Figure 1—9. OS/3 Object Module Format 


1.3. CREATING A LOAD MODULE 


Assembling a program is only the first step in generating an executable BAL program. 
The complete process is a 3-step sequence and is generally called an assemble, link, 
and go operation. This means you must assemble an object module and create (link) a 
load module before you can execute (go) a BAL program. To set up an assemble, link, 
and go operation, or an assemble only (if only an assembly is required), you must use 
job control statements. Section 29 gives detailed information on how to run a BAL 
job. 


Although the object module created by the assembler contains a BAL program in 
machine code form, it still isn’t an executable program. To be executable (in OS/3) 
the object module must be changed to a load module. After an object module is 
generated, the assembler is no longer in control and the object module, left behind by 
the assembler, is used as input for creating a load module. The next OS/3 system 
program to gain control builds a load module from the object module. This system 
program is called the linkage editor. 


The format of the load module produced by the linkage editor is illustrated in Figure 1—10. 
The shaded area indicates where the machine code program is located in the load module. 
For detailed information about the contents of a load module see the system service 
programs (SSP) user guide. Segments phase 1 through phase n shown in Figure 1—10 
aren’t created unless you specifically do so with linkage editor control statements. 
However, every load module will always have a root phase. After a load module is created, 
the BAL program is ready for execution. 
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PHASE HEADER RECORD 


AUTOMATICALLY INCLUDED 
OBJECT CODE 


AUTOMATIC OVERLAY CONTROL ROUTINE 
{KLSOCP OR KLSOCPR) 


ROOT 
PHASE 
SEGMENT 
TRANSFER RECORD 
PHASE HEADER RECORD 
PHASE 1 
SEGMENT 
TRANSFER RECORD 
PHASE HEADER RECORD 
PHASE N 
SEGMENT 
(UP TO 99) 


TRANSFER RECORD 


MACHINE CODE 





Figure 1—10. OS/3 Load Module Format 








1-19 





ONLY PRESENT IF REQUIRED 
AND AUTOMATIC INCLUSION 
FEATURE IS NOT INHIBITED 


ONLY PRESENT WHEN V-CON 
PROCESSING IS SPECIFIED 
AND VALID V-CON 
REFERENCES EXIST IN 
MULTIPHASE OR MULTI- 
REGION LOAD MODULES 
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1.4. PROGRAM EXECUTION 


During the assemble and link phase, each type of BAL module is on disk, while 
during the program execution phase, the machine program is stored in main storage 
as a load module. Figure 1—11 shows the location of each module after assembly 
time and linkage editor time. The source, object, and load modules are stored in a 
disk file called the job’s run library file (SYS$RUN). This file is an OS/3 system file, 
which is used to hold each BAL module unti! the assembler, linkage, and execution 
steps are finished. 


The focal point of program execution is main storage. Once the load module is loaded 
from disk to main storage, the machine instructions are fetched one at a time from 
main storage by the processor. When the processor fetches an instruction, the opcode 
is decoded to find out which instruction is to be executed. If the instruction is legal, 
it is executed and the processor fetches another. This goes on until no machine 
instructions are left in the load module. 


The only codes that the processor can interpret are the machine codes for assembler 
instructions. Any other codes submitted to the processor will cause an error, and the 
offending program is aborted. Every machine code instruction in the BAL instruction 
repertoire is supported by the microcode loaded into the control storage of the system. 
It is important to realize that machine codes, and only machine codes, can drive the 
hardware processor. This is the key to understanding the difference between program 
execution time and assembly time. At assembly time, the assembler processes the 
source program; the processor cannot execute a source program and doesn’t see your 
program until it is in machine code form. 












SOURCE 
MODULE 







ASSEMBLER 


MAIN STORAGE PROCESSOR 


C700 C560 4510 


MACHINE CODE 


D219 D219 600A 















FETCH NEXT 
INSTRUCTION 





ARITHMETIC UNIT 
AND 
CONTROL LOGIC 






OBJECT 
MODULE 













MACHINE 
INSTRUCTION 











61C6 OODED 6156 






LINKAGE 
EDITOR 








LOAD 
MODULE 





Figure 1—11. Assemble, Link, and Go Operation 
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2. Data Forms 


2.1. DATA REPRESENTATION 


Computer data is stored in special code combinations used to represent all the 
characters and numerical data needed for problem solving. The smallest area the 
computer can move or manipulate is called a byte, which is composed of eight units 
called bits. Each bit is either a 1 or a O; thus, a byte representing the letter M would 
look like this: 


1 BYTE 





Bits are numbered from left to right, with the leftmost bit referred to as the zero bit 
or the most significant bit (MSB). The rightmost bit in this byte is the number seven 
bit. The rightmost bit in any field, no matter how long, is also referred to as the least 
significant bit (LSB). Two contiguous bytes are called a half word; four are called a 
full word; and eight are a double word. When you manipulate several bytes as a 
string, the leftmost byte is called the most significant byte (MSB), and the rightmost 
byte is the least significant byte (LSB). Additional information on bit and byte structure 
is given in 4.3.2. 


Table 2—1 comprises different methods of organizing and referencing numeric data as 
you would use them in data processing. 
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Table 2—1. Comparison of Numeric Expressions 


Decimal 
ber Examples 
ee Values 


Character form (unpacked) 


Zoned decimal (+) 


QO 
° 


Zoned decimal (—) 


Packed decimal (+ only) 


Packed decimal, signed (+) 


° 
QO 


Packed decimal, signed (—) 


Hexadecimal (+ only) 


n 
> 


Floating point (+) 


> 
oll 
2 || 
° || ° 


Floating point (—}) 


fy 


g iL 


Binary (+ only) 


Binary (+ only) +65,036 


: 
g 
g 


Fixed point (+) +500 


Fixed point (—) 


—500 





2.2. BINARY REPRESENTATION 


In binary language, the same principles are followed as in decimal language. In 
decimal language (base 10), the number 251 is a combination of three values: 





a value of one unit 


the value of five 10’s 








the value of two 100’s 


In binary (base 2), the rightmost digit has the decimal value of 1; the digit to its left 
has a decimal value of 2, the next is 4, then 8, and so on to the most significant bit, 
which in one byte, has the decimal value of 128. You determine the total value of a 
binary number by adding the decimal value of each ‘‘on” bit (1), as illustrated in 
Figure 2—1. 
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1 
0 0 0 0:10 0 0 1 This has a decimai value of 1. 
4 1 
0 0 0 010 1 (4) 1 This equals the sum of 4 and 1 (or 5). 
8 4 2 


0 O11 This equais the sum or 8, 4, and 2 {or 14). 


oe ee ean te | This decimal value adds to 255, which is the maximum 
value for one byte. The maximum value for a half byte 
128 (4 bits) is 15. 

64 
32 
16 
8 
4 
2 


Figure 2—1. Determining Binary Values 


Starting with the value of zero, a full byte represents a total of 256 different codes 
(B.1) and a half byte represents 16 codes. Since binary notation is unwieldy, most 
notations are written and computer-printed in other forms. 


2.3. HEXADECIMAL REPRESENTATION 


Using base 16 values, there are 256 hexadecimal codes in one byte. The hexadecimal 
notations consist of the numbers O through 9 and the letters A through F. In this 
way, we can represent the maximum decimal value of a half byte, which is 15, by 
one hexadecimal notation, which is F (Table 2—2). In B.1, the relationship of the 
binary, decimal, and hexadecimal codes for a full byte is shown. 


Hexadecimal representation is an outgrowth of decimal and binary representation of 
data. In decimal, the base used is 10; therefore, the decimal number 251 is in 
actuality: 


N 


5 1 


a 


2x 107+5x 10'+1x 10° 
which is the same as saying: 


(2 x 100) + (5 x 10) + (1 x 1) = 251 
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If we take this same number, 251, and show it in binary notation (that is, use the & 
base 2), it would look like this for one byte: 


This is the same as: 
(1x 27) + (1x 28) + (1 x 25) + (1x 24)+(1 x 28) + (Ox 22)+ (1 x 2!) + (1 x 20) 
or: 
(1 x 128) + (1x 64)+(1 x 32) + (1x 16)+(1 x8) + (0x4) +(1x2)+(1 x 1)= 251 


Hexadecimal notation reduces the time and space needed to read or write the codes 
represented by a full byte of binary information. Because 16 is the base, to convert 
binary data to hexadecimal data, divide the binary representation of the decimal 
number into groups of four bits and pad to the left as necessary to obtain a full 
grouping of four bits. Thus, taking the binary representation of the decimal number 
251 and breaking it up into groups as just described, we get: 


Binary ee) hat 


(15 x 16")+ (11 x 16°) 





Decimal = decimal value 251 


Hexadecimal FIB = decimal value 251 


Table 2—2. Hexadecimal Notation 


Binary Hexadecimal 
Half Byte Value Code 









OMNAO AWN 2A OC 





TMOODLOCHOVanaRWN=AO 
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2.4. CHARACTER REPRESENTATION 


There are 256 possible bit combinations that can be stored in a byte. By convention, 
certain bit combinations are used to represent the letters, numerics, and special 
characters that are used to convey information in written form. In B.1 are listed the 
hexadecimal equivalents of the characters used to write programs. It is also pointed 
out in this document that only certain characters are used in statement formats. To 
aid in the specification of permissible characters, the overall character set of the 
assembler is divided into the following classes: 


a Alphabetic set: 
— Alphabetic characters: the uppercase letters A through Z 
— Special letters: ? $ # @ 

= Numeric characters: O through 9 


= Special characters: + - * / , = A (blank)(). &'O< 


2.4.1. Alphabetic Characters 


The letters A through Z are alphabetic characters and part of the alphabetic set. The 
following table shows the hexadecimal representation, which is one byte long, for 
each of the uppercase letters. (Also see B.2.) 


Alphabetic Hexadecimal Alphabetic Hexadecimal 
Character (EBCDIC) Code Character (EBCDIC) Code 
ci D5 


C2 
C3 
c4 
cS 
C6 
C7 
c8 
cg 
D1 
D2 
D3 
D4 























Zzrrxzcr-ronmoagoyp 
N<xXS<CHHDODVOZ 
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2.4.2. Special Letters @ 





The following special letters are part of the alphabetic set and usually follow the 
same rules as the letters mentioned in 2.4.1. The hexadecimal representation for 
these special letters are listed in the following table (also see B.2): 


Special Hexadecimal 
Letters (EBCDIC) Code 
6F 
5B 


? 
$ 
# 7B 
@ 





2.4.3. Numeric 


As previously noted, all characters are coded in a full byte (eight bits), and this is 
also true for the character forms (unpacked) of numbers. Numbers written in this 
form, just as letters and other characters, can be moved from one location in main 
storage to another and can be sequenced, compared, and treated in other ways; but 
mathematical operations can not be performed on unpacked numerics. To do 
mathematical operations, the values must be in binary or packed decimal form. 
Unpacked and packed numeric formats are explained in 2.4.3.1 and 2.4.3.2. All 
numeric forms are shown in Extended Binary Coded Decimal Interchange Code 
(EBCDIC). For the American Standard Code for Information Interchange (ASCII), see 
B.3. 





2.4.3.1. Unpacked Format 


Unpacked (printable) numeric characters are coded in a full byte and are easily 
recognized because the first half of the coded byte is the hexadecimal code F. The 
decimal digit 5 is represented in a byte as F5. The F half of the byte (bits O through 
3) is the zone field, and the 5 (bits 4 through 7) is in the digit field. Numeric data 
must be in this unpacked format to be output to a printer unit. 
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The following shows the hexadecimal 1-byte unpacked code for each decimal digit. 


Hexadecimal 
(EBCDIC) Code 


Decimal 
Digit 






sevsonen- ff 





Examples of decimal digits and their unpacked byte equivalents are shown here. 


107 fills 3 bytes Fld LF 1 o| Fz 


2.4.3.2. Packed Format 


As you can see, unpacked format involves a considerable waste of main storage 
space. When numbers are to be processed, they can be converted to packed format 
by means of the PACK instruction, prior to processing. In packed format, the zone 
fields are stripped away and the number is stored as follows: 


byte 1 byte 2 





Thus, in packed format, only two bytes are needed to store the decimal! number 107. 
This results in considerable savings in main storage space. After mathematical 
operations on a packed number, the sign C indicates a positive value and the sign D 
a negative value in EBCDIC. 


eae 71C +107 (signed) 
ae 150: 71D —107 (signed) 
1140 


TNF unsigned (assumed positive) 
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The following program extract shows how the PACK instruction is used. (See 9.14.) 


PACK AREA1,NO1 Area NOQ1 is packed into AREA1. 
AP AREA1,ONE A sign code is produced. 

NO1 DC C’123° 

AREA1 DS CL2 

ONE DC PL‘1’ 


After these operations, the two main Storage areas will look like this: 


The hexadecimal code C in AREA1 indicates that the value is positive. If the value is 
to be indicated as a negative value, a hexadecimal code of D would be in this field. 


2.4.4. Special Characters 


The following 14 special characters are not part of the alphabetic set (2.4.1), special 
letters (2.4.2), nor are they numeric (2.4.3). They have special uses, and rules are 
covered in this user guide when required. Following are listed the special characters 
with their hexadecimal codes for reference. (Also see B.2.) 


Special Hexadecimal Special Hexadecimal 
Character (EBCDIC) Code Character (EBCDIC) Code 
+ 4E 4D 


( left 
parenthesis 
- (minus) 60 ) right 
parenthesis 
~ . (period) 
/ & 
, (Comma) * (prime) 






= > 
A (blank) < 
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& 2.5. FIXED-POINT NUMBERS 


Each fixed-point number is represented in one of three fixed-length binary formats 
composed of a single positive or negative sign bit followed by a number field (Figure 2—2). 
When the sign bit is 0, the number represents a positive value; when 1, the number 
represents a negative value. Negative numbers are represented in twos complement 
notation, which is derived by inverting each bit of the binary number and adding 1 to the 
result of the inversion. For additional information on fixed-point numbers, see 2.1, 5.2.6, 
5.2.7, and Section 10. 


HALF WORD 


NUMBER FIELD 
1 15 


© 20-4}: 


FULL WORD 


NUMBER FIELD 





DOUBLE WORD 


f NUMBER FIELD 
1 


Figure 2—2. Fixed-Point Number Formats 


2.6. FLOATING-POINT NUMBERS 
The assembler provides floating-point arithmetic operations as an optional hardware 
feature. Floating-point arithmetic operations involve a fraction and an exponent. For 
example: 

217,000 can be expressed as 0.217 x 108 

296,000 can be expressed as 0.296 x 108 
In fixed-point arithmetic, add: 

217,000 


+ 296,000 


513,000 
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In floating-point arithmetic, add: 
0.217 x 106 
+ 0.296 x 106 





0.513 x 106 
where: 
0.513 is the fraction and 108 is the exponent. 


In floating-point notation, the fraction is added and the exponent is retained. The 
example uses decimal floating-point; the assembler uses hexadecimal floating-point. In 
hexadecimal floating-point notation, the biased exponent is expressed in excess-64 
binary notation; the fraction is expressed as a hexadecimal number having an 
arithmetic point to the left of the most significant digit. The quantity expressed by the 
full floating-point number is the product of the fraction and the number 16 raised to 
the power minus 64 of the biased exponent (fraction x 16164). For additional 
information on floating-point numbers, see 5.2.12 and Section 11. 


characteristic mantissa 


(exponent) (fraction) 
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3. Addressing 


Each full byte (eight bits) of main storage is numbered in sequence starting with 
000000. With the assembler, the address of each instruction is calculated and you 
can refer to it by its real address or by a symbolic notation assigned to it. The 
assembly listing shows these addresses in their hexadecimal form. The computer also 
contains 16 registers that can be used for addressing and storage. The many types 
and uses of addressing are covered in detail in the following parts of this user guide. 


3.1. MAIN COMPUTER STORAGE ADDRESSING 


lf you wish to refer to some other part of your program, you assign a symbol to that 
location and the assembler translates this to the real main storage address. 


3.1.1. Instruction Addressing 


Your program may contain the move instruction MVC: 





LABEL AOPERATIONA OPERAND 
| 10 16 
MOVES MVC MYAREA, YOURAREA 


Even though the main storage for this application instruction is OOOO8A, you could 
return (branch) to this instruction by writing: 


B MOVES 


This type of referencing a location in a program is called symbolic addressing. It is a 
time saver and helps eliminate many errors. 
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3.1.2. Data Field Addressing 





As noted in 1.2, storage and data areas are defined for later reference. The following 
list shows assembler-generated addresses, the symbolic addresses assigned by you, 
and the storage areas. 


Assembler-Generated | Symbolic 





Address Address Definition 
000048 WKAREA1 DS CL41 
000071 WKAREA2 DS CL16 
000081 MYAREA DS OCL121 
000081 OUTPUT1 DS OCL121 
000081 NEWAREA1 DS CL41 
OOOO0AA NEWAREA2 DS CL80 
OOOOFA YOURAREA DS OCL121 
OOOOFA INPUT1 DS OCL121 
OOOOFA COUNTS DS OCL3 
OOOOFA COUNTS DC CL1‘5’ 
OOOOFB COUNT12 DC C212" 
OOOOFD DS CL118 


The first work area shown, WKAREA1, has the hexadecimal location 000048 and is 
41 bytes long. The hexadecimal value of 41 is 29, which added in hexadecimal 
produces the next hexadecimal location O00071. The next areas, MYAREA and 
OUTPUT1, show how we can assign different symbols to the same area. They do not 
take up main storage space and thus have the same address as NEWAREA1, which is 
16 bytes from the start of the last address. The hexadecimal value of 16 is 10; thus, 
the address of NEWAREA1 is 000081. This address plus 41 bytes (hexadecimal 29) 
produces the next address, OOOOAA. 


The use of either the symbol MYAREA or OUTPUT1 calls for the same 121 bytes 
following them in storage. The zero placed in front of the CL instructs the assembler 
to assign a location for these symbols but not to reserve any storage for them. The 
remaining six instructions show how this can be done with constants (DC) as well. 
The symbol COUNTS is an example of a symbol reference within another symbol 
reference. 
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3.2. REGISTER ADDRESSING 


There are 16 general registers (0 through 15). Each register consists of 32 bits which 
is equivalent to a full word. Any register can be used in RR, RS, or RX type 
instructions. Any register can also be used in base register assignment. However, 
most |/O operations use registers 14, 15, 0, and 1. So, if you use any one of these 
registers and then perform either input or output, the original data in these registers 
is destroyed. You can use these registers, though, by saving their contents prior to 
the execution of an I/O operation and restoring their contents after the execution of 
an |/O operation. 
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4. Rules and Conventions 


4.1. READING INSTRUCTION NOTATION 

Notations are used throughout this manual to describe the general forms of 
programmer-written and computer-generated formats. A consolidated listing of all the 
notations is included in Figure 7—1. This section includes the definitions of terms. 


4.1.1. Assembler Application Instruction Notations 


There are eight forms of assembler applications instructions: 


e RR — _ Register-to-Register 
RX — _ Register-to-Indexed-Storage or Storage-to-Indexed-Register 
RS — _ Register-to-Nonindexed-Storage or Storage-to-Nonindexed-Register 
S| — Storage Immediate 
SS — _ Storage-to-Storage (Type SS1) 
SS — _  Storage-to-Storage (Type SS2) 
S$  — _ Storage 


SM — _ Storage Mask 


Assembler application instructions provide the format for handwritten coding that, in 
turn, leads to the assembler format that generates the machine coding. The assembler 
application move instruction (MVC) illustrated is an SS1 type. The coding follows. 
Definitions of the explicit and implicit formats are provided in Section 7. 
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Explicit Format: 








AOPERATIONA OPERAND 


[symbol] d, (I, ,b, ).d, (b, ) 


Implicit Format: 








AOPERATION A OPERAND 


[symbol] s, (I, ).s, 


On the coding sheet, it could look like this: 





LABEL AOPERATIONA OPERAND 
1 10 16 
OUTS MVC AREA (37) ,NETPAY 
where: 
[symbol] 


The brackets around symbo/ mean OUT4 is optional. 


MVC 
Is the mnemonic opcode for the move instruction. 


AREA(37) 
Is the first operand: d, ¢,b,) or s, (I,) AREA is the address d,(b,) or symbol 
s, and (37) is the length (I,) of the receiving field to be filled. 


NETPAY 
Is the second operand: d.(b,) or so. 











UP-8913 SPERRY UNIVAC OS/3 4-3 
ASSEMBLER 





After this application instruction is assembled, it is in the following form: 





And could have the generated machine code: 
D2 24 44FC 4AA6 
where: 


D2 
Is the operation (opcode) for the mnemonic MVC. 


24 


Is the hexadecimal coding for the length (I,), which is 37 bytes long but 
assembled as 37—1 or 36. 


Is the base register b, used for the first operand. 


4FC 
Is the displacement d, used for the first operand. 


4AA6 
Is the base b, and displacement d,. address of the second operand NETPAY. 


The generated machine code is expressed in hexadecimal form. Knowing the 
organization of the machine code format can help you when the written coding does 
not generate the values you intended. Such knowledge helps in finding errors in the 
results of a program. (See Figure 4—1). 
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[symbol } 
Instruction 
Format 
Object Code 
Format 


—— 
Source Code gy7q Ne wee 
Example 








Object Code 
Printout 
O003F6 D2 24 44FC 4AA6 


OO03F6 
Is the address of the instruction symbol, OUT4. 


Is the numeric operation code for the mnemonic, MVC. 


Is the 37-byte length (I,), value 37—1. 


Is the base register (b,) for the first operand, AREA. 


Is the displacement for the first operand, AREA. This displacement plus the contents of the base register yield the 
starting address of the first operand. 


4 and AA6 
Specify the base register and the displacement for the second operand, NETPAY. 





Figure 4—1. Assembler Format Relationships 
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Consider another instruction: 






AOPERATIONA OPERAND 





[symbol] 6,GROSSPAY (5) 


Is the mnemonic opcode for the load instruction. 


Is the first operand register ry. 


GROSSPAY (5) 
Is the second operand in the form s,(x,). 


After this application instruction is assembled it may generate the following machine code: 


58654012 
where: 
58 
Is the opcode for the load instruction. 
6 
Is the register r, used for the first operand. 
5 
ls called the index register and is part of the second operand (x,). 
4012 


Is the base b, and displacement d, for the second operand address GROSSPAY. 
For a discussion of how the processor uses the base register, index register, and 
displacement of an operand to form main storage addresses, refer to the current 
version of the processor programmer reference. 


Figure 7—1 shows the formats of the eight application instructions as generated by 
the assembler in machine code, as well as the explicit and implicit formats for 
programmer coding. Examples of the implicit coding format using symbols and the 
explicit format are included in following sections for each assembler application 
instruction. More detailed information on the use of the assembly listing is in Section 
28. 
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4.1.2. Notation Rules and Meanings 


The following conventions are used in application-instruction, assembler-directive, 
macroinstruction, proc, and control-statement formats: 


Optional information is enclosed in brackets [ }] and may be specified or omitted 
as in the use of [symbol]. 


Braces { } indicate multiple options, at least one of which must be chosen, as in 
the following directive. 


For example: 


PRINT {ON | 
OFF 


Braces within brackets signify that one of the options must be chosen if that 
operand is specified. 


For example: 


[1] 


When given a choice of multiple options, the option that is shaded is the default 
option and indicates the choice that will be made by the system if you do not 
specify one of the options. 


For example: 


DATE 
EXT 





PRE 


Uppercase letters, terms, and punctuation marks indicate information which must 
be coded exactly as shown. Also, mnemonic codes (such as MVN, PACK, and 
CLC) are in uppercase letters. 


Lowercase letters and terms indicate variables (such as [symbol], r, d, b, and e) 
which are supplied by you. 


An ellipsis, a series of three periods, indicates that a series of entries may be 
coded, as in the directive DROP r,[,ro....,1pl- 
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Keyword parameters may be coded in any order. 
For example: 


IOROUT=LOAD,BLKSIZE=512,RECFORM=FIXBLK 
BLKSIZE=51 2,\OROUT=LOAD,RECFORM=FIXBLK 


Positional parameters must be coded in the order shown. Commas are required 
after each positional parameter except the last. When a positional parameter is 
omitted from a series of positional parameters, the comma must be retained to 
indicate the omission. 

For example: 


X‘03’,OUTP,X‘00',132 (operand field of CCW) 
&P,3,&KEY1=,&KEY2=,&KEY3=(operand field of macro statement in proc format) 


Names of directives and instructions in text are shown in lowercase italics. 
For example: 
add, move, load, branch and link, store 


Throughout this manual, the register notations RO through R15 represent the 
registers O through 15. 


For example: 


BALR R2,R3 


The handwritten program, usually on the assembler coding form, is called the source 
program; the card images containing this coding are still called the source program. The 
source program is assembled, and the assembler usually produces a translation of the 
source program into machine code; this deck is called the object program. A printed listing 
of the assembled program, called the assembly listing, shows the source coding with its 
associated assembled machine coding. 


The smallest unit of information in basic assembly language (BAL) is the bit. Eight 


bits 


make a byte and two bytes form a half word. Four bytes are a full word and 


eight bytes comprise a double word. Figure 4—2 shows the relationships between 


bits, 


bytes, and words. Bits O through 7 form the high-order byte or MSB, and bits 56 


through 63 form the low-order byte or LSB in a double-word storage area. 
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MSB ise 
| l ' t 1 ] i a 
1100 ,; 0100 1101 : 1004 0100 : 0000 1110 ! 0110 1100 1 over 1100 | oo10 1100 ! o101 v1ot ? soot : 
‘0 1 78 15/16 23424 31432 30440 47} 48 H 55] 56 ! 63 


1 BYTE TS8YTE 1BYTE 1 BYTE 
HALF WORD HALF WORD 


FULL WORD 


OOUBLE WORD 


Figure 4—2. Byte and Word Structure 


The following short definitions should be useful for the new programmer. 
= Source program 
Programmer-produced 
# Source cards 
Keypunch output 
= Source deck 
Keypunch output 
® Source code 
Keypunch, disk, or diskette output 
=m Machine code 
Assembler-generated 
s Object program 
Assembler output 
= Assembly listing 
Assembler output to printer 
= §6Bit 
One binary digit 
a Byte 


Eight binary digits 
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= Half word 

Two bytes 
= = Full word 

Four bytes 
= Double word 

Eight bytes 
= MSB 

Most significant bit or byte, leftmost 
=» LSB 

Least significant bit or byte, rightmost 
a §=High order 


Leftmost data, byte, or bit 





a Low order 


Rightmost data, byte, or bit 


4.2. TERMS 


Terms represent values coded by the programmer or computed by the assembler. 
There are five classes of terms recognized by the assembler: 


= §=6Self-defining terms (SDT) 

# Literals 

a Symbols 

= Location counter references 


a Length attribute references 
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Self-defining terms are _ fixed values the programmer codes such as 
33,P’591°,X‘OF’,B‘11100110’, or C’EBW’. Literals can have their value specified by the 
programmer and their location decided by the assembler and could look like, 
=X'FO’,=C’‘A’,=P’—1’, or =B’00001000’ as used in storage-to-storage instructions (e.g., 
CLC TAGA,=C’'A’). Symbols, location counter references, and length attribute 
references are assigned values by the assembler. (See Table 4—1.) 


Table 4—1. Comparison of Terms 


AREA10, 10, 
Can be used in the 1st or 2nd SOT 
operands. AREAB, X'C2’ 
és 
May be used in application SDT 
instructions and in assembler 33 (10,R5),3(R8) 
directives. SDT SDT SDT 





Literals AREA10,=C’10’ 
; Seem! 
a May not be used in assembler Literal 
directives. AREA10,=X‘F1F0’ 
— a 


S Literals are preceded by an Literal 
equal (=) sign. ONSW,=B‘11111111' 
— 
Literal 


Symbols for constants AREA10 DS CL2 
a May be used in the 1st or 2nd NO10 DC C’'10° 
operands. MOVE10 MVC AREA10,NO10 
s May be used in application ——ae 
instructions and in assembler 
directives. 


symbols 





4.2.1. Self-Defining Terms (SDT) 


Self-defining terms (SDT) are terms that represent fixed values. They are presented by 
the programmer in a form that is easily recognized and its value is understood 
without the need for computation. SDTs are not relocatable; they can be used to 
specify immediate data, registers, addresses, and masks. They can be used in 
assembler directives as well as in application instructions and can be part of an 
expression. The size of an SDT depends on where it is used. When used to designate 
a register you cannot exceed a value of 15. After conversion by the assembler to a 
binary format, the value is right-justified and filled with binary zeros on the left to fit 
the designated field. SDTs can be represented in binary, hexadecimal, decimal, or 
character form. (See 5.2.) 
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When a 24-bit hexadecimal, binary, or character SDT has a 1 in the sign bit position 
the SDT will be treated as a negative term in the evaluation of an arithmetic 
expression. 





# A binary SDT consists of a series of up to 24 zeros and ones enclosed in apostrophes 
and preceded by the letter B (e.g., B‘101’, B‘11110000’, B‘00101’). The field is filled 
with high order zeros when necessary. 


# A hexadecimal SDT consists of up to six hexadecimal digits enclosed in apostrophes 
and preceded by the letter X (e.g., X‘FO’, X’C1’, X‘F1FOFO’). Each hexadecimal digit 
represents a half byte of information. 


= =A decimal SDT is an unsigned decimal number consisting of up to eight digits having a 
value of O through 16,777,215 (224—1) (e.g., 0, 32, 16000000). This number is 
converted by the assembler to a binary value occupying one, two, or three bytes. 


= A ccharacter SDT consists of up to 3 characters of the 256 valid characters of which 
only 63 are printable. (See Appendix B, Table B—1.) The characters must be enclosed 
in apostrophes and preceded by the letter C (e.g., C’‘A’, C‘ABC’, C’123’, C’A1'). Each 
ampersand or apostrophe to be included in a character representation must be 
indicated by a double ampersand or double apostrophe, respectively. In this case there 
may be more than three characters within the apostrophes which delimit the SDT (e.g., 
C’‘3"’S’ produces 3’S; C‘A&&B’ produces A&B). 





The following four examples all produce the same internal bit pattern of 11110001 in 
the one byte area called AREA: 


= Decimal Geri’? AREA, 241 
= Hexadecimal Ck+M/! AREA, X‘F1’ 
a Character CH "Vr AREA, C’'1’ 


2 Binary ELT itis AREA, B’11110001' 


4.2.2. Literals 


Literals are terms that represent data in the source coding (see 5.3). The assembler 
replaces the value of the original literal in the literal table (pool) with the address of 
the main storage location. In the following example the literal =C’AA’ will be replaced 
in this instruction by the address of a 2-byte area in the literal table containing the 
binary value 11000001 11000001. 


MOVEAA MVC TESTSW,=C’AA’ 
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When the assembler recognizes a literal in the source code, it searches the table of 
literals that have been previously encountered. If a duplicate is found, then the 
relocatable address of the literal in the table replaces the original literal in the source 
code. If a duplicate is not found, then the value of the original literal is entered into 
the table and its address replaces the source code specification. Literals are similar in 
form to the operands of DC and DS statements. 


A literal may be used in any machine instruction that specifies a storage address, 
except that the literal may not be specified as the receiving field operand of an 
instruction that modifies storage. Literals may not be specified in address constants, 
shift instructions, or I/O instructions. Literals must always appear as the complete 
operand specification. They cannot be combined with other terms, nor with an explicit 
base register specification. ‘S’ type constants may not be used as literals. 


4.2.3. Symbols 


A symbol is a group of up to eight alphanumeric characters. The left, or leftmost, 
character must be alphabetic. Special characters or blanks may not be contained 
within a symbol. (See Section 6.) The following are examples of valid symbols: 


Vv CARDAREA 
GS279 RSINTRN 
BOB BD#4 


The following are not valid symbols for the reasons stated: 


READ ONE’ Embedded blank 
SPEC'L Special character used 
6AGN First character not alphabetic 


Two other categories of symbols are available in the macro language and conditional 
assembly statements. They are variables and sequence symbols. These categories of 
symbols are defined and discussed in detail in Section 6 and in 27.2.1. 


The assembler associates three attributes with each symbol it processes. These 
attributes are value, length, and relocatability. Symbols defined by the EQU directive 
adopt the attributes of the expression in the operand field of the statement. (See 
Section 16.) 
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a Value Attribute 





A symbol is assigned a value, or defined, when it appears in the label field of 
any source code statement other than a comment. A symbol appearing in the 
label field of an EQU or ORG directive is assigned the value of the expression in 
the operand field. In all other cases the value assigned is the current value of 
the location counter after the adjustment to a half-word, full-word, or double- 
word boundary (5.1.7), if necessary. The value is assigned to the current label 
before the location counter is incremented for the next instruction, constant, or 
storage definition. Thus, if a symbol appears in the label field of a statement 
defining an instruction, constant, or storage area, the symbol is assigned a value 
equal to the storage area address of that instruction, constant, or storage area. 


The value of a symbol must lie in the range —223 through 223—1, 
™ Length Attribute 


The length attribute of a symbol is the number of bytes assigned to the 
instruction, constant, or storage area involved. For example, the label of a 2-byte 
instruction has a length attribute of 2 and the label of a DS statement reserving 
200 bytes would have a length attribute of 200. Symbols equated to location 
counter references or absolute value representations usually have a _ length 
attribute of 1. The duplication factor (constant or storage area) has no effect on 
the length attribute. (See 5.1.3.) 





The maximum length attribute that can be generated by the assembler is 65,536. 
= ~§=Relocatability Attribute 


A symbol may either be absolute or relocatable. Values which are assigned to 
symbols defined in the label field of a source code line representing an 
instruction, constant, or storage definition, are relocatable. A relocatable symbol is 
a symbol whose address would change by a given number of bytes if the 
program in which it appears is relocated the same number of bytes from its 
originally assigned address. Relocatable symbols are assigned values relative to 
the location counter. Decimal, character binary, and hexadecimal representations 
are all absolute terms and have a relocation attribute of 0. 


4.2.4. Location Counter References 


A location counter is maintained by the assembler for each control section created by 
the programmer. Each counter contains the next available location for the associated 
control section. After the assembler processes an instruction or constant, it adds the 
length of the instruction or constant processed to the correct location counter. The 
maximum value that the location counter can achieve is 223—1. 














UP-8913 SPERRY UNIVAC 0S/3 4-13 
ASSEMBLER 





Each instruction must have an address which is a multiple of two bytes. This type of 
address is said to fall on a half-word boundary. If the value of the location counter is 
not a multiple of 2 when assembling such an instruction, a 1 is added to the location 
counter before assigning an address to the current statement. Storage locations 
reserved in this way receive binary O’s when the program is loaded. Certain constants 
must be aligned to a_half-word, full-word, or double-word boundary. Again the 
location counter is adjusted to the boundary, and the storage locations which were 
bypassed receive binary O’s when the program is loaded unless the adjustment 
occurred as a result of a DS or ORG directive. 


The current value of the location counter, under which the program is currently being 
assembled, is available for reference by the programmer. It is represented by the 
special asterisk character (*). If the asterisk is written as a term in an address 
constant or in an instruction operand expression, this character is replaced by the 
storage address of the leftmost byte allocated to that instruction or constant. Care 
must be taken to ensure that all such implied references are specified appropriately in 
individual expressions since the character asterisk (*) may also be used to indicate the 
multiply operator during the evaluation of expressions. 


An instruction may address data or other instructions in its immediate vicinity in 
terms of its own storage address. This is one kind of relative addressing and it is 
achieved by an expression of the form *+n or *—n where n is the difference in 
Storage addresses of the referencing instruction and the instruction or data being 
accessed. Relative addressing is always in terms of bytes and not in terms of words 
or instructions. 


A location counter reference may not be made in a statement which requires the use 
of a predefined symbol, with the exception of the EQU and ORG directives. 


4.2.5. Length Attribute Reference 


The length attribute of a symbol is referenced as a term in an expression by writing 
L’ followed by the symbol. Thus if the symbol STOREND is the name of a full-word 
field, 


L’'STOREND 


would be considered a term and it would have a value of 4. (See 5.1.5.) 


4.3. OPERATORS 


There are 12 operators in the assembler language (Table 4—2) which designate the 
method and sequence to be employed in combining terms or expressions. Blanks are 
not permitted within an expression. Evaluation of an expression begins with the 
substitution of values for each term. The operations are then performed from left to 
right in hierarchical order as listed in Table 4—2. The operation with the highest 
hierarchy number is performed first; operations with the same hierarchy number are 
performed from left to right. 
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-» Parentheses can be used to alter the hierarchy of evaluation. Multiplication by O equals O. © 


. The 12 operators are divided into three classes: arithmetic operators, logical operators, and 
| relational operators. More detailed descriptions of these operators are provided in 4.3.1, 
4.3.2, and 4.3.3. 


Table 4—2. Summary of Operators 


Arithmetic Operators A*/B is equivalent to Ar28 





Covered quotient, A//B is 
equivalent to (A+B—1}/8 


A/B means arithmetic quotient 
of A and B. 


A*B means arithmetic product 
of A and B. 


A-—B means arithmetic difference 
of A and B. 


A+B means arithmetic sum of 
A and B. 


Logical Operators A**B means Logical Product 
AND of A and B. 





A++B means Logical Sum OR 
of A and B. 


A-—B means Logical Difference 
XOR of A and 8. 


Relation Operators has value 1 if true; 
has vaiue O if false. 


has value 1 if true; 
has value O if false. 


has value 1 if true; 
has value 0 if false. 





4.3.1. Arithmetic Operators 


The symbols +, —, *, /, //, */ represent the six arithmetic operators. The intrinsic 
meanings of +, —, *, and / are the usual ones; that is, + indicates addition, 
indicates subtraction, *indicates multiplication, and / indicates division. 


> The operator // denotes a covered quotient where A//B is equivalent to (A+B—1)/B. A 
covered quotient is equal to regular binary division except that if there is a remainder, a 1 
is added to the regular quotient. 





The operator */ denotes a binary shift left or right. A*/B indicates a left shift and is 
equivalent to A*2® . A*/(—B) indicates a right shift and is equivalent to A/2® . 
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4.3.2. Logical Operators 
The symbols **, ++, and —— are the three logical operators. The characters ** 
represent the logical product (AND), and characters ++ represent the logical sum 
(OR), and the characters —— represent the symmetric difference (exclusive OR). 


Each bit of the first term is compared with its corresponding bit in the second term 
and the result of the comparison is placed in the corresponding position in the 
resulting term. (See Section 12.) The result of the bit comparison for each operator is: 





4.3.3. Relational Operators 


The three relational operators are the equals operator =, the greater than operator >, 
and the less than operator <. 


The equals operator is used to compare the value of two terms or expressions. If the 
two values are equal, the assembler assigns a value of 1 to the expression; 
otherwise, a value of O is assigned. 


The greater than operator makes a comparison between two terms or expressions. If 
the value of the first (left) term is greater than the value of the second (right) term, 
than a value of 1 is assigned to the expression; otherwise, a value of O is assigned. 


The less than operator compares the value of the first (left) expression or term with 
the second (right) expression. If the value of the first expression is less than the 
value of the second one, then a value of 1 is assigned to the expression; otherwise, 
a value of O is assigned. 


For the expression A+B>C, if the expression A+B has a value greater than a value of 
C, then the assembler assigns a value of 1 to the expression; otherwise, a value of O 
is assigned. 


A relational expression consists of a relational operator and its two operands. The 
operands in a relational expression may be either two character expressions (4.4.5) or 
two arithmetic expressions. A character expression may not be compared to an 
arithmetic expression. Character expressions are valid only on conditional assembly 
directives. 








UP-8913 SPERRY UNIVAC OS/3 4-16 
ASSEMBLER 


Since the evaluation of a relational expression yields an arithmetic result, a relational 
expression may be used as a term in an arithmetic expression. 





4.4. EXPRESSIONS 


An expression consists of one or more terms connected by operators. A leading minus 
sign is allowed to produce the negative of the first term. Each term in the expression 
may be either a relocatable term or an absolute term. A term is absolute if its value 
is not changed by program relocation. A term is a relocatable term if its value is 
changed by program relocation. Two relocatable terms may be considered to be paired 
if they have opposite signs and have the same relocatability attribute (that is, appear 
in the same control section). 


Evaluation of expressions obeys the following rules: 


= Multiplication and division of a relocatable term by an absolute 1 or multiplication 
of an absolute 1 by a relocatable term produces a relocatable term. 


= Multiplication of any term by absolute O yields absolute O as a result. 


= ~=If a relocatable term enters any multiply or divide operation other than the preceding, 
an error flag is given. 


= = =The number of unpaired relocatable terms at any point in the evaluation must not 
exceed 16. 





a Intermediate results of the expression evaluation are full 32-bit values; however, 
the final result is the truncated rightmost 24 bits. 


Three types of expressions, absolute, relocatable, and complex relocatable obtain 
various characteristics from the term or terms which compose them. These three 
types of expressions are discussed in 4.4.1 through 4.4.6. 


4.4.1. Absolute Expressions 


An absolute expression is an expression whose value is unchanged by program 
relocation. The absolute expression can be an absolute term or any combination of 
absolute terms. Arithmetic operators are permitted between absolute terms. 


Examples of absolute terms are: a symbol which has an absolute value, a_ self- 
defining term or a length attribute reference. 


Relocatable terms alone or relocatable terms in combination with absolute terms can 
be contained within an absolute expression. This type of absolute expression requires 
that each relocatable term be paired with another relocatable term which has the 
opposite sign and the same relocatability attribute. The paired terms need not be 
contiguous. 
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The effect of relocation is canceled by the pairing of relocatable terms with the same 
relocatable attribute and opposite signs. The absolute expression is thereby reduced to 
a single absolute value. 


The following are examples of absolute expressions: 
A 
A+A—A 
A—A+A+A 
R+A—R 
R—R+A 
(R—R)*A 
A*A 
where: 


A 
Is an absolute term. 


Is a relocatable term. 


4.4.2. Relocatable Expressions 


A relocatable expression is an expression whose value changes with program 
relocation. All relocatable expressions must be positive values. 


Relocatable terms alone or relocatable terms in combination with absolute terms can 
be contained within a relocatable expression. 


Either type of relocatable expression requires the following conditions: 
= All but one relocatable term must be paired. 
= A minus sign must not precede the unpaired (remaining) relocatable term. 


s Each pair of relocatable terms must have opposite signs and the same 
relocatability attribute. 


= The paired relocatable terms do not have to be contiguous. 
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Using the preceding requirements, a relocatable expression is thereby reduced to a single @ 
relocatable term. The following are examples of relocatable expressions: 





R 

R/1 

R+A or A+R 
R—R+R 
R—A 

R*1 or 1*R 


where: 
A 
Is an absolute term. 


Is a relocatable term. 


4.4.3. Complex Relocatable Expressions 


A complex relocatable expression is an expression that contains 2 to 16 unpaired 
relocatable terms or a negative relocatable term in addition to any absolute or paired 
relocatable terms. 





A complex relocatable expression may be written only in the operand field of either 
an A-type or Y-type address constant. (See 5.2.8 and 5.2.9.) 


Some examples of complex relocatable expressions are: 
A—R 
—R/1 
A—R—R+R—R 


where: 


A 
Is an absolute term. 


Is a relocatable term. 


4.4.4. Character Expressions 


A character expression is either a character string, a character substring, or a 
concatenation of strings or substrings. Character expressions are used as the operand 
of a SET or SETC statement or as terms in a SETB, SET, AIF, or DO relational 
expression. Any character string is considered to be greater in value than any shorter 
character string. A character expression may have a length of up to 127 characters. 
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4.4.5. Length Attribute of Expressions 


The length attribute of an expression is determined by the assembler and it is a 
function of the leading term of the expression. If the first term of an expression is an 
absolute value, a length attribute of one byte is assigned to the expression. If the 
leading term is a symbol, the number of bytes attributed to the expression is the 
same as the length attributed to the symbol. Thus, if TAG appears in the label field 
of an LH (load half word) instruction, it would have a length attribute of 4 since LH 
is a 4-byte instruction. In referencing the same label, the expression TAG+195 also 
has a length attribute of 4, but the expression 195+TAG has a length attribute of 1 
because the leading term is a decimal self-defining term. 


4.4.6. Character Strings 


A character string is at least one of the 256 valid characters enclosed by apostrophes. 
A character string, unlike a character self-defining term, is not converted and treated 
as a binary value. The value of a character string is determined by its length. Any 
character string is greater in value than any shorter character string. Rules for writing 
character strings are: 


= Two apostrophes must be written within a character string to represent one 
apostrophe. The two apostrophes are replaced by a single apostrophe. 


= Two ampersands must be written within a character string to represent one 
ampersand. A single ampersand within the character string is interpreted as the 
first character of a variable symbol. 


A character substring is a _ valid character string followed by two arithmetic 
expressions separated by a comma and enclosed in parentheses. The format is: 


character string (e,,e2) 


where: 
e; 
Specifies the leftmost character of the original string to be included in the 
substring. 
G2 


Specifies the number of characters to be in the substring. 


The expressions e, and e, must be valid SET expressions. (See 27.1.4.) If there are 
fewer characters (than the number specified by e2) remaining after character number 
e, in the string, the resultant substring is shortened to include only valid characters 
of the original string. A null character string results if e, is greater than the number 
of characters in the original string. 
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Example: 
‘PREDEFINED’ (4,6) 
will produce the character substring 
‘DEFINE’ 
Concatenation is the joining together of: 
= two character strings; 
® two character substrings; or 
# a character string and a character substring. 
A period designates concatenation into a single string of characters. 
Example: 
‘PRE’.“DEFINE’ produces 
‘PREDEFINE’ 


When a substring is to be concatenated with a following character string, the period e 
may be omitted and concatenation is assumed. 
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5. Storage Definitions 


In almost all programs, inclusion of constant value is required for mathematical 
computation, headings for reports, and values or codes for comparisons. You also 
reserve storage for work areas, record keeping, and save areas. Two methods used to 
produce constants or reserve storage are: 


= # define constant — DC 


s define storage — DS 


5.1. STORAGE USAGE 


There are 13 definition types used to describe the type and format of storage used. 
Table 5—1 lists the characteristics of each of these storage notations. All the 
definition types shown are valid for both DC and DS statements. Except for floating- 
point constants (2.9, 5.2.12, and Section 11), the formats of both statement operands 
are similar, as follows: 






LABEL AOPERATION A OPERAND 





[symbol] [a] tft, 1 wt 
[symbol] [d]t{L, ] fi 
where: 
[symbol] 
Is up to eight characters. 
d 
Is the duplication factor in decimal. 
t 


Is the definition type. (See Table 5—1.) 
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Is the explicit length factor in decimal. 


Is the constant specification for data. 


(c) 


Is the constant specification for an address. 


Constant or 
Storage Type 


Character 
Hexadecimal 
Binary 

Packed 
decimal 

Zoned decimal 
Half word, 


fixed point 


Full word, 
fixed point 


Half-word 
address 


Full-word 
address 


Base and 
displacement 


External 
address 


Full word, 


floating point 


Double word, 
floating point 


Table 5—1. Characteristics of Constant and Storage Definition Types 


Alignment 


None 


None 


None 


None 


None 


Half word 


Full word 


Half word 


Full word 


Half word 


Full word 


Full word 


Source Code 
Specification 


Characters 
Hexadecimal 
digits 


Binary 
digits 


Decimal 
digits 


Decimal 
digits 


Decimal 
digits 


Decimal! 
digits 


Expression 


Expression 


One or two 


expressions 


Relocatable 
symbol 


Decimal 


digits 


Decimal 
digits 


Storage 
Format 


Character 
Hexadecimal 
Binary 
Packed 
decimal 
Character 
Fixed-point 


binary 


Fixed-point 
binary 


Binary 


Binary 


Base and 
displacement 


Binary 


Floating- 
point binary 
normalized 


Floating- 
point binary 
normalized 


Truncation 
or Padding 


Length in Bytes 


si 


Variable 
Variable 
Variable 
Variable 


Variable 


5-2 


Maximum 


Explicit * 


256 (DC) 
65,535 (DS) 


256 (DC) 
65,535 (DS) 


256 


16 





*The maximum explicit length in bytes is that total tength produced by the explicit length factor times the duplication factor. 
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Following are DC-statement and DS-statement examples showing the use of the 
subfields, which must appear in the order stated and must not be separated by 
blanks. 


LABEL AOPERATIONA 





OPERAND 
1 10 16 

ty WRD32 DC 3CL9' CONSTANTS! 
EQUITY DS 3CL9 


duplication factor 
definition symbo! 
length factor 


constant specification 


definition or bj 
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DC 


5.1.1. Define Constant (DC) 


The define constant (DC) statement is processed by the assembler and the constant 
specification is translated into object code representing the required values. The 
maximum explicit length for a DC is 256 bytes. (See Table 5—1 for C, X, and B 
types.) 


The following five examples show the use of the subfields in a DC statement. 








LABEL AOPERATIONA OPERAND 
1 10 16 , 
1.1 N4543 pc C' 4543! 
2.) NAD DC 2C' 4543! 
3. | NAHS DC CL2' 4543! 
4. | WRD DC 2CL2' 4543! 
5.41591 DC 5CL1' 4543! 


1. Four bytes containing: frlalris[eta F13 


N4543 has a length attribute of four bytes, the number of bytes assigned the 
value ‘4543’. 


: Vtg | 


NAD also has a length attribute of four bytes, as called for by the value 
‘4543’,.even though the duplication factor calls for two such fields of four 
bytes each. 





3. Two bytes containing: | Fi4a| Fis 
NAHS has a length attribute of two bytes, as specified by the length 


modifier, and only two bytes of storage are used. The digits 4, 3 are ignored. 


4. Four bytes containing: fetaleisleia| F165 


WRD also has a length attribute of two bytes, as specified by the length 
modifier, but two fields of two bytes each are used because of the 
duplication factor of 2. The digits 4, 3 are ignored. 


' I 


L591 has a 1-byte length attribute, as specified by the length modifier of 1. 
There are five 1-byte fields, as called for by the duplication factor. The digits 
5, 4, 3 are ignored. 


5. Five bytes containing: 
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DS 


5.1.2. Define Storage (DS) 


The define storage (DS) statement is processed by the assembler and the constant 
specification is translated into reserved storage. The maximum explicit length for a DS 
is 65,535 bytes. (See Table 5—1 for C and X types.) The following five examples 
show the use of the subfields in a DS statement. Only the number, not the content, 
of the bytes reserved by a DS statement is determined by the assembler. 





LABEL AOPERATIONA OPERAND 
| 10 16 

1. J ILE DS C'4543' 

2. |AYAHC DS CL4 

3. |DNOMYAR DS 2CL4 

4, | REBEW DS 5CL1 

5. 1OREG DS 3C'ANO.A' 


1. ILE reserves a 4-byte field with a length attribute of 4. 
2. AYAHC produces the same result as line 7. 


3. DNOMYAR reserves eight bytes composed of two fields of four bytes each. 
The length attribute of DNOMYAR is 4. 


4. REBEW reserves five bytes of storage consisting of five fields of one byte 
each. The length attribute here is 1. 


5. OREG reserves 15 bytes of storage. The constant field defines a 5-byte field, 
and the duplication factor calls for three of these fields. The length attribute 
of OREG is 5. 


5.1.3. Duplication Factor 


The duplication factor designates the number of identical constants or areas to be 
generated. An unsigned decimal value is used to specify the duplication factor. If no 
duplication subfield is used, the assembler assumes a factor of 1. A duplication factor 
of zero generates neither a constant nor a storage area and, if no length factor is 
- specified, the location counter will provide the proper boundary alignment and assign 
the location counter value to the symbol used. A duplication factor of zero is not 
permitted with literals. (See Table 5—2 for an example of the use of the zero 
duplication factor.) Note that, even though the duplication factor can change the size 
of the storage area used, the use of the duplication factor does not change the length 
attribute of the field. (See 5.1.5.) The maximum value of the duplication factor is 256. 
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Table 5—2. Zero Duplication Area Examples 


WKAREA1 CL41 
WKAREA2 CL16 
WBE OCL121 
OUTPUT1 OCL121 
NEWAREA1 CL41 





NEWAREA2 CL80 
SGAW OCL121 
INPUT1 OCL121 
COUNTS OCL3 
COUNTS CL1‘5’ 
COUNT12 CL2‘12' 
CL118 





The first work area shown, WKAREA1, has the hexadecimal location OOOOD48 and is 
41 bytes long. The hexadecimal value of 41 is 29, which is added in hexadecimal to 
produce the next hexadecimal location, O00D71. (See C.1.) The next areas WBE and 
OUTPUT1 show how we can assign different symbols to the same area. They do not 
take up storage space and so would have the same address of NEWAREA1, which 
you can see is 16 bytes away from the start of the last address. The hexadecimal 
value of 16 is 10, making the address of NEWAREA1 O00D81. Now plus 80 bytes 
(hexadecimal 50) produces the address OOODFA. 





5.1.4. Definition Type 


The definition-type symbol is required for both DC and DS statements to determine 
the alignment (5.1.7), padding, truncation, storage form, and implied length. (See 5.2 
and Table 5—1 for the characteristics of the 13 types used.) 


5.1.5. Length Factor (L,) 


The length factor designates the explicit value of the length attribute of a field 
generated by a DS or DC statement. The letter n represents either an unsigned 
decimal _self-defining term or a _ positive absolute expression enclosed within 
parentheses. If any symbols are used in the expression, they must be previously 
defined. The length attribute of a field used in an assembler instruction determines 
the number of bytes generated for either that constant or reserved field. The 
maximum value of the length factor (n) is 65,536. Examples follow: 
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& LABEL AOPERATIONA OPERAND 
l 10 16 
1. | WNS DC C'LENGTH ATTRIBUTE! 
2. {| YAR DS CLI6 
3. | WOR DS 2CL16 
hk. | SGAW DC CL16'LENGTH' 
5. | STOR DC CLI6 


Examples 1 through 5 all have a length attribute of 16 bytes. The length factor is not 
required in example 1 because the constant specified is 16 bytes long. The length 
attribute of the receiving field in examples 2 through 5 is a vital element of the 
instruction. (See 12.18.) 


When used, the length factor must follow the character L. The maximum = and 
minimum values that may be explicitly specified are shown in Table 5—1 for all 
definition types. Constants that do not agree with the specified length are padded or 
truncated to the left or right, as shown in Table 5—1. 


NOTE: 


Boundary alignment is not provided when a length factor is specified. 


@ 5.1.6. 


The constant specification determines the constant, or storage to be generated. When 
an apostrophe or ampersand is_ included in the constant specification, double 
apostrophes or ampersands are used to indicate the inclusion of these characters in 
the constant. 


Constant Specification 


Examples: 


1. [vat DC C'ENTER NUMBER ''4N'' HERE! 
2. 1LG591 DC C'ENTER THE NUMBER 518691' 


This will produce 22 bytes as follows: 

1. ENTER NUMBER ‘4N’ HERE 

2. ENTER THE NUMBER 51&91 

The constant may take the form of data or an address, as shown in Table 5—1. 
Data Constant Address Constant 


@ ‘JUNE 15° (AREA1) 
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5.1.7. Alignment 





Machine instructions are aligned on half-word boundaries; constants may be aligned 
on a half word, full word, double word, or no boundary. (See Table 5—1.) When a 
length factor is specified in the DC or DS statement, no alignment is provided. A 
duplication factor of zero does not generate a constant or storage area but, for some 
types of constants, it forces a boundary alignment when no length is stated. This 
provides a method for obtaining boundary alignment before generating a constant that 
is not automatically aligned by the assembler. Bytes skipped to align constants are 
zero filled; bytes skipped to align storage areas are not. 


5.2. DEFINITION TYPES 


Data definition types generate absolute values or storage through the assembler 
interaction. There are 13 types, as shown in Table 5—1 and described in more detail 
in 5.2.1 through 5.2.12. (Also see 2.1.) 


5.2.1. Character Constants (C) 


The character C is used to specify character constants and can produce up to 256 
bytes for a DC and 65,535 bytes for a DS statemnent. All of the 256 valid card 
punch combinations can be used, but only 48 or 64 characters are_ printable, 
depending on the print set available. When the length factor does not agree with the 
constant specification, padding or truncating takes place on the right. Padding takes 
place with blanks. (See 2.1 and 2.4.) 








LABEL AOPERATIONA OPE RAND 
1 10 16 

1. ] PADDING DC CLIP'CONSTANT' 

2.1 TRUNCAT DC CL5S‘'CONSTANT' 

3.1 NORMAL OC C'CONSTANT' 


1. Produces: CONSTANTAA(ten bytes) 
2. Produces: CONST (five bytes) 
3. Produces: CONSTANT (eight bytes) 


A pair of ampersands is needed to specify a single ampersand constant. A pair of 
apostrophes is needed to specify a single apostrophe constant. 
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5.2.2. Hexadecimal Constants (X) 


The character X is used to specify hexadecimal constants and can produce up to 256 
bytes for a DC and 65,535 bytes for a DS statement. Each byte contains two 
hexadecimal digits. When the length factor does not agree with the constant 
specification, padding or truncating takes place on the left. Padding takes place with 
hexadecimal zeros. (See 2.1 and 2.3.) 





LABEL AOPERATIONA OPERAND 
] 10 16 

1.{ PADDING DC XL7'CACEDSF3FA' 

2.{ TRUNCAT DC XL4'C4CEDSF3FA' 

3.1 NORMAL DC X'CHCEDSF3FA' 


1 
| ' ] t 


3. Produces: c 


5.2.3. Binary Constants (B) 
The character B is used to specify binary constants and can produce up to 256 bytes. 
When the length factor does not agree with the constant specification, padding or 


truncating takes place on the left. Padding is done with binary zeros. The constant 
specification consists of only the numerals O and 1. (See 2.1 and 2.2.) 


1.) PADDING DC BL2'O1196' 
2.) TRUNCAT OC BL1' 19601 1168116! 
3.) NORMAL DC B'1t1pg118! 
1. Produces: 0000 


2. Produces: 1110 0110 1 byte 


0110 2 bytes 


1 byte 
3. Produces: * 
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5.2.4. Packed Decimal Constants (P) 





The character P is used to specify signed packed decimal constants. It can produce up 
to 16 bytes. When the length factor does not agree with the constant specification, 
padding or truncating takes place on the left. Padding is done with hexadecimal zeros. 
The decimal constant is written as a signed or unsigned number. If unsigned, the 
number is assumed to be plus. A positive number is assembled with a hexadecimal C 
in the four least significant bits; a negative number has a D in this location. The 
maximum of 16 bytes can contain 31 decimal digits plus the sign. (See 2.1 and 
2.4.3.) 








LABEL AOPERATIONA OPE RAND 
1 10 16 
1.) PLUS DC P'+4543! 
2.) NEG DC p'=-4543! 
3.] UNSIGNED DC P'4543! 
4. | PADDING DC PLA' +4543! 
5.| TRUNCAT DC PL2'-4543! 
6.}ODDNUN DC P'14543! 
1. Produces: fotaleia T 
3.1C 3 bytes 
2. Produces: 3 bytes 
3. Produces: folalsia | 1c |. Soy 
4byt 
4. Produces: [otofots|sia{sic] 
2 bytes 
t 
5. Produces: Bn 210 oe 
j 
Bs, Serducass pria[stalsic 


5.2.5. Zoned Decimal Constants (Z) 


The character Z is used to specify zoned decimal constants. It can produce up to 16 
bytes. When the length factor does not agree with the constant specification, padding 
or truncating takes place on the left. Padding is done with zoned zeros (FO). A plus or 
unsigned number is assembled with a C in the zone half of the rightmost byte; a 
negative number will have a D in this location. (See 2.1.) 





1. |} PLUS Z'+4543' 
2.) NEG pc Z'=4543! 
3.] UNSIGNED DC Z'4543' 

4. |] PADDING DC ZL5'+4543' 
5.| TRUNCAT DC ZL3'-4543! 
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1. Produces: an a Fiale I 3 hie 


! 
2. Produces: Fia4lFy5tFt4]043 | 4bytes 
J 


5 
3. Produces: Fial/Fis5 Pei 4 Cla) sabe 
1 1 1 i 
F F,4{/Ci3 5 byte 
5. Produces: FIs Pe 14 | Di 3] Sbytes 


NOTE: 


A zoned decimal number is also known as a signed unpacked number. (See 
2.4.3.1 and 2.4.3.2.) 


’ 5.2.6. Half-Word Fixed-Point Constants (H) 


The character H is used to specify half-word fixed-point constants. It can produce up to 8 
bytes. If no length factor is specified, the length attribute equals the implied length of 2 
bytes. Padding or truncating takes place on the left. Padding is done with the sign of the 
value, binary O for a positive number and binary 1 for a negative number. The constant 
specification may not contain over five significant decimal digits nor a value greater than 
+32767 (2'5—1) or less than —32768 (—2'5). Unsigned values are treated as positive 
values. The data is aligned on a half-word boundary if no explicit length is specified; 
otherwise no alignment takes place. (See 2.1, 2.5, and Section 10.) 





LABEL AOPERATIONA OPERAND 
1 10 16 
1. ] PLUS] DC HL1'+57! 
2.) PLUS2 pc H'57! 
3.] NEGI DC HL1'=57! 
4.1 NEG2 DC H'=57! 
(+) sign bits 
1. Produces: 1 byte 
pt 


) t 
2. Produces: 0000 1 0000 | 0011 1 1001 2 bytes 


(—) sign gue | 
3. Produces: 1 byte 
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5.2.7. Full-Word Fixed-Point Constants (F) 





The character F is used to specify full-word fixed-point constants. It can produce up to 
eight bytes. If no length factor is specified, the length attribute equals the implied length of 
four bytes. Padding or truncating takes place on the left. Padding is done with the sign of 
the value, binary O for a positive number and binary 1 for a negative number. The constant 
specification may not contain over 10 significant decimal digits nor a value greater than 
+2,147,483,647 (23'—1) or less than —2,147,483,648 (—23').. Unsigned values are 
treated as positive values. The data is aligned on a full-word boundary if no explicit length 
is specified; otherwise no alignment takes place. (See 2.1, 2.5, and Section 10.) 











LABEL AOPERATIONA OPERAND 
] 10 16 

1. | PLUS2 DC FL2'+271! 

2.] PLUS4 DC F271! 

3. {| NEG2 DC FL2'-271' 

4. | NEG4 DC F'-271' 


Sign bits a | | 
T 1 | 
0000 : 0001 0000 1111 2 bytes | 


0000 ! 0000 | 0000 1 0000 | oo00 ; 0001 | oooo | 1111 
i 4 


Sign bits 


1. Produces: 






2. Produces: 4 bytes 








5.2.8. Half-Word Address Constants (Y) 


The character Y is used to specify half-word address constants. It can produce up to two 
bytes. If no length factor is specified, the length attribute equals the implied length of two 
bytes. Padding or truncating takes place on the left. Padding is done with binary zeros. A 
length factor of one byte may be specified for absolute expressions only. The expression 
may be a positive or negative absolute value or a relocatable symbol representing the 
address of an instruction or item of data within the program. Alignment is on a half-word 
boundary if no explicit length is stated; otherwise no alignment takes place. The maximum 
value that can be specified is 2'5—1 (32,767). 


1. | WRD DC Y (EQUITY) 
2. | WBE oc YL1(9) 
3. J WMC DC Y(9) 
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@ 1. Produces a 2-byte area containing the address of the instruction EQUITY. 


i] 
2. Produces: 0000 + 1001 1 byte 
' T 
1001 
3. Produces: | 0° ; 0000 | 0000 | 100 2 bytes 


5.2.9. Full-Word Address Constants (A) 


The character A is used to specify full-word address constants. It can produce up to 
four bytes. If no length factor is specified, the length attribute equals the implied 
length of four bytes. Padding or truncating takes place on the left. Padding is done 
with binary zeros. Length factors of one or two bytes may be specified for positive or 
negative absolute values. The maximum value that can be specified is 23'—1 
(2,147,483,647). Alignment is on a_ full-word boundary if no explicit length is 
specified; otherwise no alignment takes place. 





LABEL AOPERATIONA OPERAND 
1 10 16 

1. | WRD DC A(VALLEY) 

2.) WBE pc AL1(9) 

3. | WMC DC AL2(9) 


1. Produces a 4-byte area containing the address of the instruction VALLEY. 


t 
2. Produces: 0000 1 1001 1 byte 
1 


5.2.10. Base and Displacement Constants (S) 


The character S is used to specify base and displacement constants. It can produce a 
2-byte area. The only length factor that may be specified is 2. No padding or 
truncating can take place. Alignment is on a_ half-word boundary when the length 
factor is not used. Neither negative values nor literals may be used. This instruction 
produces a 2-byte area, as follows. 


1 BYTE 1 BYTE 


a a eee ee EE mee 
! 
I 
| 
0 314 7 
Nn rn ae 


BASE 
REGISTER 
(4 BITS) 


DISPLACEMENT 
(12 BITS) 
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The first four bits (half byte) contain the number of the base register used in this 
constant. The next 12 bits contain the value of the displacement to be added to the 
value in the register to produce the full address of the constant. 





In the following example, in line 1, the value 5000 will be placed in register number 
9 at execution time. (See 19.2 for the USING directive.) In line 2, assume the 
program has produced the address of 5025 to be assigned to the instruction called 
ELI, and this instruction is 25 bytes away from the area covered by register number 
9. The instruction CHAYA, line 3, specifies the address of ELI, which is register 
number 9 (value 5000) plus a displacement of 25 bytes to give 5025. The instruction 
REBEW does not use an address symbol but explicitly states the displacement, 25 
bytes, and register number 9. 


Examples: 
LABEL AOPERATIONA OPERAND 
| 10 16 





USING 5008 ,9 





ELI DC C'CONSTANT! 
CHAYA DC S(EL!) 
REBEW pc S$ (25(9)) 


The constants produced in lines 3 and 4 show the hexadecimal values of the base 
register and the displacement as follows: 





BASE DISPLACEMENT 
REGISTER 
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5.2.11. External Address Constants (V) 


The character V is used to declare references to special external symbols. The 
constant must be used to reference an executable instruction which is external to the 
program. The reference symbol need not be identified by an EXTRN statement. (See 
19.5.) 


The only length factors that may be specified are 3 or 4. If no length factor is used, 
the length attribute equals the implied length of four bytes and alignment will be on 
a full-word boundary. 


Padding or truncating takes place on the left. Padding is done with hexadecimal zeros. 


The specification of a symbol in the operand field of a type V constant does not 
constitute a definition of the symbol. 


Until the program containing the external symbol is linked to the program with the V 
type constant, the value of the assembled constant is composed of hexadecimal zeros. 





Example: 
LABEL AOPERATIONA OPERAND 
i} 10 16 
LODGE DC V (TRAVEL) 


As the address value of this DC instruction (TRAVEL) is externally defined, the 
following constant is generated. 


5.2.12. Floating-Point Constants (E and D) 


The format of floating-point constants differs from the standard format of the DC 
statement (5.1) in that an additional subfield (the scale modifier) may appear. The 
format for floating-point constants is as follows: 







OPERAND 
[d] t(L,, ][S+n] ‘c[E+n] ’ 


A OPERATION A 
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where: 
d 
Is the duplication factor. 
t 
Is the definition type (E, full word; D, double word). 
Ly 
Is the explicit length factor in decimal. 
S-+n 
Is the scale modifier. 
‘c[E-tn]’ 


Is the constant specification with optional exponent. 


The subfields must be written in the order given. The d, t, and Lp subfields are 
discussed in 5.1. The scale modifier must be a positive signed or unsigned decimal 
number. If the sign is omitted, a positive value is assumed. The scale modifier is 
applied to a number after it has been converted to internal format. 


Two types of floating-point constants are available: full word (E) and double word (D). 
The implied length of an E type constant is four bytes; if the length modifier is 
omitted, full-word boundary alignment is assigned. The implied length of a D type 
constant is eight bytes; if the length modifier is omitted, double-word boundary 
alignment is assigned. In either case, an explicit length modifier of from one to eight 
bytes may be specified. 





A floating-point number is written as a decimal number. It can be an integer (110), a 
fraction (0.75), or a mixed number (110.75). The floating-point number may be 
followed by an optional exponent represented by an E, a sign, and a decimal number, 
respectively. In the absence of a sign, a plus sign is assumed. 


The exponent for a constant is that power of 10 by which that constant will be 
multiplied before its conversion to internal format. This exponent value may range 
from —85 to + 75. 


The machine representation of the constant consists of a hexadecimal fraction 
(mantissa) and a hexadecimal exponent (characteristic). The decimal point is assumed 
to be at the left of the leftmost digit of the fraction. The characteristic represents the 
power of 16 by which the fraction must be multiplied to obtain the value of the 
constant. The machine format is shown in Figure 5—1. 
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(SHORT FORMAT) 


characteristic mantissa 
(exponent) (fraction) 
6 hexadecimal digits 


(LONG FORMAT) 


DOUBLE characteristic mantissa 


(fraction) 
(exponent) 
yORe P 14 hexadecimal digits 


where: 


SIGN 
is the O bit, the sign of the mantissa. 


CHARACTERISTIC 


Is a 7-bit binary number (signed and biased by the hexadecimal value 40,,, decimal value 64) reflecting the scaling of 
the floating-point number. 


MANTISSA 
Is the fraction after the constant has been converted to its machine representation; scaling is performed if specified. 





Figure 5—1. Floating-Point Number Formats 


Example: 


The floating-point value is the product of the mantissa (fraction) and the base 16 
raised to the power of the biased characteristic (exponent) after the exponent has 
been reduced by 64. The decimal number 255 will generate the floating-point 
number 42FFOQOO. 





A OPERATION A OPERAND 


Decimal 255 = the fraction X16. The floating-point number shown in hexadecimal 
form is 42FFOOOO. 


In this example: 


n = hexadecimal 42 (decimal value 66) fraction = .FFOOOO (decimal value .9961 
from Table C—2). Therefore, 42FFOOOO equals: 


.9961 X 1666-64 
or .9961 X 16, 
or .9961 X 256 
or 255 
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If scaling is not specified, the fraction is hexadecimally normalized; that is, all 
leading hexadecimal zeros are removed, and the characteristic is adjusted by 1 
for each zero removed. Rounding is then performed, and the number is 
assembled into the field as specified by the explicit or implicit length. Negative 
fractions are carried, not in twos complement, but in true representation. 


The scale modifier must be a positive value from O to 14. This modifier specifies 
the number of hexadecimal positions (four bits) the number is shifted to the 
right. Scaling provides an unnormalized floating-point number. The characteristic 
is adjusted to reflect the number of hexadecimal positions the number has been 
shifted. If any hexadecimal positions are lost, rounding occurs in the rightmost 
hexadecimal position retained. 


Examples: 
ree CDEP PPT 
renee" Teo Te [Peet 
vocemateg como. [TeToToTePeTeTe] 


See 2.6, Section 11, and Appendix C. 





5.3. LITERALS 


A literal is a representation of data within a source code statement and can be coded 
in the sending field of either operand. A literal is simply a constant coded with an 
equal sign followed by a type code and a nominal value enclosed within single 
quotation marks. 


The method of describing and specifying a constant as a literal is almost identical to 
the method of specifying it in the operand field of a DC statement. When a literal is 
assembled, the data is stored in a “‘literal pool’’ which is a special area in main 
storage where all literals are placed. The address of that storage field in the literal 
pool is then placed in the operand field of the assembled statement. 

If two identical literals occur within one literal pool, only the first literal is stored. 
The permissible use of literals are: 


m Any type of data can be used to specify a literal. 


= Only one reference to the same literal in a coding statement can be made. 





= 6A literal is always in the sending field of an operand. 
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m Literals are relocatable because the address (not the literal itself) is assembled in 
the coding statement. 


# Literals can be self-defining terms which are recognized by the absence of the 
equal sign, also referred to as immediates. 


= Duplication factors can be used in the specification of literals and are expressed 
only by unsigned decimal values except zero. 


= Length attributes can be used in the specification of literals and are expressed 
only by unsigned decimal values. 


The nonpermissible use of literals are: 

= A literal can never be used in the receiving field of an operand. 

= @6A literal cannot be combined with other terms. 

a It cannot be specified within the parenthesis of an address constant. 
= It cannot be specified in a shift instruction, or an I/O instruction. 

= A literal cannot have an explicit base or an explicit index. 


= Absolute (with all terms previously defined), relocatable, or complex relocatable 
expressions cannot be used as either duplication factors or length attributes. 


Example: 
LOC. OBJECT CODE ADDR] ADDR2 LINE SOURCE STATEMENT 
000000 1 STC START 0 
000000 0530 2 BEGIN BALR 3,0 
000002 3 USING *,3 
000002 58B0 3016 00018 iH L 11,AMTIN 
000006 SABO 301E 00020 5 A 11,=F'5! 
O0000A 42B0 301A OOOIC 6 STC 11,STOR 
7 DUMP 
O00000E A 8+ DS OH 
A O+* 
A 10+ THE DUMP PARAMETER IS A 1-4 BYTE HEX CODE 
A 11+ 
OO000E 1700 A 12+ XR 0,0 CLEAR DUMP CODE 
000010 OAIB A 13% SVC 27 DUMP SVC 
000014 14 DS F 
000018 0000088C 1S AMTIN DC F'2236! 
0000I1C FO404040 16 STOR oc CL4'0! 
000000 17 END BEGIN 
000020 00000005 18 =F's! 


On line 5 of the sample program, a literal is used in the sending field of operand 2. | 
The equal sign is used followed by the type code (which in this case is F, full word) 
and the nominal value enclosed in single quotation marks. Note that the object code 
produced when the literal is assembled is the address (00020) of the field in the 
literal pool where that literal was placed. Line 18, under object code, shows the 
literal actually generated. 
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6. Symbol Definitions 


Byte locations in main storage are numbered consecutively starting with zero. Each 
number is considered the address of the byte of data stored at that location. A group 
of consecutive bytes is addressed by the leftmost byte. A symbol appearing in the 
label field of a statement defining an instruction, constant, or storage area is assigned 
the address value of the first byte of the source statement with which the symbol is 
associated. The following rules apply to the general use of symbols. 


a Must 
= Must 
= Must 
= Must 
= Must 
= Must 


start in column 1 

start with an alphabetic character or special letter 

consist of only alphabetic characters, numeric characters, and special letters 
not be longer than eight characters 

not include a space (blank) or other special character 


be followed by a blank 


Example of valid label field symbols: 


LABEL AOPERATIONA OPERAND 
1 10 16 

W DC P'hg69! 

N4S43 DS PL4 

DNOMYARD DC C'59¢' 


CASHSOUT BALR R5,6 
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Examples of invalid symbols: 

LABEL AOPERATIONA OPERAND 

1 10 16 
T.] EQUITY DC P'hg2! 
2.) 4543 DS ZL4 
3.] READ ONE PACK OPER! ,OPER2 
4.{ CONSISTORY DC C'86' 

1. Invalid because symbol does not start in column 1 


2. Invalid because symbol does not start with an alphabetic character or special letter 


3. Invalid because symbo! contains a special character (space) 


= 


Invalid because symbol is longer than eight characters 


6.1. EQUIVALENT SYMBOLS 


To make a program more meaningful, the programmer may use more than one 
symbol to represent the same value or location. The same output area could be called 
NURECORD (in one place) and OUTPUT1 in another part of the program. The EQU 
directive (Section 16) can be used, as shown in this section, to equate these symbols. 
An EQU may be used to equate any symbol to any other symbol or to a value. Only 
the operands may declare expressions. 


NURECORD EQU OUTPUT} 
RB EQU g 

Rl EQU 1 

R2 EQU 2 

R3 EQU 3 

R12 EQU 12 

R13 EQU 13 

RIVA EQU 14 


RI5 EQU 15 
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@ After the EQU directive, a register instruction could be written in any of the following 
ways: 
LABEL AOPERATIONA OPERAND 
1 10 16 
a a a a a 
ADD AR 1,2 
ADD AR R1,R2 
LOAD LA 5 ,2(5) 
LOAD LA R5,2(R5) 
MOVE MVC WKAREA, REC 
MOVE MVC 15(7,9) ,5(19) 
MOVE MVC 15(7,R9) ,5(R1B) 
NOTE: 


Throughout, the register notations (RO through R15) represent the registers O through 15. 


6.2. SYMBOL APPLICATIONS 


Symbols are used not only to identify storage areas and constants but also to locate 
instructions in the program. In the following example, the branch instruction with the 
symbol RETURN calls for a branch to the location CONSIS32 under certain conditions. 
instruction called TRAVEL branches around the nonexecutable DC 
constants to the location SQUARE. 


r The branch 


BEGIN 


CONSIS32 


TRAVEL 
WMC 
WRD32 


SQUARE 


TITLE 
START 
BALR 

USING 


MVC 


DC 
DC 


"SYMBOL USE' 


R3,RO 
* R3 


VALLEY ,CONSISTO 


SQUARE 
Cc ‘ 365 1 
Cc '32! 


R2,R4 
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LABEL AOPERATIONA OPERAND 

1 10 16 

RETURN BC 7,CONS1S32 

MASTER CLC WEEKS52,=P'52! 
E0U 

RO EQU ) 

R2 EQU 2 

R3 EQU 3 

R4 EQU 4 

REBEW OC P'+52! 

WEEKS52 EQU REBEW 

VALLEY DS CL32 

CONSISTO DS XL32 
END BEGIN 


The EQU directives show 
R3, and R4 for registers 


how to use the symbol WEEKS52 for REBEW; also RO, R2, 
O, 2, 3, and 4. 


Through the extensive use of symbols and the assembly listing cross-reference, you 
can trace every use of a data area or instruction routine. (See 28.5.) 
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7. Introduction to Application 
Instructions 


7.1. INSTRUCTION AND FORMAT CONVENTIONS 


Certain conventions have been adopted in this manual for specifying instruction, 
directive, macro, proc, and control-statement formats. The following describe these 
conventions. 


There are eight types of assembler application instructions: 


RR — Register-to-register 

RX — Register-to-storage-indexed or storage-to-register-indexed 

RS — Register-to-storage-nonindexed or storage-to-register-nonindexed 
e& Sl — Storage immediate 

SS — Storage-to-storage (Type SS1) 

SS — Storage-to-storage (Type SS2) 

S — Storage 
SM — Storage mask 


Figure 7—1 illustrates the source code and object code formats for each of these 
instruction types. (Also see Section 4.) 





€L68-dN 





Source Code instruction Format Object Code Instruction Format 
pai 
First Half Word Second Half Word Third Half Word 
Byte 1 Bytes 3 and 4 Bytes 5 and 6 
32 35 136 





[symbol] opcode "yo ® Isymbot] opcode rr, 


! . 
we |. [+ _| 


} 
I 
| 
| 
| 
! 
! 
| 
| 














| { addres: 
! a 3 
@ H H operand 2 
[symbol] opcode r 192 (x, b,) [symbol] opcode F8Q(x,) 1 
A 
' J 
® fre ! address 
| op 1 op bee ' operand 2 
\ [symbol] opcode r, wy! a, (o,) [symbot] opcode Fy aS Tern Re CY eee 
' ' 
| immediate | address f 
1 ' 
pean ate ns ee ee 


ae! Seed aa ee 


i?) 
0 
BY 
3 x 
: address Hs 2 
m 
Lymbell: ppeede'd_ (0.1 [symbol] opcode s. ' esa es 22 
ox 
ne eee Gon een ap 
4 io) 
| length | address ! address oO 
: op 1 and op 2 | operand 1 ; operand 2 < 
[symbol] opcode d, (I,b,) .d, (b) [symbol] opcode s, (I),s, H aa ee w 


\ i length address address | 
1 1 opt op 2 ' operand 1 1 eter eee aa 2 
[symbo!] opcode q, (1,,b,},4, (1,65) (symbol] opcode 84 (I, ) Solty) { nee ce H 


aE 


ae [symbol] opcode d,(b,)i, 


immediate immediate displacement t address 
, : operand 2 mask 3 4 1 See ee, 1 | 
[symbo!] opcode qd, (b,),i,,m,.d, [symbol] opcode $11.4, i x ee ! 
ee oe | 
Y 11 [12 19 120 32 35 136 
NOTES: 
@) The RR instruction has three other forms: ® The RS instruction has two other forms: 
[symbol] opcode i, for the SVC instruction; the RS shift instructions are written without use of the r; operand, in the form: cx 
ai 
[symbol] opcode r, for the SPM instruction; and {symbol] opcode r,d,(b2); and o N 
-> 
oO 
{symbol] opcode m,,r, for the BCR instruction. some RS instructions such as ICM and CLM are written in the form: ow 
i @) The RX instruction BC is written in the form: {symbol} opcode 1, M3, d (b2). 


{symbol] opcode m,, dz (x2, b.). 


Figure 7—1. Instruction Formats (Part 1 of 2) 
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Characters Meaning 
OPCODE The application instruction operation code. 
" The number of the general register containing operand 1 
‘> The number of the general register containing operand 2 
rg The number of the general register containing operand 3 
Xp The number of the general register containing an index number for operand 2 of the RX instruction 
i, The immediate data used as operand 1 of the SVC instruction 
ip The immediate data used as operand 2 of an SI instruction 


| The length of the operands as stated in source code* 


| The length of operand 1 as stated in source code* 


5 The length of operand 2 as stated in source code* 

b, The number of the general register containing the base address for operand 1 
b, The number of the general register containing the base address for operand 2 
qd, The displacement for the base address of operand 1 

d, The displacement for the base address of operand 2 

d 4 The displacement used as operand 4 of an SM instruction 

mM, The mask used as operand 1 ~<- 
m3 The mask used as operand 3 of an SM instruction 

op, Operand 1 

op, Operand 2 

op, Operand 3 

5, The symbol used to identify operand 1 in the implicit format 


The symbol used to identify operand 2 in the implicit format 


*In source code, the length you specify is 1 greater than the object code length. The reason for this is that O is the first length 
count, not 1. For example, | can address a maximum length of 256, but in actuality, ! get O through 255 bytes. The assembler 
makes a reduction of 1 in the length when converting source code to object code. 


Figure 7—1. Instruction Formats (Part 2 of 2) 
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An instruction is an executable statement for operations involving data. The assembler 
instructions are two, four, or six bytes in length. (See Figure 7—1.) In a 2-byte (RR) 
instruction, the registers are referenced for both operands. A 4-byte (RS) instruction 
references a register for the first operand and main storage for the second operand. A 
4-byte (RX) instruction references registers for the first and second operands and main 
storage for the third operand. A 4-byte immediate operand (Sl) instruction references 
main storage for the first operand and immediate data for the second operand. A 6- 
byte (SS) instruction references main storage for both operands. 





NOTE: 
All instructions are aligned by the assembler on a half-word boundary. 


The implied length field may be applicable with the SS1 and SS2 type instructions. If 
no length is specified in an SS1 type instruction, the length attribute of the first 
operand is assembled into the length field of the instruction. The length attribute of 
an operand is the length attribute of the expression used to define the storage 
location. The SS2 type instruction contains a length field for each operand; however, 
neither, either, or both length fields may be implied. In every case, the assembler 
puts the operand lengths, implied or specified, into the length fields. 


The following are examples of implied and explicitly stated lengths. 








LABEL AOPERATIONA OPERAND 
] 10 16 
NUMBERI2 DC ZL12'+9! 
NUMBER7 DC Z'1234567! 
1.] PAD PACK NUMBERI2 ,NUMBER7 
2.|)FILLUP PACK NUMBERI 2(4) ,NUMBER7 
3. | TRUNCATE PACK NUMBER12 (4) , NUMBER7 (3) 


Instruction 1 (PAD) packs all seven digits and the sign of operand 2 (NUMBER7) into 
four bytes of operand 1 (NUMBER12), then zero fills the remaining eight bytes of the 
implied fieid of 12 bytes. Instruction 2 (FILLUP) packs all seven digits and the sign of 
operand 2 into the explicit four bytes of operand 1. Instruction 3 (TRUNCATE) packs 
only the explicitly stated three digits and the sign of operand 2 into the explicit four 
bytes of operand 1. Labeled instructions themselves are assigned implied lengths 
based on instruction type. 


There are six basic ways to explain how an assembler application instruction is 
written: the implicit format, the implicit source code example, the explicit format, the 
explicit source code example, the object code format, and the object code example. 
The first four methods are shown for each instruction in this part of the user guide, 
as the subject of object code formats covered in 4.3.1, and are discussed again in 
assembly listings (Part 6). The following shows how the move character instruction is 
written. 
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Implicit source code: 


Format: 






A OPERATION A OPERAND 


[symbol] s, (1,8, 
Example: 
LABEL AOPERATIONA OPERAND 
1 10 16 
MOVES MVC LODGE ,MASTER 
MOVE32 MVC LODGE (32) ,MASTER 


Explicit source code: 


Format: 







A OPERATION A OPERAND 





[symbol] d, (1,b, ),d, (b,) 


Example: 

S 32 
MOVE32 MVC B2(B,R2) ,3(R3) 
Object code: 


Format: 


opcode 
(8) 7 
36 47 


Example as shown on an assembly listing: 


OOODF5 D2 1F 20F1 30FC 
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7.2. EXPLICIT FORMS 


The first line is how the explicit format is expressed, and the second line is an 
example of how you might write the explicit source code form of the add instruction. 


Explicit Format: 


LABEL AOPERATION A OPERAND 
[symbol] r, d(x, ,b,) 
ADDREC R2,32(R3,R5) 





7.3. IMPLICIT FORMS 

The first line is how the implicit format is expressed, with the following one or more 
lines being examples of how you might write the implicit source code forms of the 
add instruction using symbols to represent registers and data areas. 


Implicit Format: 





A OPERATION A OPERAND 







[symbol] ry Sy (x5) 
ADDFOR R2, PAYSUM 
ADDREG R2, PAYSUM(R3) 


7.4. DEFINITIONS OF FORMAT TERMS 

Figure 7—1 explains all the terms used in describing the explicit and implicit forms of 
the instructions. The following additional explanations will help you to understand the 
implicit and explicit forms of programming coding. 


= The general registers r;, f2, or r3 are shown in the RO through R15 form. 


= The index register x, and the base registers b, and bz are also shown in the RO 
through R15 form. 


LJ The terms s, and s,. represent the use of a symbol (4.2.1 and Section 6) in the 
first or second operand. 


= The displacement d, or d, is a decimal value which is combined with the value 
in some base register. 


= A_checkoff table is included for each applicable instruction in the text. 
Explanations of the program exceptions are provided in Appendix D. 











UP-8913 SPERRY UNIVAC OS/3 8-1 
ASSEMBLER 





8. Branching Instructions 


8.1. USE OF BRANCHING INSTRUCTIONS 


Branching instructions are used to alter the normally sequential execution of 
instructions by branching out of sequence to link to a subroutine, make a decision, or 
control looping. The operand 2 field of each branching instruction refers to the 
address (branch to) of the instruction to be executed immediately after the branching 
instruction. The branch-to address in operand 2 is stored in bits 40—63 of the 
current program status word (PSW) (Figure 8—1). The PSW is a double word 
containing the address of the next instruction and various other control fields. In 
general, the PSW is used to control instruction sequencing and to hold and indicate 
the status of the system in relation to the program currently being executed. (See the 
processor programmer reference for a complete description of the PSW.) 


Reecres| MODE ee 
SYSTEM MASK ae ee 


; eee 


; eee F isrmucrowavoness ADDRESS 


eed 33|34 — 


—_—— 










= 
mMypuMH 
mupom 
mupum 
mMmapvn 
MDPVA 
mMypuoH 


Nh 
w 
ey 
a 
~ 


BYTE 





BYTE 





Condition 


Code 
Address of the next instruction 


to be processed (branch to) 


Figure 8—1. Program Status Word Diagram 
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While the program is executing, it utilizes the PSW (called the current PSW), which is 
stored in the supervisor portion of the operating system. Before a branch out of the 
sequence of the program to a new location, the present location of the program is 
stored in the PSW. That PSW (called the old PSW) is saved, and the program uses a 
new PSW (current) to keep track of pertinent program information. In other words, the 
old PSW holds the place in the program if you want to return to where you were 
before branching to a routine or instruction in another area, and the current PSW 
keeps track of the running program regardless of where you branched. 





For an explanation of the checkoff table exceptions, see Appendix D. 


8.2. EXTENDED MNEMONIC CODES 


Possible Program Exceptions 


[J ADDRESSING C] PROTECTION 

(J DATA (INVALID SIGN/DIGIT) | (] SIGNIFICANCE 

( DECIMAL DIVIDE (CD SPECIFICATION: 

C1 DECIMAL OVERFLOW NOT A FLOATING-POINT REGISTER 
OD execute OP 1 NOT ON HALF-WORD BOUNDARY 






OBJECT 











OPCODE 


(BYTES) 
axaAar| 2or4 | 


Condition Codes 


CJ iF RESULT = 0, SET TOO 
Cie RESULT <o, SET TO1 
Clif RESULT >0, SET TO 2 
LJ iF OVERFLOW, SET TO 3 
BB UNCHANGED 


FORMAT 
TYPE 
















CL] EXPONENT OVERFLOW OP 2 NOT ON HALF-WORD BOUNDARY 
CO EXPONENT UNDERFLOW OP 2 NOT ON FULL-WORD BOUNDARY 


CD FIXED-POINT DIVIDE OP 2 NOT ON DOUBLE-WORD 


CJ FIXED-POINT OVERFLOW BOUNDARY 
C] FLOATING-POINT DIVIDE OP 1 NOT EVEN NUMRERED REGISTER 


[J OPERATION OP 1 NOT ODD NUMBERED REGISTER 
NONE 





The extended mnemonic codes are used like the branch on condition (8.4) instruction. 
Extended mnemonics are the shorthand version of the branch on condition (BC) 
instruction. They are easy to use because you do not need to remember the decimal 
value that is associated with the operand 1 mask of the branch on condition 
instruction. You merely remember the mnemonic. The extended mnemonics create the 
mask value, which tests the condition code. If the specific condition or conditions you 
want to branch on exist, a branch is made to the address specified in operand 2. 


Before a branch is made, the address of the running program is saved, thus enabling 
you to return to that point if desired. It is a good idea to familiarize yourself with the 
branch on condition instruction and Table 8—1 before you use the extended 
mnemonics. 


Table 8—1 is a listing of the extended mnemonic codes. The hexadecimal operation 
codes (with mask) and functions, categorized by instruction type, are grouped 
according to use. Also included are the branch on condition (BC) instruction 
equivalents. An example of a handwritten coding form follows. 
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i ee 


@ Example: 


LABEL AOPERATIONA OPERAND 
] 10 16 





| (amin 
DC P's! 


oP, 


1. The compare decimal (CP) instruction compares the packed decimal contents 
of A against the packed decimal contents of B. Based on the results, the 
condition code in the PSW is set to 1 (operand 1 < operand 2). 


@ 2. The next sequential instruction executed is branch if equal (BE). The mask (8) 
tests for condition code O (operand 1 = operand 2). Since the condition is 
not O, no branch is made, and the next sequential instruction is executed. 


3. Since no branch was made, the next sequential instruction executed is 
branch if low (BL). The mask (4) tests for condition code 1 (operand 1 < 
operand 2). Since the condition code is 1, a branch is made to the operand 
2 address (LOW). In this example, LOW is the address of an add decimal 
instruction, which is the instruction executed after the BL instruction. 


Note that the next sequential instruction is branch if high (BH), but it is not 
executed after the BL instruction. 


Table 8—1. Extended Mnemonics and Functions (Part 1 of 2) 


RR-Type Instructions RX-Type Instructions BC Equivalent 
i H imai 
Mnemonic pany Mnemonic ae Explicit 
Code acne Code pia Form 
Code/m, Code/m, 


Used to Branch Around Nonexecutable Assembler Instructions and Directives 






























BCR 15,15 Branch unconditionally 
& BCR Oro No operation 
BC 18, do{x5,b5) Branch unconditionally 





BR 07 F = - 
NOPR 070 - a 
- - 8 47 F 
- - NOP 470 


BC 0,do(x5,b5) No operation 
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Table 8—1. Extended Mnemonics and Functions (Part 2 of 2) 
RR-Type Instructions RX-Type Instructions BC Equivalent 


. Hexadecimal : Hexadecimal 
Mnemonic 7 Mnemonic Oo 
Code Operation Code peration 
Code/m, Code/m, 


Used After Comparison instructions 
























































2,do(x5,b5) Branch if high 
















4,do(xo,b9) Branch if low 
8,d5(x5,b9) Branch if equal 
13,d5(x5,b9) Branch if not high 
11,dg(x5,b5) Branch if not low 






7,dg(xo,b Branch if not equal 


2) 





Used After Test-Under-Mask Instructions 

























1,do(x5,b9) Branch if all ones 
8,do(x5,b5) Branch if all zeros 
4,do(x5,b5) Branch if mixed 
14,dy({x5,b9) Branch if not all ones 
7,do(x5,b5) Branch if not all zeros 






11,dg(x5,b5) Branch if not mixed 


Used After Arithmetic Instructions 

















1,d5(x5,b9) Branch if overflow 
8,d5(x5,b9) Branch if zero 
4,d5(x5,.b5) Branch if minus 
2,d5(x5,b5) Branch if positive 
14,d5(x5,b5) Branch if not overflow 
7,dy(x5,b5) Branch if not zero 








Branch if not minus 
Branch if not positive 


11,d5(x5,b9) 
13,do(x5,b5) 
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BAL 
BALR 


8.3. BRANCH AND LINK (BAL, BALR) 


Possible Program Exceptions 


OBJECT || 7 ADDRESSING (] PROTECTION 


OPCODE | FORMAT | INST 
; IGNIFICAN 
ae nares (C DATA (INVALID SIGN/DIGIT)| [) S CANCE 


new lees (eytes) || (J OECIMAL DIVIDE CO sPECIFICATION: 


4] 0D DECIMAL OVERFLOW NOT A FLOATING-POINT REGISTER 


145 | RX 
BALA tet re Olexecute - OP 1 NOT ON HALF-WORD BOUNDARY 


OC EXPONENT OVERFLOW OP 2 NOT ON HALF-WORD BOUNDARY 
Condition Codes C0 EXPONENT UNDERFLOW OP 2 NOT ON FULL-WORD BOUNDARY 


O OC FIXED-POINT DIVIDE OP 2 NOT ON DOUBLE-WORD 
O - saan ee Seo (0 FIXED-POINT OVERFLOW BOUNDARY 

: 0 FLOATING-POINT DIVIDE OP 1 NOT EVEN NUMBERED REGISTER 
OF RESULT >0O, SET TO 2 
Dif OVERFLOW, SET TO 3 (] OPERATION OP 1 NOT ODD NUMBERED REGISTER 
BB UNCHANGED NONE 





The branch and link (BAL and BALR) instructions alter the normally sequential 
execution of instructions by branching to an address you specify in operand 2. The 
instruction located at that address is the next instruction executed after the branch 
and link instruction. Before the branch is made, the address of the next sequential 
instruction (current location) is saved in the operand 1 register to enable you to 
return to the location where you were before branching. 


Explicit Format: 







A OPERATION A OPERAND 


[symbol] 


[symbol] rails 


Implicit Format: 







A OPERATION A OPERAND 


[symbol] 





UP-8913 


Example 








SPERRY UNIVAC OS/3 8-6 
ASSEMBLER 


1 (BAL): 


LABEL AOPERATIONA OPERAND 
10 16 


l 


2.| NEXTSEQ AP 






6 ,BRANCHTO 
A,B 


3.) BRANCHTO CP A,B 
A DC P'654! 
B DC P'123! 


Example 





In this coding example, the BAL instruction alters the sequential execution 
of instructions by causing a branch to an area in main storage labeled 
BRANCHTO. Before the branch, the address of the next sequential instruction 
is stored in register 6 (location of NEXTSEQ). 


Since a branch took place, the normally sequential execution of the add 
decimal (AP) instruction (NEXTSEQ) is skipped. 


This compare decimal (CP) instruction is processed immediately following the 
BAL instruction, since its label (BRANCHTO) is the branch-to address 
(operand 2) of the BAL instruction. 


2 (BALR): 


l. LA 4 ROUTINE 
2. BALR 6,4 
NEXTSEQ AP A,B 
ROUTINE CP NUM,=P'15! 
BL LOW 
BH HIGH 


NUM 


DC P'26' 
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1. This load address (LA) instruction puts the address of an instruction labeled 
ROUTINE (CP) into register 4. 


2. The BALR instruction stores the address NEXTSEQ in register 6, then 
branches to the branch address in register 4. Since register 4 is the address 
of ROUTINE, the instruction following the BALR instruction is compare 
decimal (CP). 


Operational Considerations: 


= You may specify any of the general registers (0 through 15) as operand 1 in both 
the BAL and BALR instructions, and any of these registers as operand 2 of the 
BALR instruction. 


= The address of the instruction following the BAL or BALR instruction is placed in 
the operand 1 register. Then the branch to the address specified in operand 2 is 
made. 


= If you specify O in the operand 2 register of a BALR instruction, it means you 
are not specifying a branch-to address, and, therefore, no branch takes place. The 
instruction executed after the BALR is the next instruction in sequence. 


8.3.1. Use of the BALR Instruction in Base Register Assignment 


The BALR instruction is used in conjunction with the USING directive (see 18.2) to 
assign a base address to a register. This address becomes the starting address of 
your program. The BALR instruction and the USING directive must be coded in the 
following order: 





LABEL AOPERATIONA OPERAND 
| 10 16 
BASEREG START Gg 
BEGIN BALR 3,0 
USING *, 
OPEN INFILE, (1NRIB) 
READ DM INP INFILE 


The BALR instruction in this example stores the address of the next sequential instruction 
(OPEN) in register 3. No branch takes place since O is specified as operand 2. Logically, the 
address of the USING directive should be stored in register 3, since that is the next 
instruction. However, USING is a directive and not an executable instruction. Directives are 
information to the assembler only. They do not generate any object code nor increase the 
location counter. Therefore, OPEN is the next executable instruction following the BALR 
instruction. 
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The USING directive tells the assembler that register 3 is going to be used as the 
base register for this program. Register 3 can accommodate a program up to 4096 
bytes in length. If your program is larger than this, additional base registers can be 
assigned. (See 18.2.) Operand 1 tells the assembler at what point in your program 
your base register should start being used. The asterisk (*) means ‘start now”. So, 
operand 1 indicates starting now, all addresses of the following instructions will use 
the register specified by operand 2 (in this case, 3) as the base register. 





In the following printout example, an LA instruction (line 3) is coded after the BALR 
instruction, causing an addressability error. The BALR instruction (line 2) stores the 
address of the next sequential instruction (LA) in register 3. No branch takes place 
since O is specified as the operand 2 register. At location counter 000002, no object 
code was generated for the LA instruction because the assembler does not assemble 
an erroneous instruction. it does, however, increase the location counter by the 
number of bytes that the instruction occupies. Now, register 3 contains the address of 
the LA instruction at OOO002 but the USING directive (line 4) tells the assembler that 
Starting at location counter OOOOO6, all succeeding instructions will use register 3 as 
the base register. The USING directive assumes that register 3 contains the address 
at location counter OOOO06 but in reality contains the address at location counter 
000002. So, all the addresses of every instruction and label in this program will be 
calculated as being four bytes more than its actual location. Therefore, the BALR 
instruction and USING directive must always refer to the same address so that the 
base and displacement values can be accurately calculated. 





Example: 
LOC. OBJECT CODE ADOR} ADOR2 LINE SOURCE STATEMENT OS/3 ASM 80/01/03 
cacooo 1 TSTUSING START U 
cooodu 0530 2 BEGIN eALR 3,0 
Qucoo2 4170 0090 00916 3 LOAD LA T,LIST 
*** ERROR 8% 
Goccos 4 USING ¥,3 
5 OPEN PRINT,(PRINTRIB)D 
cocode 0749 A 6* CNOP C4 Pa000960 
Qooud0s 4520 300E Cools A T+ BAL 11,4412 P9001150 
Cocooc 81 A 8+ oc x"8l° Pe001160 
Cacogo onue2o A 9 oc AL3¢(PRINT) P3001170 
ooco1g sO A 10+ oc x*eo° Ps0c1186 
coculi younsc A lle oc AL3{PRINTRIB) Ps001190 
COCO1l4 YA26 A 12+ svc 38 ISSUE SVC Pa002170 
cacole 14 LIST os GcLi2 


16 

25 

26 PRINT cols 

33 PRINTRI8B RI6 IOA1=OUTPUT,BFSZ2=120 
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@ BC 


BCR 


8.4. BRANCH ON CONDITION (BC, BCR) 


Possible Program Exceptions 


(J ADDRESSING CD PROTECTION 

(DATA (INVALID SIGN/DIGIT) | [J SIGNIFICANCE 

(CO DECIMAL DIVIDE DC sPEctFICATION: 

OC DECIMAL OVERFLOW NOT A FLOATING-POINT REGISTER 
O execute OP 1 NOT ON HALF-WORD BOUNDARY 
(C0 EXPONENT OVERFLOW OP 2 NOT ON HALF-WORD BOUNDARY 
(C] ExPONENT UNDERFLOW OP 2 NOT ON FULL-WORD BOUNDARY 
OC] FIxX€D-POINT DIVIDE OP 2 NOT ON DOUBLE-WORD 

(1 FIXED-POINT OVERFLOW BOUNDARY 

CO FLOATING-POINT DIVIDE OP 1 NOT EVEN NUMBERED REGISTER 
C oPERATION OP 1 NOT ODD NUMBERED REGISTER 
NONE 


OBJECT 
OPCODE FORMAT | INST. 


LGTH. 
(BYTES) 


Y BCR [07 | 
Condition Codes 


O1F RESULT = 0, SET TOO 
Clif RESULT <0, SETTO1 
Coir RESULT >0, SET TO 2 
OJ1F OVERFLOW, SET TO 3 
BB UNCHANGED 









BOO Oooood 





The branch on condition (BC and BCR) instructions change program sequence based 
on the condition code setting of the PSW. You specify in the operand 1 mask a 
decimal value that tests the condition code to see whether the branch-causing 
condition exists. If the condition of the branch does exist, a branch is made to the 

@ operand 2 address you specify in the branch on condition instruction. If the condition 
of the branch does not exist, no branch takes place, and the next sequential 
instruction is executed. 


Explicit Format: 







A OPERATION A OPERAND 





[symbol] 
[symbol] 


m,,fr 





1/°2 


Implicit Format: 


LABEL A OPERATION A OPERAND 
[symbol] m,,S(x,) 
[symbol] BCR m,,¢ 





1° 


2 


The condition code, bits 34—35 of the PSW, reflects the result of an instruction 
executed prior to the branch on condition instruction. There are four possible condition 
code settings: 

& lf result = O, set to O. 


If result < O, set to 1. 
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If result > O, set to 2. 





If overflow, set to 3. 


The decimal values that can be specified in the operand 1 mask are O through 15, 
each of which has a 4-bit binary representation. 


=# The decimal value 8 (1000) tests for condition code O. 
= The decimal value 4 (0100) tests for condition code 1. 
= The decimal value 2 (0010) tests for condition code 2. 
m= The decimal value 1 (0001) tests for condition code 3. 


Note that only one bit is set for each condition. When more than one bit is set in the 
4-bit binary configuration, it is possible to test for multiple conditions. 


8 4 2 1 decimal 
To [s [a] sey 
4 bits 
8 + 2 = 10 





The decimal value 10 tests for: 
1. condition code O (result is equal to zero); and 
2. condition code 2 (result is greater than zero). 


Table 8—2 lists the 16 values and each condition code it tests. 


Table 8—2. Operand 1 Mask Combinations 


Results 


Possible Combinations of Branches on Causing 
Decimal Binary Condition Codes Condition Code Branch 
Value Value 


no operation None 

Overflow 

>0 

>0 or overflow 
<o 

<0 or overflow 
#0 

#0 or overflow 
=0 

= 0 or overflow 
20 

20 or overflow 
<0 

<0 or overflow 
Any value 

Any value or overfiow 


w 


NNW 
wo 


. 


ODN OMA WH | * 


11=8+2+1 
12=8+4 
13=8+4+1 
14=84+4+2 
15=8+4+2+1** 





3 
2 
2 
1 
1 
1 
1 
0 
0 
0 
0. 
0 
0 
0 
0 





*No condition code is tested and no branch takes place. The next sequential instruction is executed. 


**Unconditional branch 
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Table 8—3 lists the explicit format of the BC instruction with different mask values 
and their relation to the condition tested. 


Table 8—3. Branch-on-Condition Instruction by Usage 


Hexadecimal 
Operation 
Code ™m, 


Mnemonic Explicit 
Format 


Used to Branch Around Nonexecutable Assembler Instructions and Directions . 


Branch unconditionally 
No operation 
Branch unconditionally 
No operation 


Used After Comparison Instructions 


2,do(x5,b5) Branch if high 
4,do(x5,b5) Branch if tow 
8,do(x5,b5) Branch if equal 
13,do(x5,b9) Branch if not high 
; 11,do{x5,b5) Branch if not low 
7 Ag(x5,b5) Branch if not equal 


Used After Test-Under-Mask Instructions 


1,do(x5,b5) Branch if all ones 
8,do(x5,b5) Branch if all zeros 
4,do(x5,b5) Branch if mixed 
14,d5(x5,b5) Branch if not all ones 
7,do(x5,b9) Branch if not all zeros 
1 1,d5(x5,b5) Branch if not mixed 


Used After Arithmetic Instructions 


1,d5(x5,b5) Branch if overflow 
8,d5{x5,b5) Branch if zero 
4,do{(x5,b5) Branch if minus 
2,do(x5,b5) Branch if positive 
14,d5(x,b5) Branch if not overflow 


7,d9{x5,b5) Branch if not zero 
11,do(x,,b5) Branch if not minus 
13,d5(x5,b5) Branch if not positive 





Operational Consideration: 


= You can specify any of the general registers (2 through 12) as operand 2 of the 
BCR instruction. 
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Example (BC): 


LABEL AOPERATIONA OPERAND 
10 16 


] 





S.| EQUAL AP A,Cc 
A Dc P'656! 
B Dc P'65g" 
C oc Pty]! 


In this example, two packed decimal values are compared. After the result is 
obtained, the condition code is stored in the PSW. The branch instructions are 
executed sequentially, and when the proper condition for the branch-on condition 
exists, a branch to the operand 2 address takes place. 


1. 


Operands 1 and 2 compare equally since both A and B contained the packed 
decimal 650. The condition code is set to O. 


The operand 1 mask 2 tests for condition code 2. Since the condition code is 
not 2 (operand 1 > operand 2), the next sequential instruction is processed. 


The operand 1 mask 4 tests for condition code 1. Since the condition code is 
not 1 (operand 1 < operand 2), the next sequential instruction is processed. 


The operand 1 mask 8 tests for condition code O. Since the condition code is 
O (operand 1 = operand 2), a branch to the address of operand 2 (EQUAL) 
takes place. 


Since the add decimal instruction has the label EQUAL, that is the 
instruction executed after the branch-on condition regardless of the 
sequential instructions in between. 
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@ BCT 


BCTR 


8.5. BRANCH ON COUNT (BCT, BCTR) 


OBJECT 
OPCODE FORMAT | INST. 
TYPE LGTH. 


Condition Codes 







[I] ADDRESSING C) PROTECTION 

(J DATA (INVALID SIGN/D1GIT)| [1] SIGNIFICANCE 
(J DECIMAL DiviDE OC SPECIFICATION: 
() DECIMAL OVERFLOW 
(J execute 





NOT A FLOATING-POINT REGISTER 

OP 1 NOT ON HALF-WORD BOUNDARY 
OP 2 NOT ON HALF-WORD BOUNDARY 
OP 2 NOT ON FULL-WORD BOUNDARY 


OP 2 NOT ON DOUBLE-WORD 
BOUNDARY 


OP 1 NOT EVEN NUMBERED REGISTER 
OP 1 NOT ODD NUMBERED REGISTER 
NONE 


OO EXPONENT OVERFLOW 
{( EXPONENT UNDERFLOW 
0 FIXED-POINT DIVIDE 

OD FIXED-POINT OVERFLOW 
CJ FLOATING-POINT DIVIDE 
C OPERATION 


Oe RESULT = 0, SET TOO 
Of RESULT <o, SET TO 1 
Clif RESULT >O, SET TO 2 
Cote OVERFLOW, SET TO 3 
G@ UNCHANGED 


MOO OoOoOo0 





The branch on count (BCT and BCTR) instructions branch to the same instruction or 
routine a number of times (loop). Normally, before you execute a branch on count 
instruction, you load one of the general purpose registers with a value (the count) 
that refers to the number of times you want to loop to an instruction or routine. You 
€ specify the register containing the counter as operand 1 in your branch on count 
instruction. Each time the branch on count instruction is executed, the operand 1 
register is decremented by one. Then the register is checked for a value of zero. If 
zero is not found, a branch to the instruction at the operand 2 address takes place. If 
the counter is O, no additional branching takes place, and the next sequential 
instruction is executed. You can use the BCTR instruction to decrement the counter 
register (operand 1) without branching, by specifying the operand 2 register as O. 
When BCTR is executed, the value in the operand 1 register is decremented by 1, but 
since no branch address is supplied, the next sequential instruction is executed. 


Explicit Format: 









A OPERATION A OPERAND 





[symbol] r,,d,(x,, b,) 


[symbol] 





ae) 


Implicit Format: 











LABEL A OPERATION A OPERAND 


[symbol] 


& [symbol] 


Myely 





UP-8913 SPERRY UNIVAC OS/3 8-14 





ASSEMBLER Update B 
Example: 
LABEL AOPERATIONA OPERAND 
1 10 16 








rl. 
2. 
3.]| BRANCHTO AP SUM , AMOUNT 
4, BCT 6, BRANCHTO 

NEXTSEQ MP SUM , VALUE 

AMOUNT DC P'15¢! 

SUM DC PL3'g! 

This coding example adds AMOUNT (150) to SUM 10 times and stores the result 

in SUM (3-byte field). 

1. The subtract (SR) instruction subtracts the operand 2 register value from the 
operand 1 register value and puts the result in operand 1. In this case, 
register 6 is subtracted from itself, thus making it O. It is a good idea to 
clear a register before using it. 

oa 2. The /oad address (LA) instruction loads a count of 10 into register 6. 


3. The add decimal (AP) instruction adds the packed decimal value in AMOUNT 
(150) to whatever is stored in SUM and stores the answer in SUM. SUM is 
defined as a packed decimal constant containing O. After the AP instruction 
is executed once, SUM contains 150. 


4. The BCT instruction subtracts 1 from register 6. Since register 6 now 
contains 9, the AP instruction labeled BRANCHTO is executed again. After 
the AP is executed twice, SUM contains 300. The BCT instruction executes 
nine more times until the counter (register 6) is O. On the 10th attempt, no 
branch takes place, and NEXTSEQ is executed. 


Operational Considerations: 

a The maximum value you can specify in the operand 1 counter register is 232. 

= You can specify any of the general registers (0 through 15) as operand 1. 

= You can specify the operand 2 register of the BCTR instruction as O if you want 
to decrement the operand 1 counter register by 1 without causing a branch. 


When you specify O in operand 2, the next sequential instruction of your program 
is executed following the BCTR. 





= The branch-to address in operand 2 is determined before the operand 1 register 
is decremented. 
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) BXH 


8.6. BRANCH ON INDEX HIGH (BXH) 


Possible Program Exceptions 


(J) ADDRESSING 0 PROTECTION 

(0 DATA (INVALID SIGN/OIGIT)| [] SIGNIFICANCE 

(0 DECIMAL DiviDE (0 SPECIFICATION: 

0 DECIMAL OVERFLOW NOT A FLOATING-POINT REGISTER 

CO execute OP 1 NOT ON HALF-WORD BOUNDARY 
0 EXPONENT OVERFLOW OP 2 NOT ON HALF-WORD BOUNDARY 
(0 EXPONENT UNDERFLOW OP 2 NOT ON FULL-WORD BOUNDARY 
CO FIXED-POINT DIVIDE OP 2 NOT ON DOUBLE-WORD 

O FIXED-POINT OVERFLOW BOUNDARY 

C0 FLOATING-POINT DIVIDE OP 1 NOT EVEN NUMBERED REGISTER 
C1 OPERATION OP 1 NOT ODD NUMBERED REGISTER 


NONE ~~ 


OBJECT 
OPCODE FORMAT | INST. 


TYPE LGTH. 
(BYTES) 


Condition Codes 


CJ iF RESULT = 0, SET TOO 
Olir RESULT <0, SETTO1 
Or RESULT > 0, SET TO 2 
OF OVERFLOW, SET TO 3 
BBUNCHANGED 









The branch on index high (BXH) instruction algebraically compares the sum of the 
operand 1 register and operand 3 register to either the operand 3 register or one 
greater than the operand 3 register (comparand register). If the sum is greater than 
the content of the comparand register, a branch to the instruction located at the 

& operand 2 address takes place. If a greater than condition does not exist, your 
program continues processing with the instruction following the BXH instruction. The 
sum is always placed in the operand 1 register after the comparison. 


Explicit Format: 








A OPERATION A OPERAND 


[symbol] 


Implicit Format: 


LABEL A OPERATION A OPERAND 


[symbol] ry. tg, 8. 
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This instruction algebraically adds the content of the operand 1 register to the content 
of the operand 3 register. The sum is algebraically compared to the content of an 
odd-numbered register (which can be the same as the operand 3 register) or a 
register that is one larger than the operand 3 register. If the sum is greater than the 
content of the odd-numbered register it is being compared to, a branch to the 
instruction located at the operand 2 address takes place. If the sum is less than or 
equal to the content of the odd-numbered register it is being compared to, the 
program continues processing with the instruction following the BXH_ instruction. 
Following the comparison, the sum is placed in operand 1. Usually, the BXH 
instruction is executed several times (depending on program logic) until the content of 
the operand 1 register is greater than the odd-numbered register it is being compared 
to. Then the branch to the instruction located at the operand 2 address takes place. 


Operational Considerations: 
= Any of the general registers (0 through 15) can be used as operands 1 and 3. 


= Any odd-numbered register either equal to operand 3 or one greater than 
operand 3 can be used as the comparand register. 


= Operand 2 can be any location in main storage. 
= The rules of algebra apply to both the addition and the comparison operations. 


= The condition code remains unchanged. 





Example: 
LABEL AOPERAT IONA OPERAND 
1 10 16 
LA 3,4 
LA 4,19 
LA 5,11 
BXH 3,4, LOOP 
AP CARDIN,=P'569! 
LOOP CP CARDIN MAXIMUM 
CARDIN DC PL3'@! 


MAXIMUM DC PL3'1900B' 








8-17 
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& Registers 3 and 4 before execution of BXH instruction: 
binary 
hex 
t 





In this example, the decimal value 4 is loaded into register 3, the decimal value of 10 
is loaded into register 4, and the decimal value of 11 is loaded into the comparand 
register 5. When the BXH instruction is executed, the contents of registers 3 and 4 
are algebraically added together, the sum being decimal value 14 (hexadecimal E). The 
& sum is algebraically compared to the content of register 5 and then placed in register 


3. Since the sum is greater than the content of register 5, a branch to the instruction 
labeled LOOP takes place. There, the content of CARDIN is compared to the content 


of MAXIMUM. 
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BXLE 


8.7. BRANCH ON INDEX LOW OR EQUAL (BXLE) 


Possible Program Exceptions 


(OD ADDRESSING C] PROTECTION 
(C0 DATA (INVALID SIGN/DIGIT) | [) SIGNIFICANCE 

(0 DECIMAL DiviDE C0 SPECIFICATION: 

CJ DECIMAL OVERFLOW NOT A FLOATING-POINT REGISTER 
OJ execute OP 1 NOT ON HALF-WORD BOUNDARY 
C EXPONENT OVERFLOW OP 2 NOT ON HALF-WORD BOUNDARY 
(C2 EXPONENT UNDERFLOW OP 2 NOT ON FULL-WORD BOUNDARY 
0 FIXED-POINT DIVIDE OP 2 NOT ON DOUBLE-WORD 


O FIxED-POINT OVERFLOW BOUNDARY 
CO FLOATING-POINT DIVIDE OP 1 NOT EVEN NUMBERED REGISTER 


(O OPERATION OP 1 NOT ODD NUMBERED REGISTER 











OBJECT 
OPCODE FORMAT | INST. 












TYPE LGTH. 
(ev TES) 


Condition Codes 


CJ tr RESULT = 0,SET TOO 
Olir RESULT <O, SET TO1 
Cir RESULT >0, SET TO 2 
CIF OVERFLOW, SET TO3 
HB UNCHANGED 



























BOO oOooo00 


2 
° 
Zz 
m 


The branch on index low or equal (BXLE) instruction algebraically compares the sum 
of the operand 1 register and operand 3 register to either the operand 3 register or 
one greater than the operand 3 register (comparand register). If the sum is less than 
or equal to the content of the comparand register, a branch to the instruction located 
at the operand 2 address takes place. If a less than or equal to condition does not 
exist, the program continues processing with the instruction that follows the BXLE 
instruction. The sum is always placed in the operand 1 register after the comparison. 


Explicit Format: 







A OPERATION A OPERAND 


[symbol] 


Implicit Format: 







A OPERATION A OPERAND 


[symbol] 
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@ This instruction algebraically adds the content of the operand 1 register to the content 
of the operand 3 register. The sum is algebraically compared to the content of an 
odd-numbered register, which can be the same as the operand 3 register, or a 
register that is one larger than the operand 3 register. If the sum is less than or 
equal to the content of the odd-numbered register it is being compared to, a branch 
to the instruction located at the operand 2 address takes place. if the sum is greater 
than the content of the odd-numbered register it is being compared to, the program 
continues processing with the instruction following the BXLE instruction. Following the 
comparison, the sum is placed in operand 1. Usually, the BXLE instruction is executed 
several times (depending on program logic) until the content of the operand 1 register 
is less than or equal to the odd-numbered register to which it is being compared. 
Then the branch to the instruction located at the operand 2 address takes place. 


Operational Considerations: 
= Any of the general registers (0 through 15) can be used as operands 1 and 3. 


= Any odd-numbered register either equal to operand 3 or one greater than 
operand 3 can be used as the comparand register. 


= Operand 2 can be any location in main storage. 


a The rules of algebra apply to both the addition and the comparison operations. 





& = The condition code remains unchanged. 
Example: 
LABEL AOPERATIONA OPERAND 
1 10 16 
L 4 ,VALUEI 
L 5 ,VALUE2 
BXLE 4,5,BRANCHTO 
NEXTSEQ AP A,B 
BRANCHTO CP A,B 
VALUE] DC F'-3! 
VALUE2 DC F'lg! 
A DC PL4'266' 
B oC PL2'16' 


In this example, the values —3 and +10 are loaded into registers 4 and 5, 

respectively. The BXLE instruction compares the sum of the content of registers 4 

and 5 (+7) to the content of the comparand register, register 5. Since +7 is less 

than 10, the branch is taken. The next instruction executed (CP) is located at 
@ BRANCHTO. 
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EX 


8.8. EXECUTE (EX) 


Possible Program Exceptions 


fy ADDRESSING Wi PROTECTION 
(0 DATA (INVALID SIGN/DIGIT) | [) SIGNIFICANCE 

(C0 DECIMAL DIviDE W@ SPECIFICATION: 

C1 DECIMAL OVERFLOW NOT A FLOATING-POINT REGISTER 

M@ ExecuTE OP 1 NOT ON HALF-WORD BOUNDARY 
OC ExPONENT OVERFLOW OP 2 NOT ON HALF-WORD BOUNDARY 
CO ExPONENT UNDERFLOW OP 2 NOT ON FULL-WORD BOUNDARY 
CO FIXED-POINT DIVIDE OP 2 NOT ON DOUBLE-WORD 


0D FIXED-POINT OVERFLOW BOUNDARY 
C] FLOATING-POINT DIVIDE OP 1 NOT EVEN NUMBERED REGISTER 


CO orERATION OP 1 NOT ODD NUMBERED REGISTER 
NONE 













OBJECT 
OPCODE FORMAT | INST. 













TYPE LGTH. 
(BYTES) 


Condition Codes 


Clif RESULT = 0,SETTOO 
Otr RESULT <0, SET TO1 
Cl'& RESULT >0, SET TO 2 
CJIF OVERFLOW, SET TO 3 
SEE OPER. CONSIDERATIONS 






















OOO OOOO 





The execute (EX) instruction is used to branch to an instruction elsewhere in your 
program, execute it with or without having modified it temporarily, and then branch 
back to the instruction following the EX instruction. 


Explicit Format: 






A OPERATION A OPERAND 


[symbol] 


Implicit Format: 


LABEL A OPERATION A OPERAND 





The address specified by operand 2 is the address of the instruction to which you 
branch following the EX instruction. This instruction, specified by operand 2, is called 
the subject instruction. The operand 1 register determines whether or not change will 
be made to the subject instruction before execution. If register O is specified as the 
operand 1 register, no change is made to the subject instruction and it is executed 
following the EX instruction as if it were the next sequential instruction. 
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On the other hand, if any register other than zero is specified, bits 8 through 15 of 
the subject instruction are changed. This change is accomplished by the logical 
addition OR on the contents of bits 24 through 31 of the operand 1 register that you 
previously loaded and the contents of bits 8 through 15 of the subject instruction. 
(See logical OR instruction.) The result is placed in bits 8 through 15 of the subject 
instruction. The contents of the operand 1 register remain unchanged. Moreover, the 
change to the subject instruction is temporary and effective only during this execution 
of the subject instruction. 


The instruction address and instruction length of the current PSW is changed by the 
execution of the EX and_ subject instruction. Normally, instruction sequencing 
continues with the instruction following the EX instruction. However, if the subject 
instruction is a successful branch instruction, the instruction address of the current 
PSW is replaced by the branch address and instruction sequencing resumes with the 
instruction address specified by the branch. If the sels instruction is a BAL or 
BALR, - P 

dink register. The shaded portion of each instruction shows what portion of it the 


operand 1 register affects. 
ey  finkre ye shy pill be sded sj I4 ‘the adleass 


EX instruction: : The Js 5 Fein Tien De wig the EX ip shea ct eh, 
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Subject instruction is SS Type 1: 





Operational Considerations: 


. It isn’t a good idea to alter instructions, but if it’s absolutely necessary, you can 
use the EX instruction for that purpose. 


= You can specify any of the general registers (O through 15) as operand 1. 





. Before the EX instruction causes a branch to the address you specify in operand 
2, the current program address is stored in the PSW. Unless the branch to 
instruction (operand 2) is a successful branch instruction, sequential instruction 
execution follows execution of the subject instruction. 


2 If a program interrupt occurs after completion of the subject instruction, the old 
PSW contains either the address of the instruction following the EXECUTE or, in 
the case of a successful branch, the branch address. The current PSW contains 
the address of the instruction causing the interrupt (i.e., the operand 2 address in 
the EX instruction, or the branch-to address if a successful branch occurred 
before the interrupt). 


= If the subject instruction is another EX instruction, a program exception occurs. 


= A program exception can be caused by either the EX instruction itself or by the 
subject instruction. 


# The condition code can be set by the subject instruction. 
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Example: 
LABEL AOPERATIONA OPERAND 
1 10 16 
er Ee Eee EE yO a a re aT 
L =F 3! 
EX 4 MOVE 
MOVE MVC 6(8,5), INPUT 
DS BH 
INPUT DS CL8¢ 
MOVE before execution 1 2 rig 5 and 6 


of EX instruction and 


after execution of MVC | o2|o | 
1 


instruction: 
1 
0000 ' 0000 | 0000 | 0000 | 0000 ' coco 
2431 
MOVE instruction during fo] | s | 
execution of MVC igs Sa) sah] 


instruction: 





Register 4 before and 
after execution of EX 
instruction: 


In the preceding coding example, register 4 is loaded with a value of 3. The EX 
instruction is executed. Register 4 indicates that change will be made to the subject 
instruction (MOVE). A branch is made to the subject instruction and a logical addition 
OR is performed on the contents of bits 24 through 31 of register 4 and the contents 
of bits 8 through 15 of the MVC instruction. The result is placed in bits 8 through 15 
of the MVC instruction only for the duration of this execution of the MVC instruction. 
After execution of the MVC instruction is completed, a branch is made back to the 
instruction following the EX, and processing continues. 








UP-8913 SPERRY UNIVAC 0S/3 9-1 
ASSEMBLER 


9. Decimal and Logical Instructions 


9.1. USING DECIMAL INSTRUCTIONS 


Decimal instructions perform arithmetic calculations on data located in main storage, 
using storage-to-storage instruction format. You must put decimal numbers into main 
Storage before attempting to use them in mathematical calculations. Storage-to-storage 
instructions do not allow the use of general registers for calculations, since registers 
handle binary, not decimal, numbers. Decimal instructions are slower than instructions 
that use general registers (binary arithmetic, floating-point, etc.), because two main 
storage locations (specified in the operand fields) are accessed each time a decimal 
instruction is executed. 


In assembly language, decimals are expressed in either unpacked or packed format. 
Format refers to the way bits represent decimal numbers. Unpacked format is the 
standard form in which numbers are brought in to the system (input), and sent out 
from the system (output). Packed format is the standard form in which numbers are 
used in mathematical calculations. 


Numbers written in unpacked format are movable from one location in main storage 
to another and are printable on input and output devices. Arithmetic operations, 
however, can only make use of packed decimal numbers. Therefore, you must pack 
each number before you use it. In turn, you must then unpack the number before you 
output it (either to a printer or any other character sensitive device). 


Unpacked format uses eight bits to represent a decimal number. The leftmost four bits 
are the zone field, and the rightmost four bits are the decimal digit in binary. 





The zone portion of a number is always a binary 1111 which is a hexadecimal F. The 
F in the zone field indicates that any decimal digit (O—9) in the digit field is a 
numeric character in EBCDIC (Extended Binary Coded Decimal Interchange Code). 
These relationships are shown in the following chart. 
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Decimal Hexadecimal Binary 

O FO 11110000 
11110001 
11110010 
11110011 
11110100 
11110101 
11110110 
11110111 
11111000 
11111001 
















OMONOORWNH 


Since decimal operations require the number you use to be in packed format, the 
decimal numbers must be defined as packed constants or converted from unpacked to 
packed format. To convert from unpacked to packed format, use the pack decimal 
(PACK) instruction. The PACK instruction removes the zone bits of the unpacked 
decimal, thus expressing the same value in fewer bytes of main storage. 


In both unpacked and packed formats, the sign is expressed in the rightmost byte 
which is the zone portion in unpacked format and the rightmost digit portion in 
packed format. 


The hexadecimal numbers A through F can be sign values that are either positive or 
negative, and are used in either ASCII or EBCDIC mode. A hexadecimal A and B are 
used for output of data in ASCII mode only. A represents a positive value and B 
represents a negative value. 


A hexadecimal C, D, and F are all used for internal processing in EBCDIC mode. C 
represents a positive value, D represents a negative value, and F represents an 
unsigned number which is assumed positive. If you attempt to print an unpacked 
decimal number with hexadecimal C or D as the sign value, an alpha character is 
printed for the rightmost byte instead of a decimal digit. Hexadecimal C and D must 
be changed to hexadecimal F either through the ED or OI instruction to print the 
correct value. 


A hexadecimal F is used for output of data in EBCDIC mode and represents an 
unsigned number which is assumed positive. 


The following illustrations represent a 3-digit decimal number in both packed and 
unpacked format. Notice the positions of the zone and digit portions: 


Unpacked Format: 


[zoe] st] sone i] wn | 


byte 1 byte 2 byte 3 
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Packed Format: 


eS ee” 


eS 
byte 1 byte 2 


These illustrations represent the decimal number +456 in both packed and unpacked 
format. 


: byte 1 byte 2 byte 3 
Unpacked: 


Packed: 





byte 1 byte 2 


There is a zone portion for every digit and one sign value in unpacked format and 
only digits and one sign value in packed format. Notice the number of bytes the 
unpacked format occupies in contrast to the packed format. The decimal number +456 
occupies three bytes when unpacked and only two bytes when packed. The sign value 
hexadecimal C indicates that 456 is a positive number. 


9.2. DEFINING PACKED AND UNPACKED CONSTANTS AND MAIN STORAGE 
AREAS 


You can specify packed or unpacked constants and reserve areas in main storage 
destined to hold packed decimal values by using the define constant (DC) and define 
storage (DS) statements. Their format is: 













A OPERATION A OPERAND 





[symbol] [al { \ [Ln] ‘c’ 
[symbol] [d] \ [Ln] [‘c’] 
Duplication factor eo sess hl | 

Definition type 

Length factor 


Constant specification 


In this format, symbol is an optional predefined label that names the location of the 
constant or main storage area. The symbol’s main storage address is the address of 
the leftmost byte of the constant or main storage area specified in the operand field. 
Relative addressing (symbol + 4) is acceptable. 


cnc anecmmmmesnmmmmmmmmssaassacsnaaaaaaasaaaaaaaaaaaaaaaaaaaaaaasaaaaaaaaaaaaasaaaaaaaaaaaaaaaaaacaaaaaaaaaaaaaamaacaaiaaaaasaiaaaaaaamascaicamiasieiia 
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The duplication factor d is a decimal number that tells the assembler how many times 
you want the constant reproduced or how many areas of the same length you want 
reserved in main storage. Specifying the duplication factor saves you the time of 
defining the same constant or area more than once. 





The definition type is P for packed or Z for zoned (unpacked), which indicates the type 
of constant or main storage area you are specifying. There are other definition types 
available, but are used for other applications (Table 5—1). 


The length factor Ln specifies the number of bytes of storage reserved for a constant 
(DC) or an area to be used in your program (DS). If no length is specified, the 
assembler assigns the length of the constant specified within apostrophes. By 
explicitly specifying a length, you can determine the lengths of all the fields in your 
program regardless of how large or small your constants are. 


The constant itself (c) is enclosed in apostrophes. In the case of a DS statement, the 
constant you enclose in the apostrophes is not actually generated, but its length 
determines the length of the main storage area allocated. Embedded blanks cannot be 
used in packed and zoned type constants. 


9.2.1. Packed Decimal Constants and Main Storage Areas 


When you specify packed decimal constants, the character P is the definition type in 

the operand field. Packed decimal constants can be up to 31 decimal digits (16 bytes) @ 
and can be signed or unsigned. If unsigned, the value is assumed to be positive. The 

address of the symbol you put in the label field is the address of the constant you 

define in the operand field. When you specify a packed decimal constant, the actual 

decimal value you specify is placed into main storage. 





Example: 
LABEL AOPERATIONA OPERAND 
1 10 16 

1.) NUM Dc P'+4563' 

2.) NUM2 oc PL3'123' 

3.) NUM3 DC 2PL2'123' 


1. This coding statement produces this packed decimal constant in main 
storage. The 3-byte length is implied since sree bytes are needed to hold 
the constant and its sign. 
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2. This coding statement produces this packed constant in main storage. In this 
case, the 3-byte length isn’t needed to hold the constant, but since a length 
of three is specified, three bytes are allocated. The number is right-justified 
and thus the most significant unused bytes are zero-filled. 


3. This coding statement produces two consecutive, duplicate 2-byte constants 
in main storage. 


The character P also is the definition type for defining packed decimal storage areas 
(i.e., areas destined to hold packed decimal data). The address of the symbol you put 
in the label field is the address of the constant you define in the operand field. No 
actual constant is placed into the area you reserve, and the area is not cleared of 
any data it may already contain. You are merely reserving a main storage area for 
future use. 





Example: 
LABEL AOPERATIONA OPERAND 
1 10 16 

1.] NUM4 DS P'+44563'! 

2.) NUMS5 DS PL2 

3.1 NUM6 DS PL1'6! 


1. This coding statement reserves a 3-byte area in main storage. The statement 
does not put the packed decimal +4563 into that area but merely reserves 
an area large enough to hold it. 


2. This coding statement reserves a 2-byte area in main storage. It does not 
clear the area or put anything into it. 


3. This coding statement reserves a 1-byte area in main storage. 


If you intend to reserve a packed storage area for mathematical calculations in either 
of these three ways, move zeros into the specified storage area to clear it of any 
leftover data from another program. This will ensure that mathematical calculations 
are performed correctly. 


SS — EE — E—E——eeEE—e—eeE———————EE SS Se ee ee 
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9.2.2. Unpacked Decimal Constants and Main Storage Areas 





When you specify unpacked decimal constants, the character Z is the definition type 
in the operand field. Unpacked decimal constants can be up to 16 decimal digits (16 
bytes) and can be signed or unsigned. If unsigned, the value is assumed to be 
positive. The address of the symbol you put in the label field is the address of the 
constant you define in the operand field. When you specify an unpacked decimal 
constant, the actual decimal value you specify is placed into main storage as digits 
with zone fields of hexadecimal F. 





Example: 
LABEL AOPERATIONA OPERAND 
1 10 16 

1.] [symbol] DC Z'+4563' 

2.| [symbol] DC ZL5'123! 

3.| [symbol] DC 2ZL3'123! 


1. This coding statement produces this unpacked decimal constant in main 
storage. The 4-byte length is implied since four bytes are needed to hold the 
unpacked constant with zones and sign. 


2. This coding statement produces this unpacked decimal constant in main 
storage. In this case, the 5-byte length isn’t needed to hold the constant, but 
since a length of five is specified, five bytes are allocated. Note that the C in 
the rightmost byte represents a signed positive value. 


3. This coding statement produces two consecutive 3-byte constants in main 
storage. 


Een ES ERE ee 


The character Z also is the definition type for defining unpacked decimal main storage 
areas (i.e., area destined to hold unpacked decimal data). The address of the symbol 
you put in the label field is the address of the main storage area you define in the 
operand field. No actual constant is placed into the area you reserve, and the area is 
not cleared of any data it may already contain. You are merely reserving a main 
storage area. 
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@ Example: 
LABEL AOPERATIONA . OPERAND 
| 10 16 
1.) ZNUMI DS Z'4543! 
2.{ ZNUM2 DS ZL4 
3.1 ZNUM3 DS 2ZL4 


1. This coding statement reserves a 4-byte area in main storage. The actual 
unpacked decimal constant 4543 is not placed into the reserved area by this 
statement. 


2. This coding statement also reserves a 4-byte area in main storage. 


3. This coding statement reserves two consecutive 4-byte areas in main storage. 
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AP 





9.3. ADD DECIMAL (AP) 


General 
OBJECT 
OPCODE FORMAT | INST. 
TYPE LGTH. 
Condition Codes 


@ ir RESULT = 0,SET TOO 
Mir resuct <o,setto1 
Bit RESULT >0, SET TO 2 
MiF OVERFLOW, SET TO 3 
LJ UNCHANGED 





Possible Program Exceptions 


MB ADDRESSING @@ PROTECTION 

BB DATA (INVALID SIGN/DIG!IT) | [] SIGNIFICANCE 

(J DECIMAL Div!DE 0 SPECIFICATION: 

@ DECIMAL OVERFLOW NOT A FLOATING-POINT REGISTER 
(1) execute OP 1 NOT ON HALF-WORD BOUNDARY 
(EXPONENT OVERFLOW OP 2 NOT ON HALF-WORD BOUNDARY 
OC) EXPONENT UNDERFLOW OP 2 NOT ON FULL-WORD BOUNDARY 
(C) FIXED-POINT DIVIDE OP 2 NOT ON DOUBLE-WORD 


OJ FIXED-POINT OVERFLOW BOUNDARY 
C) FLOATING-POINT DIVIDE OP 1 NOT EVEN NUMBERED REGISTER 


1 operation OP 1 NOT ODD NUMBERED REGISTER 






































OOO OOoOo00 


zZ 
ie) 
Z2 
m 


The add decimal (AP) instruction algebraically adds the packed decimal contents of 
operand 2 (the sending field) to the packed decimal contents of operand 1 (the 
receiving field). The sum is stored in operand 1 and is filled, a byte at a time, from 
right to left. 





Explicit Format: 


LABEL | A OPERATION A OPERAND 





[symbol] AP d, (1, ,b, ),d, (I,,b,) 


Implicit Format: 









LABEL A OPERATION A OPE RAND 





s, (I, ),s, (th) 


Operational Considerations: 
= The value and sign of the sum are algebraically, not logically, calculated. 
= Since the sum is stored in the operand 1 location and if the length of the sum 


is greater than the length of operand 1, the leftmost digits of the sum are 
truncated. 
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& Example: 

LABEL AOPERATIONA OPERAND 
1 10 16 

AP A,B 
A oc P'2! 
B DC pig! 
A before AP execution: 21C 
B before and after AP execution: 91Cc 
A after AP execution: a 


As shown, the entire sum (11) does not fit into the one byte allocated in operand 1, 
so the leftmost digit of the sum is lost. If the operand field of the DC statement 
defining A is changed to PL2‘2’, two bytes are allocated for the sum, and the correct 

© 2-byte sum fits into the allocated area. If the sum does not fill the length specified in 
operand 1, zeros fill the remaining leftmost bytes of operand 1. A zero sum is positive 
as long as the length of operand 1 is large enough to hold the entire sum (i.e., no 
leftmost digits are lost). If the sum is zero and the leftmost digits are lost, the sign is 
the sign of the sum before the digits were lost. It is possible to double a number 
(add it to itself) when the rightmost bytes of operands 1 and 2 have overlapping bytes 
in main storage. 


Example: 


AP A,A 


A oc P'1234' 


byte 1 byte 2 byte 3 


A before AP execution: es 
A after AP execution: acy apace | an 


@ The entire contents of A is extracted, doubled, and the answer returned to the same field. 
This destroys the original contents of A. 
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CP 





9.4. COMPARE DECIMAL (CP) 


Possible Program Exceptions 


Bj ADDRESSING Hi PROTECTION 



















OBJECT 






















OPCODE +. 
Betcliungs Apsured BB DATA (INVALID SIGN/DIGIT) | [J SIGNIFICANCE 
(BYTES) || LJ] DECIMAL Divide (CO SPECIFICATION: 










O Decimat OVERFLOW 

OO execute 

C] EXPONENT OVERFLOW 
(1) EXPONENT UNDERFLOW 
OC FIXED-POINT DIVIDE 

C0 FIXED-POINT OVERFLOW 
CO] FLOATING-POINT DIVIDE 
(J OPERATION 


NOT A FLOATING-POINT REGISTER 

OP 1 NOT ON HALF-WORD BOUNDARY 
OP 2 NOT ON HALF-WORD BOUNDARY 
OP 2 NOT ON FULL-WORD BOUNDARY 


OP 2 NOT ON DOUBLE-WORD 
BOUNDARY 


OP 1 NOT EVEN NUMBERED REGISTER 
OP 1 NOT ODD NUMBERED REGISTER 
NONE 


Condition Codes 


@ iF op! = op2,seET TOO 


Wir opt <op2, set To 1 
iF op! >oP2, SET TO 2 
CF OVERFLOW, SET TO 3 
CJ UNCHANGED 


OOO O0Oo000 





The compare decimal (CP) instruction is used to compare operand 1 to operand 2, 
byte-by-byte from right to left. The result determines the setting of the condition code. 
(See 8.1.) 


Explicit Format: e 


AOPERATIONA 












LABEL OPERAND 





[symbol] d, (I, -b, ),d, (I, ,b,) 
Implicit Format: 


LABEL A OPERATION A OPERAND 





[symbol] s,(I,),5, (5) 


Based on the comparison result, the condition code of the program status word (PSW) 
is set to 1 if operand 1 is less than operand 2, to 2 if operand 1 is greater than 
operand 2, and to O if operands 1 and 2 are equal. 
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The condition code is part of the PSW, a double-word register that holds information 
pertinent to instruction execution. The instruction executed following the CP 
instruction depends on the condition code setting. The four condition code settings are 
as follows: 





Condition Code Bit Configuration 
(Decimal Value) (Bits 34—35 of PSW) 


00 = test value is binary 8 (1000) 
01 = test value is binary 4 (0100) 
10 = test value is binary 2 (0010) 
11 = test value is binary 1 (0001) 







- Ht 


Operational Considerations: 





= The CP instruction compares the rightmost byte of the operands first, and then 
works to the left one byte at a time. 

= If operand 1 is shorter than operand 2, or operand 2 is shorter than operand 1, 
zeros fill the leftmost bytes of the shorter operand, thus making the operands the 
same length during the comparison. Even though zeros are added, neither 
operand is permanently changed by the instruction. 

= = =6Any zero compares equal to another zero regardless of their signs. 

= ~§=©Positive signs compared to each other compare as equal; and the same holds 
true for negative signs. 

= It is possible to compare a decimal, or part of a decimal to itself, or part of itself, 
by overlapping the location of the rightmost bytes of the operands in main 
storage. 

Example: 
LABEL AOPERATIONA OPERAND 
1 10 16 

cP A+2(2) ,A+3(1) 


A DC PL4'1234567' 
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Operand 1 
*- a 
A before and after execution aaa 
of CP instruction: pitz}ete[ste| 
Se ie 
Operand 2 


In this example, the packed decimal contents of operand 1 are compared to the 
packed decimal contents of operand 2. Operands 1 and 2 have overlapping rightmost 
bytes. The processor temporarily adds a byte of zeros to operand 2 since operand 2 
has fewer bytes than operand 1. After the CP instruction is executed, the condition 
code is set to 2 because operand 1 is greater than operand 2. 
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DP 


9.5. DIVIDE DECIMAL (DP) 


Possible Program Exceptions 


Mj AOORESSING Wi PROTECTION 

BB DATA (INVALID SIGN/DIGIT) | [] SIGNIFICANCE 

@ DECIMAL DivIDE Wi SPECIFICATION: 

0 DEciMAL OVERFLOW NOT A FLOATING-POINT REGISTER 
O execute OP 1 NOT ON HALF-WORD BOUNDARY 












OBJECT 
OPCODE FORMAT | INST. 
TYPE LGTH. 


Condition Codes 


OF RESULT = 0, SET TOO 
Clif RESULT <o, SET TO 1 
CF RESULT >O, SET TO 2 
OIF OVERFLOW, SET TO 3 
BB UNCHANGED 


(0 EXPONENT OVERFLOW OP 2 NOT ON HALF-WORD BOUNDARY 
0 ExPONENT UNDERFLOW OP 2 NOT ON FULL-WORD BOUNDARY 
C0 FIXED-POINT DIVIDE OP 2 NOT ON DOUBLE-WORD 


0 FIXED-POINT OVERFLOW BOUNDARY 
CO FLOATING-POINT DIVIDE OP 1 NOT EVEN NUMBERED REGISTER 


(J OPERATION OP 1 NOT ODD NUMBERED REGISTER 
NONE 





The divide decimal (DP) instruction divides the packed decimal contents of operand 1 
(dividend) by the packed decimal contents of operand 2 (divisor). The result (quotient 
and remainder) is stored in operand 1 (the receiving field) which is filled from right to 
left. 


Explicit Format: 






A OPERATION A OPERAND 





[symbol] d, (I, ,b, ),d, (1,,b,) 


Implicit Format: 





LABEL A OPERATION A OPERAND 





[symbol] 





s, (I, ),s, (I,) 


Operational Considerations: 


= Operand 1 contains both the quotient and the remainder after the DP instruction is 
executed. Since operand 1 is the receiving field for the result, it consists of two side-by- 
side fields. The remainder with sign occupies the rightmost field, and the quotient with 
sign occupies the leftmost field. The leftmost byte of the quotient is the address 
specified by operand 1, and the rightmost byte of the remainder is the rightmost byte 
specified by operand 1. 


= The quotient with sign and the remainder with sign are determined algebraically. 
The sign of the remainder takes its sign value from the sign of the dividend. 
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= The length of the dividend is restricted to 16 bytes and must have at least one 
leading zero in the leftmost portion. As a result, the most significant digit is 
always zero. The length of operand 1 should be sufficient to hold the quotient, 
the remainder, and their signs. 


s The divisor length is restricted to eight bytes. The operand 2 field, which holds 
the divisor, is unchanged after the DP instruction is executed. 


= The length of the quotient is restricted to 15 bytes. This length is equal to the 
number of bytes needed to hold the dividend with sign and the divisor with sign 
(operand 1 + operand 2). 


= The length of the remainder must be at least one byte. The length of the 
remainder is the length of the divisor and is therefore restricted to eight bytes. | 


w If the result is larger than the length specified for operand 1, or if you attempt to 
divide by zero, a decimal divide program exception occurs. 


= If you want to reuse operand 1 for further mathematical calculations, you must 
move a packed field of zeros into the specified area to clear it of any leftover 
data. 


= ~=In_ fixed-point instructions, it is your responsibility to keep track of assumed 
decimal points. To add or delete decimal! places, you can multiply or divide by 
powers of 10. You can also use the move with offset (MVO) instruction (see 9.9) 
to drop any number of leftmost digits you specify. 








Example: 
LABEL AOPERATIONA OPERAND 
1 10 16 
DP NUMI ,NUM2 
NUM] DC PL3'234' 
NUM2 oc P'2! 
leading 
zeros dividend 
NUM1 before execution PS Packed 
of DP instruction: 21 3 4 '1cC decimal 
ce rales 
NUM2 before and after — Bee 
execution of DP instruction: 24 decimal 
number 
quotient : remainder 


NUMT1 after execution 


: ‘ Two packed 
of DP instruction: EEee 71 C¢ o'c decimal 


numbers 
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In this example, the packed decimal content of NUM1 is divided by the packed 
decimal content of NUM2. The result (quotient and remainder) replaces NUM1. Note 
the dividend is a 3-byte field containing leading zeros. Its length is calculated by 
adding the actual number of bytes required to hold the data in NUM1 (two bytes) and 
NUM2 (one byte) which gives a total of three bytes for the dividend. Since the divisor 
is one byte, the remainder also is one byte. Note that the remainder with sign 
occupies the rightmost byte of NUM1 and the quotient with sign occupies the 
remaining (leftmost) portion of NUM1. 





Example: 
LABEL AOPERATIONA OPERAND 
1 10 16 
OP NUM3 , NUM4& 
NUM3 dC PL4'646! 
NUM4 oc P'35! 
dividend 

NUM3 f leading zeros Packed 

before execution decimal 
of DP instruction: por eforoley es] etc] — mume 

divisor Packed 

NUM4 before and after decimal 
execution of DP instruction: fo: 3 | ae tes number 


quotient remainder Two packed 
. acne a gel ig as ipo ; 
NUM3 after execution i decimal 


In this example, the packed decimal content of NUM3 is divided by the packed 
decimal content of NUM4. The result is placed in NUM3. The length of operand 1 is 
calculated by adding the actual number of bytes required to hold the data in NUM3 (2 
bytes) and NUM4 (2 bytes) which gives a total of four bytes for the dividend. In this 
example there also is a remainder of 16 that occupies the same number of bytes as 
the divisor and is located in the rightmost portion of operand 1. 
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ED 


9.6. EDIT (ED) 


Possible Program Exceptions 










OP 1 NOT EVEN NUMBERED REGISTER 
OP 1 NOT ODD NUMBERED REGISTER 


(10 FLOATING-POINT DIVIDE 
(J OPERATION 


Msetto2 
LIset To3 
SEE OPER. CONSIDERATIONS 





ae mee ial BB ADDRESSING W@ PROTECTION 
see cers BB DATA (INVALID SIGN/DIGIT) | [J SIGNIFICANCE 
MNEM. [HEX. (Bytes) || D) DECIMAL DiviDE (J SPECIFICATION: 
OJ DECIMAL OVERFLOW 1 NOTA FLOATING-POINT REGISTER 
OO Execute OOP 1 NOT ON HALF-WORD BOUNDARY 
OC EXPONENT OVERFLOW [) oP 2 NOT ON HALF-WORD BOUNDARY 
(1) EXPONENT UNDERFLOW C1) oP 2 NOT ON FULL-WORD BOUNDARY 
Mscrioo CO FIXED-POINT DIVIDE 0 ora NoroN DOUBLE-WORD 
Bset toi 0 FIXED-POINT OVERFLOW 0 
oO 
O 


2 
ie} 
2 
m 


The edit (ED) instruction unpacks and modifies packed operand 2 data so that the 
printed output received is printed the way you want it displayed. This modification is 
controlled by the operand 1 edit pattern. 


Explicit Format: 






LABEL A OPERATION A OPERAND 





[symbol] d, (I, -b, ),d, (b,) 


Implicit Format: 








LABEL AOPERATION A OPERAND 





The contents of operand 2 must be a packed decimal number. Operand 1 contains the 
edit pattern which consists of EBCDIC character codes. It is the pattern of EBCDIC 
character codes you specify that determines how results are displayed. The edit 
pattern can rearrange, delete, select, or insert any needed data, symbols, or characters 
in the operand 2 data. The edited result (unpacked and modified operand 2 data) 
replaces the operand 1 edit pattern. 
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Operational Considerations: 


= The length of the operand 1 edit pattern is almost always longer than operand 2 
because operand 1 is in unpacked format while operand 2 is in packed format. 


= The edited result replaces operand 1, thus permanently destroying the edit 
pattern. If you intend to reuse the edit pattern, then it must be saved or moved 
prior to the execution of the ED instruction. 


= The total number of significance starters and digit selectors in operand 1 must 
equal the total number of digits in operand 2. 


= If there is no significance starter in operand 1, all zeros in operand 2, and the 
fill character is hexadecimal 40, the resultant field is blank. 


« The condition code reflects only the last field edited or the field after the last 
field separator. 


= The S switch reflects the sign of the last byte in operand 2. A plus sign detected 
as the least significant digit turns the S switch off. A minus sign has no effect 
on the S switch, and a plus or minus sign detected as the most significant digit 
causes a data exception. 


= The sign of operand 2 is converted to hexadecimal F when edited, regardless of 
whether it is a hexadecimal C or F (positive), or a hexadecimal! D (negative). 

9.6.1. The Edit Pattern 

The operand 1 edit pattern may consist of five types of pattern characters: 

a= Fill character 

= Digit selector 

# Significance starter 

= Message character 

= Field separator 

The fill character, in all cases, is the leftmost byte of operand 1. It is any EBCDIC 

character code you choose. The EBCDIC character code specified is the first byte of 

the edited result, and replaces (or fills in) certain pattern characters corresponding to 

any nonsignificant operand 2 digits. (The significant digits are the digits 1 thru 9. Zero 

is the only nonsignificant digit but becomes significant when it follows a significant 

digit or the significance starter (hexadecimal 21)). The edited result replaces the 


operand 1 edit pattern. Some of the more commonly used fill characters are 
hexadecimal 40 (blank), hexadecimal 5B (dollar sign), and hexadecimal 5C (asterisk). 
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The digit selector is the EBCDIC character code 20. For every digit in operand 2, 
there must be a corresponding hexadecimal 20 in the operand 1 edit pattern. Every 
significant digit in operand 2 replaces its corresponding digit selector in operand 1. If 
there is a _ nonsignificant digit in operand 2, the fill character replaces its 
corresponding digit selector. 








Example: 
LABEL AOPERATIONA OPERAND 
1 10 16 
ED PATTERN] ,ANSWER] 
PATTERN] DC X'4G2929626' 
ANSWERI DC P'253'! 
fill 
PATTERN1 before execution character digit selectors 





of ED instruction: 
Edit pattern 


ANSWER1 before and after 
execution of ED instruction: 





Packed decimal number 


PATTERN1 after execution of Edited result 


ED instruction: 


Printed output 
Printed edit result looks 
like this: 


Note that in PATTERN1 there is a corresponding hexadecimal 20 for every digit in 
ANSWER1. The edit pattern (operand 1) is examined one byte at a time and operand 
2 is examined one digit at a time. The fill character remains as the first byte of the 
edit result (operand 1), and the succeeding pattern characters (in this example, the 
digit selectors) are replaced by unpacked operand 2 digits. 


Example: 


ED PATTERN2 ,ANSWER2 





PATTERN2 DC X'4G292626' 
ANSWER2 DC P'26! 
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fill 
@ PATTERN2 before execution —_Sha"eter ee 


of ED instruction: 
Edit pattern 


ANSWER2 before and after 


execution of ED instruction: Packed decimal number 


PATTERN2 after execution 
of ED instruction: 


Edited result 


A a Printed output 
Printed edit result looks 


like this: 





In this example, note that ANSWER2 is padded to the left with a zero. Zero is 
considered a nonsignificant digit because it precedes any significant digits. Therefore, 
the fill character hexadecimal 40 replaces the second byte of the edit result, because 
zero corresponds to the first digit selector. The other packed operand 2 digits are 
unpacked and replace the remaining digit selectors. This method of changing lead 
zeros to blanks is called zero suppression. 


& The significance starter is the EBCDIC character code 21. You need to specify only 
one hexadecimal 21 for each field to be edited. Every hexadecimal 21 must 
correspond to a digit in operand 2. When a hexadecimal 21 is examined in an edit 
pattern, it is replaced with its corresponding digit in operand 2 and then turns on the 
significance start switch (S switch). The significance start switch is an internal switch 
that when turned on forces all of the following pattern characters either to remain or 
be replaced in the edit result. In effect, the only conditions that force the S switch on 
are a hexadecimal 21 or a significant digit. On the other hand, the S switch is turned 
off after a digit in operand 2 is examined whose sign is positive and located in the 
rightmost four bit positions of a field. A negative sign does not affect the S switch. 
Whether the sign is positive or negative, all results are printed as positive values. 


Example: 
LABEL AOPERATIONA OPERAND 
1 10 16 
ED PATTERN3 ,ANSWER3 
PATTERN3 DC X '4g2128202926' 
ANSWER3 DC PL3'248! 
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fill significance 
character starter digit selectors 





PATTERN3 before execution ~~. _$ ~»~_. 
of ED instruction: 










Edit pattern 


ANSWER3 before and after 
execution of ED instruction: 


Packed decimal 
number 






PATTERNS after execution 


of ED instruction: 
ON AL es result 


Printed edit result looks 
like this: 
Printed output 


The fill character remains as the first byte of the edit result, and also replaces the 
Significance starter because its corresponding digit in ANSWER3 is a nonsignificant 
zero. Now, the S switch is turned on and the second zero in ANSWER3 becomes 
significant. It replaces its corresponding digit selector with a zero. The succeeding 
operand 2 digits are unpacked and replace the remaining digit selectors. 


The message character can be any EBCDIC character code except hexadecimal 20, 21, 
or 22. If the message character follows a significant digit or the significance start 
switch (hexadecimal 21), the message character remains as part of the edited result 
(operand 1). On the other hand, if the message character precedes a significant digit 
or a hexadecimal 21, it is replaced by the fill character. Some of the most commonly 
used message characters are hexadecimal 6B (comma) and hexadecimal 4B (decimal 
point). 





Example: 
LABEL AOPERATIONA OPERAND 
] 10 16 
ED PATTERN4 , ANSWERS 
PATTERN4 DC X '5B26286B2821264B262¢' 


ANSWER4 DC P'1326¢6' 
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PATTERN4. before execution 
of ED instruction: 


digit significance digit message digit 
selector starter selector character selector 






Edit pattern 





ANSWER4 before 
and after 
execution of 

ED instruction: 


Packed decimal number 


PATTERN4 after 
execution of ED 


instruction: Edited result 





Printed edit result looks 
like this: Printed output 





In this example, hexadecimal 5B (dollar sign) is used as the fill character. It remains 
as the first byte of the edited result and also replaces the second byte because the 
second byte’s digit selector corresponds to a nonsignificant zero. The digit 1 in 
ANSWER4 replaces the third byte and the message character hexadecimal 6B remains 
because it follows a significant digit. The digits 3, 2, and 6 in operand 2 replace their 
corresponding pattern characters, the message character hexadecimal 4B remains and 
the trailing zeros in ANSWER4 replace their corresponding pattern characters. 


Note the position of the significance starter hexadecimal 21. In this example, the S 
switch is turned on by the first significant digit. Therefore, when this hexadecimal 21 
is examined, it is replaced with its corresponding digit in ANSWER4. Now, suppose 
the edit pattern remains the same and operand 2 is changed to look like this 
example: 





Example: 
LABEL AOPERATIONA OPERAND 
1 10 16 
ED PATTERNS , ANSWERS 
PATTERNS DC X'5B29266B26212648292¢' 


ANSWERS DC PL4'75! 
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PATTERNS before execution 
of ED instruction: 
fill digit message digit significance digit message digit 
character f selectors character — selector starter selector character selector 


ANSWERSD before 
and after 
execution of 

ED instruction: 







Packed decimal number 


PATTERNS after 
execution of ED 
instruction: Edited resuit 
Printed edit result looks 
like this: 


Printed output 


The significance starter (hexadecimal 21) is placed in the sixth byte of PATTERNS so 
that the S switch is turned on to force the display of bytes 7 through 10. As a 
result, the least significant dollar integer, the decimal point, and the cents are always 
represented no matter how small or large the value of operand 2 is. 


The field separator is the EBCDIC character code 22. It is used to separate two or 
more contiguous fields. These fields must be packed decimal numbers in operand 2 
and located in consecutive order in main storage. The fill character you specify 
replaces all field separators. As soon as a hexadecimal 22 is examined, the S switch 
is turned off and the field separator is replaced with the fill character. 





Example: 
LABEL AOPERATIONA OPERAND 
] 10 16 
ED PATTERNG , ANSWER6 
PATTERN6 DC X'4929212822222621262222214B2826' 


ANSWER6 DC P'123CBOSC2GKC ' 
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PATTERN6G before execution 
of ED instruction: 


fin digit significance digit field digit, significance digit. field significance message 
charecter selector Starter selector separator selector starter 
Ne “eo 








Edit pattern 


ANSWERE6E before 
and after 
execution of 

ED instruction: 





Packed decimal number 











execution of 
ED instruction: 


Printed edit result 
looks like this: 








Printed output 


In this example, ANSWER6 contains three packed contiguous fields each separated by 
two field separators (hexadecimal 22). Since the fill character specified is hexadecimal 
40, that character is used as the fill character for all fields, and also replaces each 
field separator in the edit pattern. Remember that the S switch is turned off as soon 
as a hexadecimal 22 is examined. This causes any leading zeros in succeeding fields 
to be nonsignificant digits. 


9.6.2. The Resulting Condition Code 

All operand 2 digits examined are tested for condition code 0. The sign of the last 
packed field edited, and whether or not all the digits in that field are zeros, are 
recorded in the condition code setting when execution of the ED instruction is 
completed. 

The condition code is set to 0 when: 


# all digits in the last field edited in operand 2 are zeros; 


= the edit pattern has no digit selectors or significance starters causing operand 2 
digits not to be examined; 


= the last character in the edit pattern is a field separator; and 


= the edit pattern has no digit selectors or significance starters after the last field 
separator. 


The condition code is set to 1 when: 
a the last field edited is not all zeros but the S switch is on. This indicates the 


value of the last field edited is less than zero, because a negative sign does not 
affect the S switch. 
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The condition code is set to 2 when: @ 





= the last field edited is not all zeros but the S switch is off. This indicates the 
value of the last field edited is greater than zero, because a positive sign turns 
the S switch off. 


9.6.3. Examples of General Usage 


The following examples are more commonly used and can be applied in practical 
situations. The first example shows how a nonblank fill character is used. 


Example: 


LABEL AOPERATIONA OPERAND 
] 10 16 


ED PATTERN7 , ANSWER7 


PATTERN] DC X '5¢2929202028' 
ANSWER] DC P'12345! 





PATTERN? before fill 
execution of ED character digit selectors 
instruction: 


ANSWER7 before and 
after execution of 
ED instruction: 


PATTERN after 
execution of ED 
instruction: 


Printed edit result 


looks like this: Printer 


output 





All results, whether positive or negative, are printed as positive results. By using 
message characters in the edit pattern, you can indicate whether a field in operand 2 
is positive or negative. These message characters should be the last pattern 
characters in the edit pattern for each corresponding field in operand 2. If the value 
of operand 2 is negative, message characters placed to the right of the rightmost digit 
selector remain as part of the edit result. Since a negative sign in the rightmost four 
bit positions does not affect the S switch, the message characters become significant. 
However, if the value of operand 2 is positive, the message characters are replaced 
by the fill character. 
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Since a positive sign in the rightmost four bit positions turns the S switch off, the 
message characters become nonsignificant. You can specify any character or any 
number of characters to indicate a negative number, but the most commonly used are 
hexadecimal C3D9 (CR), hexadecimal C3C2 (DB), and hexadecimal 60 (—). The 
following example illustrates editing a negative number using the minus sign. 








Example: 
LABEL AOPERATIONA OPERAND 
1 10 16 
ED PATTERNY , ANSWERS 

PATTERN OC X'4$292G29262G6¢' 

ANSWERQ 0C P'-1234! 

PATTERNQY before fill message 

. ch te digit selectors haract 

execution of ED erate! ‘9! enatectel, 

instruction: ; 
Edit 

tt 

ANSWERS before anal 

and after execution Packed 

of ED instruction: decimal 
number 

PATTERNS after 

execution of ED Edited 

instruction: result 

Printed edit result 

looks like this: Printed 


output 


The following example illustrates date-field editing. Here, message characters are 
inserted into a 5- or 7-digit field. The most commonly used message characters for a 
date field are hexadecimal 61 (slash), hexadecimal 60 (hyphen), and hexadecimal 40 
(blank). 


Example: 


ED PATTERNA ,ANSWERA 


PATTERNA DC X'4926212061262061 2020! 
ANSWERA DC P'122576! 
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fill digi ignifi digit me: igi aa) 
PATTERNA before character giants asia ae Pica Pde pies Reraeccd 
Vameatinenstn ttt atin tt atin 





execution of ED 
instruction: 





Edit pattern 








ANSWERA before and 
after execution of ED 
instruction: 


Packed decimal 
number 


SS\VO 


Printed edit result looks . 
like this: ear 


output 







PATTERNA after 
execution of ED 
instruction: 


9.6.4. Summary 


Table 9—1 summarizes and combines the information in this section to provide a 
clear and concise picture of the ED instruction and its functions. 


Table 9—1. Edit Instruction Operation 





Previous Decimal Sign of Least Resulting Resuiting 
Switch (Operand 2) Significant Byte (Operand 1) Switeh 
Status Digit (Operand 2) Character Status 


Digit selector Fitl character 
sf Digit 
Positive Digit 
Negative Digit 
* Digit 
if Digit 
Positive Digit 
Negative Digit 


Pattern (Operand 1) 
Character 


Significance starter Fill character 
Digit 
Digit 
Digit 


Message character Any except Not examined * Fill character 
20,21 ,22 Not examined Positive Fill character 

Not examined id Message character 
Not examined Positive Fill character 

Not examined Negative Message character 


Field separator Not examined Fill character 
Not examined Fill character 





*Not applicable 
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EDMK 


9.7. EDIT AND MARK (EDMK) 


Possible Program Exceptions 


OBJECT 


ADDRESSING @ PROTECTION 
OPCODE FORMAT | INST. a 


BB DATA (INVALID SIGN/DIGIT)| () SIGNIFICANCE 
CO DECIMAL DIVIDE CO) SPECIFICATION: 
(1 DECIMAL OVERFLOW 
OC EXECUTE 


TYPE LGTH. 
(BYTES) 


Condition Codes 


WBiF RESULT =0,SET TOO 
@ ir Resuct <o, set To01 
WI iF RESULT >0, SET TO 2 
DIF OVERFLOW, SET TO 3 
(CO UNCHANGED 


NOT A FLOATING-POINT REGISTER 

OP 1 NOT ON HALF-WORD BOUNDARY 
OP 2 NOT ON HALF-WORD BOUNDARY 
OP 2 NOT ON FULL-WORD BOUNDARY 


OP 2 NOT ON DOUBLE-WORD 
BOUNDARY 


OP 1 NOT EVEN NUMBERED REGISTER 
OP 1 NOT ODD NUMBERED REGISTER 
NONE 





(CO EXPONENT OVERFLOW 
(EXPONENT UNDERFLOW 
C] FIXED-POINT DIVIDE 

DC FIXED-POINT OVERFLOW 
C1] FLOATING-POINT DIVIDE 
C0 OPERATION 






OOO OoOoO00 





The edit and mark (EDMK) instruction operates like the edit (ED) instruction except 
that it also saves the address of the first significant byte and places it in register 1. 


Explicit Format: 


LABEL A OPERATION A OPERAND 


[symbol] d, (I, b,), d, (b, ) 





Implicit Format: 


LABEL A OPERATION A OPERAND 


{symbol] s, (I), s, 





Operational Considerations: 


= The EDMK instruction operates like the ED instruction (see 9.6). After the packed 
content of operand 2 is edited and the unpacked result stored in operand 1, the 
address of the first nonzero character is placed in general register 1. 


a If the field to be edited contains no significant digits until after the significance 
starter, no address is moved into register 1, and the move instruction following 
the EDMK instruction will be using the incorrect address (or whatever value) that | 
is in register 1. 


UP-8913 
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= To avoid having an incorrect address in register 1 because no significant digits 
exist before the significance starter, load register 1 with the address of the 
position where you want the insert character to be placed. 
= If a field to be edited contains multiple fields, the address of the first significant 
byte in each field replaces the one before. So in effect, the address of the first 
significant byte in the last field is the final result. 
= The EDMK instruction is a featured instruction. An operation program exception is 
caused if you use this instruction and the processor does not have the control 
feature installed. 
= # This instruction is used to insert a character in several places throughout the 
output display. For example: 
$6.25 
$86.00 
$2.34 
$724.11 
The location of the dollar sign is predictable in that it appears at the left of the 
first significant digit on each line. The decimal point position also is predictable 
as the third character from the right. The proper positioning of a dollar sign or 
other message character is ensured by using the EDMK instruction. 
Example: 
LABEL AOPERATIONA OPERAND 
| 10 16 
MVC PATTERN ,MASK 
LA 1,PATTERN+7 
EDMK PATTERN ,DATA 
Ss 1,=F'1' 
MVI 6(1),c'S$! 
PATTERN DS CLIP 
MASK DC X'4626266B8262621482626' 
DATA DC P'6245716' 


Register 1 before execution of EDMK instruction: 


0000 0000 MONO SO0e eel 0000 1100 ,0000 
eS ER ee 











address of PATTERN+7 
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Register 1 after execution of EDMK instruction: 









binary 
hex 
address of 1st significant digit 
Register 1 after execution of S instruction: 
0000 ; 0000] 0000 , 0000 0000 |0000 hort roto binary 


address of byte to the left of 
Ist significant digit 


Edited result after execution of MVI instruction: 


Ist 
significant 
digit 

Fr aN tN 


$ 
Se te sla ad de ld iM 
Pee Oe ee ee eee ere reg el eee eee ere eee 


In this example, the edit mask is moved into a 10-byte field labeled PATTERN. 
The address of the position where the insert character is to be placed (in the 
absence of significant digits before the significance starter) is loaded into register 
1. Then DATA, containing the packed number, is edited and the result is placed 
in PATTERN. The address of the first significant byte (in this example, 2 is 
significant) replaces the content of register 1. Then a full word containing the 
decimal value 1 is subtracted from the content of register 1, therefore moving 
one byte to the left. The MVI instruction moves the dollar sign into the byte 
addressed by the content of register 1. 





binary 


hex 
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DELETION 


Pages 9—30 through 9—62, Figures 9—1 through 9—8, and 
Tables 9—1 through 9—7 have been deleted. 


Mo 


(Fru BwS FHSS staal) 
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9.9. MOVE CHARACTER (MVC) 


Possible Program Exceptions 
epeone ee g ADDRESSING W@ PROTECTION 
FORMAT | INST. 
N IGN/DIGIT) SIGNIFICANCE 
TEE econ (CO DATA (INVALIDS 0D 


(Bytes) || D) DECIMAL DIVIDE C SPECIFICATION: 


DO DECIMAL OVERFLOW NOT A FLOATING-POINT REGISTER 
Peale eat 0 execute OP 1 NOT ON HALF-WORD BOUNDARY 
OJ EXPONENT OVERFLOW 


OP 2 NOT ON HALF-WORD BOUNDARY 
OP 2 NOT ON FULL-WORD BOUNDARY 
CJ FIX€D-POINT DIVIDE OP 2 NOT ON DOUBLE-WORD 
Ee Bred ata O FIXED-POINT OVERFLOW 
Cif RESULT >0, SET TO 2 OD FLOATING-POINT DIVIDE 


BOUNDARY 
Or OVERFLOW, SET TO 3 Oo OPERATION OP 1 NOT OOD NUMBERED REGISTER 


NONE 





O 
O 
0 
O 
O 
O 
O 
O 


OP 1 NOT EVEN NUMBERED REGISTER 
BB UNCHANGED 


The move character (MVC) instruction moves the contents of one area in main storage 
(operand 2) into another area in main storage (operand 1). The length of operand 1 
determines the number of bytes moved. 


Explicit Format: 





A OPERATION A OPERAND 






[symbol] d, (I,b, ),d,(b,) 


Implicit Format: 





A OPERATION A OPERAND 





[symbol] 





The move character instruction moves data referenced by operand 2 (the sending field) 
to the location referenced by operand 1 (the receiving field). Data is moved a byte at 
a time from left to right. The length of operand 1, whether implied or explicit, 
determines the number of bytes to be moved. 


Operational Considerations: 


= §€6The instruction moves one byte at a time, processing from left to right through 
each field. 


= The length of operand 1 determines the number of bytes moved. It can be either 
implied or explicit. 
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sw When using operands with overlapping bytes, the results are often unpredictable. @ 





= One character can be propagated through an entire field if the sending field 
begins with the first byte of a field and the receiving field begins with the 
second byte of that same field. 


= Any type of data can be specified in an MVC instruction. 


Example: 
LABEL AOPERATIONA OPERAND 
1 10 16 
MVC RECEIVE! ,SEND! 

RECEIVE! oc CLS'DIGIT' . 

SEND] dC CL5'SALES' 

RECEIVE1 before 

execution of MVC Renan meses 

instruction: Hexadecimal 
(EBCDIC mode) 





SEND1 before and after 
execution of MVC 
instruction: 


Alpha characters 


Hexadecimal 
(EBCDIC mode) 


RECEIVE1 after 
execution of MVC 
instruction: 


Alpha characters 


Hexadecimal 
(EBCDIC mode) 





In this example, the content of operand 2 is moved into operand 1. Since it is an 
even move (a 5-byte field to a 5-byte field), the content of SEND1 completely overlays 
the content of RECEIVE1. Note that no length is specified for operand 1 and, as a 
result, the implied length is applied. 


Example: 


MVC RECEIVE2 (5) ,SEND2 


RECEIVE2 DC CL7 ‘JANUARY ' 
SEND2 DC CL5'MARCH' 
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& RECEIVE2 before Peer 
. . ex: Cll 
SEND2 before and after Ea eS eaes Alpha characters 
execution of MVC aachaeateal 
instruction: fe af 0 | ({EBCDIC mode) 
RECEIVE2 after Alpha characters 
execution of MVC Hexadecimal 
instruction: IEBEDIE mode) 


In the preceding example, an explicit length of 5 is specified for operand 1. The 5 
determines that RECEIVE2 will accept only five bytes from SEND2. The five bytes from 
SEND2 are moved to RECEIVE2 filling operand 1 from left to right. As you can see, 
five bytes of SEND2 (MARCH) are moved to the first five bytes of RECEIVE2 (JANUA). 
Note that the last two bytes of RECEIVE2 still remain. 





Example: 
LABEL AOPERATIONA OPERAND 
e 1 10 16 
MVC TOTAL (2) »ANSWER+1 
TOTAL DC PL4'g! 
ANSWER DC PL3'128' 
HEADING OC CLI9'TOTAL SALES FOR MAY! 
TOTAL before execution Packed decimal 
of MVC instruction: fotofotojotolfotc number 
ANSWER + 1 


ANSWER before and after 


. 3 4 Packed decimal! 
execution of MVC instruction: 


number 





TOTAL after execution Two packed 
of MVC instruction: si2t sre fotolore decimal numbers 
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Since the concerned number occupies the second and third bytes of ANSWER, relative 
addressing (ANSWER + 1) is used to address the second byte, and avoid the first 
byte of zeros. Note the number of bytes moved is restricted to two by using an 
explicit length in operand 1. If an explicit length is not specified, four bytes would be 
moved to TOTAL since it is a 4-byte field. Bytes two and three of operand 2, plus the 
first two bytes of data contiguous to operand 2 (in this case the letters TO of 
HEADING), would be moved to TOTAL. 











Example: 
LABEL AOPERATIONA OPERAND 
! 10 16 
MVC FIELD+1(3) ,FIELD 

FIELD pc CL4'1234! 

FIELD before execution Hexadecimal 

of MVC instruction: (EBCDIC mode) 

FIELD after byte 1 is eet 

moved: (EBCDIC mode) 

FIELD after byte 2 is Hexadecimal 

moved: (EBCDIC mode) 

FIELD after byte 3 is Hexadecimal 
({EBCDIC mode) 





moved: 


final result 


As indicated, F1 is propagated through the entire field. This can be done using any 
character. If a hexadecimal 40 is used, the_resultant field is EBCDIC blanks. If a 
hexadecimal FO is ‘used, the resultant field is EBCDIC zeros. To propagate one 
character through an entire field, the sending field (operand 2) must begin with the 
first byte of that field and the receiving field (operand 1) must begin with the second 
byte of that same field. The move is processed from left to right. When operands 1 
and 2 overlap, the end result is obtained by processing the operands one byte at a 
time, and putting each result byte immediately after the byte just obtained. 
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9.10. MOVE CHARACTER LONG (MVCL) 


Possible Program Exceptions 


Mi ADDRESSING Mi PROTECTION 

(1 DATA (INVALID SIGN/DIGIT) | [] SIGNIFICANCE 

(J DECIMAL DiviDE Ml SPECIFICATION: 

(2 DECIMAL OVERFLOW NOT A FLOATING-POINT REGISTER 
CD execute OP 1 NOT ON HALF-WORD BOUNDARY 


(BYTES) 


ae 
OPCODE FORMAT | INST. 
TYPE LGTH. 





CJ EXPONENT OVERFLOW OP 2 NOT ON HALF-WORD BOUNDARY 

(1 EXPONENT UNDERFLOW OP 2 NOT ON FULL-WORD BOUNDARY 

OC FIXED-POINT DIVIDE OP 2 NOT ON DOUBLE-WORD 

0 FIXED-POINT OVERFLOW BOUNDARY 

(J FLOATING-POINT DIVIDE OP 1 NOT EVEN NUMBERED REGISTER 

C] opeRATION OP 2 NOT EVEN NUMBERED REGISTER 
NONE 


Condition Codes 


@ if op 1=oP2,SETTOO 
W iF op1<op2,setTTo1 
Wii- op1>op2,seETTo2 
HisetTTo3 

CIV UNCHANGED 






The move character long (MVCL) instruction moves data from the main storage area 
specified by operand 2 to the main storage area specified by operand 1. Operands 1 
and 2 can have different lengths; where operand 2 is shorter than operand 1, a 


@ padding character contained in operand 2 is inserted in all remaining bytes of operand 
3 1. 


Explicit and Implicit Formats: 







A OPERATION A OPERAND 


[symbol] 


The MVCL instruction uses two even-odd register pairs to specify operands 1 and 2. 
Both have basically the same format: the even-numbered register contains the 
operand address in bits 8—31, while the odd-numbered register contains the operand 
length, also in bits 8—31. The operand 2 odd-numbered register differs from the other 
three registers in that it contains a padding byte in bits O—7. When operand 1 
exceeds operand 2 in length, the padding byte is moved in all remaining low order 
(rightmost) bytes of operand 1. When the operand 2 length exceeds the operand 1 
length, operand 1 determines the number of bytes to be moved. The following chart 
summarizes register usage with the MVCL instruction: 
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{o) 
~ 
ow) 


3 


_ 


Operand 1 


even-numbered register address 


odd-numbered register length 


Operand 2 


even-numbered register address 


pad 


odd-numbered register byte 


length 


WU WL 


HU 


The MVCL instruction differs from MVC in that it can move more than 256 bytes per 
instruction. In action, it begins by moving the high order (leftmost) byte of operand 2 
to the high order byte of operand 1. Execution continues byte by byte proceeding from 
left to right. If more than 256 bytes are to be moved, the instruction breaks execution 
down into units of operation, each unit moving 256 bytes at a time. Interrupts are 
allowed between units; the MVCL instruction always responds by updating the 
contents of its registers so that execution can resume exactly where it was 
interrupted. After execution of the entire instruction is finished, the four registers 
have the following contents: 


= Operand 1 even-numbered register: original operand 1 address incremented by 
original operand 1 length. 


= Operand 1 odd-numbered register: OOQ0Q00000 j<. 


«= Operand 2 even-numbered register: original operand 2 address incremented by 
number of bytes moved from operand 2 (not including padding bytes). 


= Operand 2 odd-numbered register: original operand 2 length decremented by 
same number of bytes as that added to operand 2 address. 


The main storage areas defined by operands 1 and 2 can overlap except for one case: 
where a byte of main storage is used as an operand 2 source byte after being used 
as an operand 1 destination byte. This action is called destructive overlap. As one of 
its first actions, the MVCL instruction determines from its operands if destructive 
overlap is going to occur. If it is, the instruction sets the condition code to 3, moves 
no data, and terminates. 


Operational Considerations: 
. Both operands 1 and 2 must be specified as even-numbered registers. 
= You can use the MVCL instruction to clear memory. To do so you set both the 


operand 2 length and padding byte to zero, in effect putting all zeros into the 
operand 2 odd-numbered register. 














@ 
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to fetch it in mid-execution. If this happens after the instruction has been written 
over, the results will be unpredictable. 


If you specify an operand 1 length of zero, the MVCL instruction simply sets the 
condition code and terminates. 


If you specify the same register for r, and rz, the MVCL instruction acts as if you 
had specified two different register pairs having identical contents. In this case, 
condition code O is set. 


Do not treat the MVCL instruction simply as an extended version of the MVC 
instruction; certain legal MVC instructions, for example, MVC BYTE+1(2),BYTE, cannot 
be recoded using MVCL without causing destructive overlap. 


Condition Code: 


After execution of the MVCL instruction, the condition code is set: 





= to O if the operand 1 and operand 2 lengths are equal; 
= to 1 if the operand 1 length is less than the operand 2 length; 
= to 2 if the operand 1 length is greater than the operand 2 length; or 
= to 3 if no data movement occurs because of destructive overlap. 
Example: 
LABEL AOPERATIONA OPERAND 
1 10 16 
1 LA 2,AREA1+2 OPERAND 2 ADDRESS 
2 LA 3,4 OPERAND 2 LENGTH 
3 LA 6,AREA2 OPERAND 1 ADDRESS 
4 LA 7,8 OPERAND 1 LENGTH 
5 0 3,PADBYTE PAD BYTE IN OPERAND 2 
6 MVCL 6,2 
DS OF 
AREA1 DC XL8!3794274B11328E97' 
AREA2 DC XL8'B9DGGG4A17189GEF ! 
PADBYTE DC XL4"49666069' 
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In this example, the MVCL instruction moves data from within the double word at 
AREA1 to within the double word at AREA2. Assuming that AREA1 is at location 
100, the move can be illustrated as follows: 





source destination 
data data 


The four LA instructions in lines 1—4 load information into register pairs 2—3 and 
6—7, which describe the operands to be used by the MVCL instruction at line 6. The 
OR instruction at line 5 puts a hexadecimal 40 into the eight high order bits of the 
operand 2 length register, thus making it the padding character. Before execution of 
the MVCL instruction the registers contain: 


Register 2 | 00000102 Register 3. | 40000004 


Register 6 {| 00000108 Register 7 | 00000008 


The MVCL instruction at line 6 acts on main storage locations 100—10F as follows: 


AREA1 AREA2 





The MVCL instruction moves four bytes from AREA1+2 to AREA2. Because the 
destination field is eight bytes long, the remaining four bytes are filled with the pad 
byte in register 3. After execution of the instruction, the condition code is set to 2 
and the registers used contain: 


Register 2 | 00000106 Register 3 
Register 6 { 00000110 Register 7 
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LABEL AOPERATIONA OPERAND 
] 10 16 
1 LA 4 ,CSECT1 
2 LA 5, 2048 
3 LA 8,CSECT-1 
4 LA 9,6 
5 MVCL 4,8 


In this example the MVCL instruction is used to clear a 2048-byte area in main 
storage starting at CSECT1. After execution of the instructions in lines 1—4, and 
assuming that CSECT1 is at location X‘100’, registers 4—5 and 8—9 contain: 


Register 4 | 00000100 Register 5 | 00000800 
Register 8 | OOOOOOFF Register 9 


Registers 4 and 5 contain the location and length of the destination field. Register 8 
contains the location of the byte immediately preceding CSECT1; in this case it could 
contain any valid address that does not cause destructive overlap. Register 9 specifies 
O for both the source length and the padding byte. When the MVCL instruction at 
line 5 is executed, the zero source length causes the instruction immediately to move 
pad bytes of O into CSECT1, CSECT1+1, CSECT1+2, and so on. The destination 
length of 2048 bytes forces the instruction to move zeros into all 2048 bytes of the 
destination field, thus clearing it. After execution is finished, the condition code is set 
to 2 and the registers contain: 


Register 4 | 00000900 Register 5 
Register 8 | OOOOOOFF Register 9 


Notice that the operand 2 address in register 8 has not changed. No bytes have been 
moved from the source area in main storage; rather, the source bytes have come 
from the pad byte contained in operand 2. 
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9.11. MOVE NUMERICS (MVN) 


Possible Program Exceptions 















oPpcobE " ——____ @ ADDRESSING W PROTECTION 
ca] pa 1 DATA (INVALID SIGN/DIGIT) | [1] SIGNIFICANCE 
| MNEM. | Hex. | (BYTES) (J DECIMAL DiIvIDE OD SPECIFICATION: 


NOT A FLOATING-POINT REGISTER 

OP 1 NOT ON HALF-WORD BOUNDARY 
OP 2 NOT ON HALF-WORD BOUNDARY 
OP 2 NOT ON FULL-WORD BOUNDARY 


OP 2 NOT ON DOUBLE-WORD 
BOUNDARY 


OP 1 NOT EVEN NUMBERED REGISTER 
OP 1 NOT OOD NUMBERED REGISTER 
NONE 


2 DECIMAL OVERFLOW 

OO execute 

CJ EXPONENT OVERFLOW 
(] EXPONENT UNDERFLOW 
OO FIxXEO-POINT DIVIDE 

D0 FIxED-POINT OVERFLOW 
(J FLOATING-POINT DIVIDE 
[J OPERATION 












Condition Codes 


OF RESULT = 0, SET TOO 


Ole RESULT <0, SET TO1 
Or RESULT > 0, SET TO 2 
CJ1F OVERFLOW, SET TO 3 
HUNCHANGED 


OO0 OOO00 





The move numerics (MVN) instruction moves the low order four bits (digit portion) of 
each byte in operand 2 into the corresponding low order four bits of each byte in 
operand 1. The high order four bits (zone portion) of each byte in operand 1 remain 
unchanged. This instruction operates from left to right. 





Explicit Format: 







A OPERATION A OPERAND 





[symbol] d, (I,b, ),d,(b,) 


Implicit Format: 






A OPERATION A OPERAND 





[symbol] 


Operational Considerations: 
= Any type of data can be specified in both operands 1 and 2. 
= = §=6The condition code remains unchanged. 


= The high order bit positions of each byte in operand 1 remain unchanged. 
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Example: 

LABEL AOPERATIONA OPERAND 
1 10 16 

MVN TOTAL1+2 (3) ,SUBTOTI 
TOTAL! DC ZL5'12123' 
SUBTOTI OC ZL3'345' 


TOTAL1+2 

ne, 
execution of MVN ‘eicaciac vst 
instruction: p Settee eR a oe pee asc Tesco 


SUBTOT1 before and 





Binary 

after execution of hexadecimal 
MVN instruction: (EBCDIC mode) 
TOTAL1 after : 

: Binary 
execution of MVN . 
2 5 hexadecimal 
instruction: (EBCDIC mode) 


In this example, the low order four bit positions of each byte in SUBTOT1 are moved 
into the low order four bit positions of bytes 3, 4, and 5 of TOTAL1. The high order 
bit positions of each byte in TOTAL1 remain unchanged. 


Example: 





RESULT,=P'5@! 


2. MVN RESULT+2 (1) ,RESULT+3 
MVC BUFFER ,SPACES 
3. MVC BUFFER(3) ,RESULT 
RESULT DC PL4'1234567' 
BUFFER OS CL5 
SPACES DC CLS" 
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mesuly ptogercwion Ta [ode e fe] pe] meammnn 
Operand 2 before and after Sameer ee 
execution of AP instruction: 

oO i u : 


RESULT before execution 
of MVN instruction: 


RESULT after execution Tete a 71 © | Packed decimal number 
of MVN instruction: 


In this example, the MVN instruction is used in rounding numbers. In the first line of 
code, the literal fifty (50) is added to the contents of RESULT to round the number to 
the first two decimal places. 


Packed decimal number 





Then, the low order four bits of byte 4 in RESULT are moved to the low order four 
bits of byte 3 in RESULT. When the MVN instruction is completed, the sign is moved 
to the right of the first two decimal places that were just rounded. The last byte of 
RESULT is ignored when the MVC instruction is executed. The location named 
BUFFER contains the final result. 





blanks 


BUFFER before execution Sevesasrals .; 
of Mve instruction; == | jo] 4 fo [ato] se jo] «|e | ieee 





BUFFER after execution 
of MVC instruction: priztaretereltayo| one 


number 
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9.12. MOVE WITH OFFSET (MVO) 


OBJECT 
OPCODE FORMAT | INST. 
TYPE LGTH. 


MNEM. (BYTES) 


ADDRESSING WM PROTECTION 

[J DATA (INVALID SIGN/DIGIT)| CL] SIGNIFICANCE 
(J DECIMAL DiviDE (0 SPECIFICATION: 
C) DECIMAL OVERFLOW 
C ExecuTE 


NOT A FLOATING-POINT REGISTER 

OP 1 NOT ON HALF-WORD BOUNDARY 
OP 2 NOT ON HALF-WORD BOUNDARY 
OP 2 NOT ON FULL-WORD BOUNDARY 


OP 2 NOT ON DOUBLE-WORD 
BOUNDARY 


OP 1 NOT EVEN NUMBERED REGISTER 
OP 1 NOT ODD NUMBERED REGISTER 
NONE 





Condition Codes 


(CJ EXPONENT OVERFLOW 
CO EXPONENT UNDERFLOW 
(] F1XED-POINT DIVIDE 

(J FIXED-POINT OVERFLOW 
(1) FLOATING-POINT DIVIDE 
(CJ OPERATION 







Cif RESULT = 0, SET TOO 
OJiF Resuct <o, Set Tto1 
OJiF RESULT > 0, SET TO 2 
OF OVERFLOW, SET TO3 
BB UNCHANGED 


AOD: Boob 





The move with offset (MVOQ) instruction moves the contents of operand 2 into operand 
1 offsetting the data one half-byte to the left during the move. 


Explicit Format: 








A OPERATION A 





LABEL OPERAND 






[symbol] d, (I, .b, ),d, (1, ,b,) 


Implicit Format: 





A OPERATION A 





LABEL OPERAND 





[symbol] 





s, (1, ),s, (I) 


The MVO instruction operates from right to left. Data from operand 2 (the sending 
field) is moved into operand 1 (the receiving field) but offset one half-byte to the left. 
The low order four bits of the rightmost byte in the receiving field remain unchanged. 
If operand 2 data does not completely fill operand 1, the leftmost unfilled bytes of 
operand 1 are padded with zeros. However, if the operand 2 field is larger than the 
operand 1 field, the leftmost bytes of operand 2 are truncated. The MVO instruction is 
most commonly used in rounding packed decimal numbers to an odd number of digits. 


Operational Considerations: 


w Usually, the MVO instruction operates on packed decimal fields; however, 
unpacked fields can be specified. 
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= Padding of zeros to the left and truncation to the left can occur. 


# Condition code remains unchanged. 





Example: 
LABEL AOPERATIONA OPERAND 
| 10 16 
MVO FIELD! ,FIELD2 
FIELD! DC XL4'FFFFFFFF ! 
FIELD2 DC XL3'AABBCC' 


hexadecimal 
characters 


FIELD1 before execution Binary 


execution of MVO instruction: al feveecaesi 


characters 


. Bi 
FIELD1 after execution aa 
of MVO instruction: characters 





In this example, the content of FIELD2 is moved (starting from right to left) into 
FIELD1 offset by one half-byte to the left. The low order four bits of the rightmost 
byte of FIELD1 (1111, or hexadecimal F) remain unchanged. 


Each half-byte of FIELD2 fills its corresponding half-byte of FIELD1. The high order 
four bits of the leftmost byte of FIELD1 are padded with binary zeros since the 
operand 1 field is larger than operand 2. 


Example: 


MVO PRICE ,PRICE(2) 


PRICE OC P'37254' 
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PRICE before execution 


i i imal ber 
of MVO instruction: Packed decimal num! 


assumed decimal point 


PRICE after execution 
of MVO instruction: 





In this example, the MVO instruction is used in rounding packed decimal numbers. An 
explicit length is specified for operand 2 and both operands have overlapping bytes. If 
all decimal places are needed in the final result, then this rounding technique is not 
useful. The purpose of this MVO instruction is to move the final result (dollars and 
_ cents) next to the sign so that it can be edited and printed. Note the decimal number 
4 in the high order four bits of the rightmost byte of operand 1 is replaced with the 
decimal number 5 and binary zeros are padded in the high order four bits of the 
leftmost byte of operand 1. 
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9.13. MOVE ZONES (MVZ) 


OBJECT 
OPCODE FORMAT | INST. 


Possible Program Exceptions 


§B ADDRESSING Wi PROTECTION 

(CD DATA (INVALID SIGN/OIGIT)| [) SIGNIFICANCE 

(DO DECIMAL DivIDE CD SPECIFICATION: 

C1 DECIMAL OVERFLOW NOT A FLOATING-POINT REGISTER 
Oexecute - OP 1 NOT ON HALF-WORD BOUNDARY 


LGTH. 
(BYTES) 


Condition Codes 


OF RESULT = 0, SET TOO 
Otter resuct <o, set To1 
Cir RESULT >0, SET TO 2 
OCJIF OVERFLOW, SET TO 3 
BB UNCHANGED 





(CD EXPONENT OVERFLOW OP 2 NOT ON HALF-WORD BOUNDARY 
OC] ExPONENT UNDERFLOW OP 2 NOT ON FULL-WORD BOUNDARY 
OC FIXED-POINT DIVIDE OP 2 NOT ON DOUBLE-WORD 


OC FIXeD-POINT OVERFLOW BOUNDARY 
(C0 FLOATING-POINT DIVIDE OP 1 NOT EVEN NUMBERED REGISTER 


CJ OPERATION OP 1 NOT ODD NUMBERED REGISTER 
NONE 






The move zones (MVZ) instruction moves the high order four bits (zone portion) of 
each byte in operand 2 into the corresponding high order four bits of each byte in 
operand 1. 





Explicit Format: 









LABEL AOPERATION A 


[symbol] 


OPERAND 












d, (1,b,),d, (b,) 


Implicit Format: 





AOPERATIONA 


OPERAND 


This instruction operates from left to right. The low order four bits of each byte in 
operand 1 remain unchanged. If the operand 2 field is larger than operand 1, the 
zone portions of the leftmost bytes of operand 2 are truncated. On the other hand, if 
the operand 1 field is larger than operand 2, the zone portions of the leftmost bytes 
in operand 1 remain unchanged. 


Operational Considerations: 


= @=The contents of both operands should contain zoned numeric fields; however, any 
type of data can be specified. 





= The low order four bits of each byte in operand 1 remain unchanged. 
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@ = Operands 1 and 2 can have overlapping bytes. 


= The condition code remains unchanged. 





Example: 
LABEL AOPERATIONA OPERAND 
1 10 16 
MVZ NUMPOS , NUMNEG 

NUMPOS DC ZL3'456! 

NUMNEG oC XL3'FOFGOP' 

NUMPOS before execution foe ees 

of MVZ instruction: Fig (positive) 

NUMNEG before and after piel Reale 
& execution of MVZ instruction: egal. , 

i ed 
NUMPOS after execution bed Saas 
of MVZ instruction: (negative) 





In this example, the zone portions of each byte in NUMNEG are moved into the 
corresponding zone portions of each byte in NUMPOS. As a result, the sign is 
changed from positive to negative by moving a hexadecimal D into the high order four 
bits of the rightmost byte of NUMPOS. The other two zone portions are replaced with 
the same hexadecimal value. 
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MP 


9.14. MULTIPLY DECIMAL (MP) 


OBJECT 
ADDRESSING @ PROTECTION 
OPCODE FORMAT | INST. a 
LGTH. 


| BEDATA (INVALID SIGN/DIGIT) | [] SIGNIFICANCE 
| MNEM. | HEX. (Bytes) || DJ DECIMAL DIVIDE WB SPECIFICATION: 
Condition Codes 


(1 DECIMAL OVERFLOW NOT A FLOATING-POINT REGISTER 
OJ execute OP 1 NOT ON HALF-WORD BOUNDARY 
(C EXPONENT OVERFLOW OP 2 NOT ON HALF-WORD BOUNDARY 
CO EXPONENT UNDERFLOW OP 2 NOT ON FULL-WORD BOUNDARY 
PEREGO SoG SEraaS C1 FIXED-POINT DIVIDE OP 2 NOT ON DOUBLE-WORD 
Or resuct <o, Set T0 1 
OF RESULT >0, SET TO 2 
OIF OVERFLOW, SET TO 3 
WB UNCHANGED 




















































0 FIXED-POINT OVERFLOW BOUNDARY 

(C0 FLOATING-POINT DIVIDE OP 1 NOT EVEN NUMBERED REGISTER 
CE orperaTION OP 1 NOT ODD NUMBERED REGISTER 
NONE 












OOO OOoOO0O0 


The multiply decimal (MP) instruction algebraically multiplies the packed decimal 
contents of operand 2 (multiplicand) by the packed decimal contents of operand 1 
(multiplier) and stores the result (product) in operand 1. The receiving field (operand 1) 
is filled from right to left. 


Explicit Format: 







A OPERATION A OPERAND 


[symbol] d, (1, ,b,).d,(1,,b,) 


Implicit Format: 








A OPERATION A OPERAND 





[symbol] s, (1,),s, (I) 
Because the result replaces operand 1, you must ensure that the operand 1 field is 
large enough to hold the product. This is determined by adding the number of bytes 


required to hold the multiplicand to the number of bytes required to hold the 
multiplier. 


length of + length of = length of 
multiplicand multiplier operand 1 (product) 


lf you use this rule, the multiplicand will have at least as many high order zeros as 
the number of digits in the multiplier. These high order zeros prevent overflow from 
occurring in the final result. 
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The multiplier (operand 2) can be up to 8 bytes long which can consist of 15 digits 
and a sign. The resultant product (operand 1) can be up to 16 bytes long which can 
consist of 31 digits and a sign. 





Example: 
LABEL AOPERATIONA OPERAND 
1 10 16 
MP HOURS ,RATE 
HOURS oc PL4'hg! 
RATE oc PL2'5@6' 


HOURS before execution 
of MP instruction: po! o | 


RATE before and after 
execution of MP instruction: 


otc Packed decimal number 


o 
QO 


Packed decimal number 
assumed decimal point 


HOURS after execution 
of MP instruction: foro} 210] 


0; Cc Packed decimal number 


Zz assumed decimal point 


In this example, the length of operand 1 is determined by adding the number of bytes 
required to hold the packed decimal 40 (2 bytes) to the number of bytes required to 
hold the packed decimal 500 (2 bytes) which gives the total of 4 bytes. Then the 
multiplication operation takes place operating from right to left. The product replaces 
HOURS and the sign is determined algebraically. (In this example, positive x positive 
= positive.) 


Operational Considerations: 
= The operand 1 field must be large enough to hold the product. 


= The operand 2 field is limited to 8 bytes in length and the operand 1 field is 
limited to 16 bytes in length. 


= Since a symbolic name references the leftmost or high order portion of a location 
in main storage, overlapping bytes can exist in the rightmost bytes only. 


If overlapping bytes exist in the leftmost portion, the number of bytes required to hold 
the multiplicand and the multiplier will be larger than the receiving field. 


= = The condition code remains unchanged. 


= Multiplication by powers of 10 adds decimal places to a specified value. 
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9.15. PACK DECIMAL (PACK) 


Possible Program Exceptions 


— ADDRESSING @ PROTECTION 

( DATA (INVALID SIGN/DIGIT) | (] SIGNIFICANCE 

(0 DECIMAL DiviDE (0 SPECIFICATION: 

0 DECIMAL OVERFLOW NOT A FLOATING-POINT REGISTER 
0 execute OP 1 NOT ON HALF-WORD BOUNDARY 
CO] EXPONENT OVERFLOW OP 2 NOT ON HALF-WORD BOUNDARY 
(C0) ExPONENT UNDERFLOW OP 2 NOT ON FULL-WORD BOUNDARY 
OC FIXED-POINT DIVIDE OP 2 NOT ON DOUBLE-WORD 


O FIXED-POINT OVERFLOW BOUNDARY 
C0 FLOATING-POINT DIVIDE OP 1 NOT EVEN NUMBERED REGISTER 


1 oPeRATION OP 1 NOT ODD NUMBERED REGISTER 
NONE 


OBJECT 
OPCODE FORMAT | INST. 


TYPE LGTH. 
(BYTES) 


Condition Codes 


OIF RESULT = 0, SET TOO 
Or resuct <o, set To 1 
OIF RESULT >0, SET TO 2 
OIF OVERFLOW, SET TO 3 
EUNCHANGED 









The pack decimal (PACK) instruction converts data in operand 2 from unpacked format 
to packed format. (See 9.1.) The result replaces operand 1. 


Explicit Format: 










LABEL A OPERATION A OPERAND 


[symbol] d, (I,,b,), dy (I, by) 


Implicit Format: 





A OPERATION A OPERAND 


[symbol] s, (I), S, (15) 


Any data that is to be used in decimal arithmetic must be stored in packed decimal 
format before any arithmetic operations are performed. After your calculations are 
processed, packed data must be changed back to unpacked (zoned decimal) format to 
be sent to the printer or any other character sensitive device. Remember, when data 
is input from an external device (i.e., card reader), the data is stored in zoned decimal 
format. Operand 2, the sending field, is defined as a character type or zoned type 
field. Operand 1, the receiving field, is defined as a packed field and should contain 
enough bytes to receive all digits (plus the sign) from operand 2. 


The formula for computing the number of bytes required to receive unpacked operand 
2 data is: 





number of bytes required for 
(Number of bytes of operand 2) +t. packed operand 1 field (round 


upward to the nearest byte) 
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When the PACK instruction is executed, all zones in operand 2 are ignored except the zone 
in the rightmost byte. That zone portion (the sign) and the digit portion are reversed and 
placed in the rightmost byte of operand 1. Each digit in operand 2 is placed in operand 1 
next to the rightmost byte, filling in from right to left. Any unfilled bytes or half bytes that 
are part of the specified length for operand 1 are zero-filled. Any unfilled bytes that are not 
part of the specified length for operand 1 remain unchanged. 


Operational Considerations: 
= Operand 2 data should be in zoned decimal format. 


= Operand 1 should contain enough bytes to receive all digits (plus the sign) from 
operand 2. 


= This instruction operates from right to left. 


= Any unfilled bytes or half bytes that are part of the specified length for operand 1 are 
zero-filled. 


= Any unfilled bytes that are not part of the specified length for operand 1 remain 
the same. 


=" ~§=6Specification of a length attribute for operands 1 and 2 is optional. 


= = =©The condition code remains unchanged. 





Example: 
LABEL AOPERATIONA OPERAND 
1 10 16 
PACK AMTP (3) ,AMT(4) 
AMT DC ZL4°1234! 
AMTP DC PL3'g! 


AMITP before execution 
of PACK instruction: Foro] oro | o1c Packed decimal number 
AMT before and after 


execution of PACK Zoned or unpacked 
eas decimal number 


instruction: 


AMTP after execution zero ; 
of PACK instruction: filled Reese ees ace as 
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In this example, the content of AMT (a 4-byte zoned decimal number) is packed into 
AMTP (a 3-byte packed field of zeros). The sign and digit portions of the rightmost 
byte of AMT are reversed and placed in the rightmost byte of AMTP. Then the next 
digit (3) is placed next to the left of the rightmost byte. Then digit 2 is placed to the 
left of digit 3 and digit 1 is placed to the left of digit 2. The high order four bits of 
the leftmost byte are zero-filled. As you can see in this example, two decimal digits 
occupy a single byte with the exception of the rightmost (sign) byte. Note that a 
length attribute is specified for both operands in the examples. The length attribute 
can be omitted but it is suggested it be included for clarity. 





Example: 
LABEL AOPERATIONA OPERAND 
1 10 16 
PACK AMOUNT IN+1(2) ,AMOUNTIN (3) 
AMOUNTIN DC C'768! 
AMOUNTIN+1 


AMOUNTIN before execution 
of PACK instruction: 


Zoned decimal number 


Zoned decimal number 





AMOUNTIN during execution 
of PACK instruction: 


Zoned decimal number 





AMOUNTIN after execution Fi7v7i7:+i6l]sate ck pled te 
i t 
of PACK instruction: 


This example shows that the content of AMOUNTIN (a 3-byte zoned decimal field) is 
packed into part of itself (AMOUNTIN+1, a 2-byte zoned decimal field). The zone 
portion (F) and digit portion (8) of the rightmost byte of AMOUNTIN are reversed and 
placed in the rightmost byte of AMOUNTIN+1. The digits 6 and 7 are placed to the 
left of the rightmost byte, 6 in the low-order four bits and 7 in the high order four 
bits. Because the leftmost byte of AMOUNTIN is not part of the resultant field, that 
byte remains unchanged. Since AMOUNTIN is now a part zoned, part packed field, 
you should move the packed decimal number to another field before performing any 
mathematical calculations. Note that packing a number into itself is not considered 
good practice since results are often unpredictable. 
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& Example: 
LABEL AOPERATIONA OPERAND 
1 10 16 
PACK INVAMT (5) , INVAMT (5) 
INVAMT OC ZL5'-52866' 


INVAMT before execution 
of PACK instruction: 


Zoned decimal 
number 


INVAMT during 
execution of 
PACK instruction: 


INVAMT after execution 
of PACK instruction: 


Packed decimal 
number 





The content of INVAMT (a 5-byte zoned field) is packed into itself. The zone portion 
(D) and the digit portion (0) of the rightmost byte are reversed and returned to the 
same byte. The remaining zones are ignored. The remaining digits are placed in 
INVAMT starting next to the rightmost byte and filling each half-byte from right to 


left. Because the full length of operand 1 is specified, the remaining unfilled bytes are 
zero-filled. 
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9.16. SUBTRACT DECIMAL (SP) 


Possible Program Exceptions 


#§ ADDRESSING W@ PROTECTION 

Bi DATA (INVALID SIGN/DIGIT)| [] SIGNIFICANCE 

(J DECIMAL DiviDE (C1 SPECIFICATION: 

@@ DECIMAL OVERFLOW NOT A FLOATING-POINT REGISTER 
0] execute OP 1 NOT ON HALF-WORD BOUNDARY 


OBJECT 
OPCODE FORMAT | INST. 
TYPE LGTH. 


MNEM. (BYTES) 


(0 EXPONENT OVERFLOW OP 2 NOT ON HALF-WORD BOUNDARY 
C0 ExPONENT UNDERFLOW OP 2 NOT ON FULL-WORD BOUNDARY 
CO FIXED-POINT DIVIDE OP 2 NOT ON DOUBLE-WORD 

OO FIXED-POINT OVERFLOW BOUNDARY 


Condition Codes 


Ml if RESULT = 0,SET TOO 
Wir Resuct <o, set To 1 
Wir RESULT >0O, SET TO2 
BB IF OVERFLOW, SET TO3 
OJ UNCHANGED 


OP t NOT EVEN NUMBERED REGISTER 
OP 1 NOT ODD NUMBERED REGISTER 
NONE 


C0 FLOATING-POINT DIVIDE 
(0 OPERATION 





The subtract decimal (SP) instruction algebraically subtracts the packed decimal 
contents of operand 2 from the packed decimal contents of operand 1 and stores the 
result in operand 1. 


Explicit Format: 









A OPERATION A 





LABEL OPERAND 








[symbol] d, (I,,b,),d,(1,,b,) 





Implicit Format: 





A OPERATION A OPERAND 


[symbol] s, (I, )s, (I) 





Operand 1 (minuend) and operand 2 (subtrahend) must be in packed decimal format. 
The operand 1 field should be equal and in most cases larger than the size of 
operand 2. If operand 1 is too short to contain the result (difference), an overflow 
condition occurs. Subtraction is algebraic, concerning the signs and digits of both 
operands. If the sign of operand 2 is negative, it is treated as positive; if positive, it is 
treated as negative. Then, both operands are added together and the result is placed 
in operand 1. The sign of the difference is determined by the rules of algebra. If the 
result is smaller than the operand 1 field, any unfilled leftmost bytes are zero-filled. 
On the other hand, if the result is larger than the operand 1 field, the leftmost bytes 
of the result are truncated. 
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& Operational Considerations: 
= Operands 1 and 2 must be in packed decima! format. 


= The length of operand 1 should be equal to or larger than the length of operand 
2. 


® Subtraction is algebraic. 


Example: 
LABEL AOPERATIONA OPERAND 
1 10 16 
sP GROSS (3) , DEDUCT (3) 
GROSS DC P'29668' 
DEDUCT DC P'6927! 


GROSS before execution 4 Packed decimal number 
of SP instruction: ee (assumed decimal point) 


DEDUCT before and after ce Eees 7'¢ Packed decimal number 
execution of SP instruction: : (assumed decimal point) 


Packed decimal number 
I (assumed decimal point) 


GROSS after execution 
of SP instruction: 


In this example, the content of DEDUCT is subtracted from the content of GROSS. 
The result replaces GROSS and, in this example, completely fills the operand 1 field. 
The signs of both operands are positive which produces a positive result. 


Example: 


SP FIELD, FIELD+2 (2) 


FIELD DC P'6249311! 


operand 1 


FIELD before execuLon 6 1 2 Rees 3.1 47 1 4 °C Packed decimal number 
of SP instruction: 


operand 2 


@ (assumed decimal point) 


FIELD after eRcCuHen fe 12] aia foto | o1,c Packed decimal number 
of SP instruction: 
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Here is an example of setting the rightmost part of a field to zeros. The contents of 
FIELD + 2 (a 2-byte field) are subtracted from the contents of FIELD (a 4-byte field). 
The result replaces the rightmost two bytes of FIELD. The signs of both operands are 
positive and by the rules of algebra produces a positive result. This instruction 
operates from right to left. The SP instruction starts with the rightmost bytes of both 
operands regardless of the differences in length. If you are concerned with whole 
numbers only, you may want to zero-fill any undesired decimal places. This SP 
instruction is used as a method to zero-fill any decimal places to the right of the 
decimal point. 





Example: 
LABEL A OPERATIONA OPERAND 
1 10 16 
SP QTY, ITEMS 
QTY DC P'-25! 
ITEMS DC P'12! 


QTY before execution Packed decimal number 
of SP instruction: 


ITEMS before and after 
execution of SP instruction: 


Packed decimal number 


QTY after execution 


. : 7 | OD Packed decimal number 
of SP instruction: 


N 
fo) 


The SP instruction subtracts the contents of ITEMS (a 2-byte field) from the contents 
of QTY (a 2-byte field). The result replaces QTY and a zero fills the leftmost unused 
half-byte. The signs are different, however. Operand 2 is unsigned and assumed to be 
positive. Since the sign of operand 2 is positive, it is treated as negative. Now, both 
operands 1 and 2 are negative and are added together. The sign of the result is 
negative since the rules of algebra determine that the sign of the operand with the 
highest absolute value (in addition and subtraction) determines the sign of the result. 
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SRP 









Bae keel 


9.17. SHIFT AND ROUND DECIMAL (SRP) 
INST. 


Possible Program Exceptions 
OPCODE | FORMAT 
TYPE LGTH. 


MNEM. (BYTES) 


Condition Codes 


@ if RESULT =0,SETTOO 
Wir RESULT <o, SET TO1 
Wir RESULT >0, SET TO 2 
Wir OVERFLOW, SET TO3 
CO UNCHANGED 


Mi) ADDRESSING @ PROTECTION 

BB OATA (INVALID SIGN/DIGIT)| [] SIGNIFICANCE 
(J DECIMAL DIVIDE CO SPECIFICATION: 
W@ DECIMAL OVERFLOW 
OO execute 











NOT A FLOATING-POINT REGISTER 

OP 1 NOT ON HALF-WORD BOUNDARY 
OP 2 NOT ON HALF-WORD BOUNDARY 
OP 2 NOT ON FULL-WORD BOUNDARY 


OP 2 NOT ON DOUBLE-WORD 
BOUNDARY 


OP 1 NOT EVEN NUMBERED REGISTER 
OP 1 NOT ODD NUMBERED REGISTER 
NONE 


0 EXPONENT OVERFLOW 
(C) EXPONENT UNDERFLOW 
C1 FIXED-POINT DIVIDE 

CO] FIXED-POINT OVERFLOW 
(C0 FLOATING-POINT DIVIDE 
(C0 OPERATION 





OOO OOOOO 


The shift and round decimal (SRP) instruction shifts a packed decimal number in main 
storage, specified by operand 1, according to specifications contained in operand 2. 


For right shifts, the instruction rounds the decimal result according to the byte of 
immediate data contained in i3. 


Explicit Format: 






AOPERATION A OPERAND 





[symbol] d, (I, ,b,).d,(b,),i, 


Implicit Format: 





A OPERATION A OPERAND 


Operand 1 addresses a packed decimal number, the length (in bytes) of which is specified by 
1. The SRP instruction can shift operand 1 left or right. Only the numeric portion of operand 
1 participates in the shift; the sign does not change, although a sign digit of F is changed to 
C by the instruction. The resulting number replaces operand 1; zeros are shifted in to 
replace vacated digits. 
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Operand 2 specifies the number of half-bytes (packed decimal digits) to be shifted and 
the direction of the shift. This information is taken from the low order six bits of 
operand 2, which are treated together as a signed integer in twos complement form. 
The integer can range in value from —32 (100000,) to +31 (011111,), where a 
positive number indicates a shift to the left and a negative number a shift to the 
right. Thus the integer: 


000001 | (1) 


specifies a 1-digit shift to the left while the integer 


111101 | (—3) 


whose twos complement is 3, indicates a 3-digit shift to the right. 


Operand 3 contains the rounding factor used during right shifts. The factor is 
decimally added to the last (or leftmost) digit shifted out of operand 1. Both factor and 
digit are treated as positive. If this addition generates a carry digit, it is added to the 
low order digit remaining in operand 1 (not the sign). Depending on the number in 
operand 1, the carry may in turn generate other carry digits to its left. The rounding 
factors generally used are: O for no rounding, and 5 for rounding. All digits shifted 
out of operand 1 are lost. 


Operational Considerations: 


= Operand 1 must be a packed decimal number, the low order half-byte containing a C, 
D, or F, or else a data exception will result. The sign remains unchanged but the SRP 
instruction changes a sign digit of F (unsigned positive) to a sign digit of C (signed 
positive). 


= §=lf operand 2 is an explicit address with a base register (b2) other than O, the SRP 
instruction first calculates the address by adding the register contents to the 
displacement (d.) then extracts its low order six bits to determine how to shift 
operand 1. For an explicit address using O as its base register, the six bits are 
taken directly from bits 42—47 of the SRP object code. 


= You can specify operand 2 as an explicit address or as a symbol. 


= For a right shift, you must specify operand 3 as a self-defining term; the usual 
values are O or 5. For left shifts, operand 3 is ignored. 


= For a specified length 1, the object code contains the value 1—1 in bits 8—11. 
You can specify a maximum length of 16 bytes or 31 packed digits, plus sign. 
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Condition Code: 

After execution of the SRP instruction, the condition code is set: 
= to O if operand 1 is zero; 

= «to 1 if operand 1 is less than zero; 


= to 2 if operand 1 is greater than zero; or 


= to 3 if one or more nonzero digits is shifted out of the high order end of 
operand 1; this can only occur during a left shift. If the decimal overflow mask 
bit (bit 37) of the PSW is set to 1, an overflow generates a decimal overflow 
exception in addition to setting the condition code to 3. 





Example: 
LABEL AOPERATIONA OPERAND 
1 10 16 
1 LA 9,3 
2 SRP PNUM1 (3) ,6(9) ,@ 
PNUM1 DC PL3'41637' + 


In this example, the 3-byte packed decimal field PNUM1 has the value: 


mw [a] Do] 


The LA instruction in line 1 puts a value of 3 into register 9. The SRP instruction in line 2 
uses operand 2 to form an address of: 


Operand 2 address 00000003 


_of which the low order six bits are: 


0 3 


00 | 0011 
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The value thus obtained is +3 which indicates a left shift of 3 digits. Following 
PNUM1 through its shifts: 


0 
First shift 10 | a7 | Oc | (condition code 3 set) 


4 
lost 


0 


wwen fo [m [= 


: 


Third shift } a7 | 00 | bc | (condition code 2 set) 


we get the final PNUM1 value of +37000. Notice that the C (positive) sign remains 
unchanged throughout. Notice also that a decimal overflow sets condition code 3 
(assuming here that the decimal overflow exception is prevented) and that a positive 
result sets condition code 2. Operand 3 plays no part in this shift. 





Example: 
LABEL AOPERATIONA OPERAND 
1 10 16 
SRP PNUM2 (4) ,61,5 
PNUM2 DC PL4'-4799867! 


In this example, the 4-byte packed decimal field PNUM2 has the value: 
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Operand 2 in the SRP instruction yields an effective address of: 


0000003D 


the low order six bits of which are: 


wo 
oO 


The twos complement of this integer is 3 so the value represented is —3, indicating a right 


shift of 3 digits. First, the SRP instruction performs two digit shifts in which the shifted-out 
digits are simply lost: , 


moe Lm [o [= lo) 
7 


o 


Oo 
—~ Oo 


swim fo [oo [or] 
0 


After the third and final shift, the resulting number is rounded according to the 
rounding factor: 


Third shift 





8 {last digit shifted out) 
+ 5 {rounding factor) 





113 -—— 
us lost | 
9 
+1 (first carry digit) 
ae aaa } 00 | o# | 79 | 00 | 


9 
+1 (second carry digit) 
aes are | 00 | 04 | 70 | 00 | 
7 
+1 (third carry digit) 


wen [fo [vo oo] 


(no more carry digits) 
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When the final digit (8) is shifted out, it is added to the iz rounding factor, 5. The 

sum of 13 has a carry digit which is added to the low order digit of operand 1. This @ 
action generates another carry digit which, when added to the next higher operand 1 

digit, generates a third-carry digit. Because that digit, when added to the third 

operand 1 digit, does not generate another carry digit, the SRP instruction ends there. 

The condition code is set to 1 to indicate a negative result. 
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UNPK 


9.18. UNPACK DECIMAL (UNPK) 


Possible Program Exceptions 


OPCODE OBJECT || gy ADDRESSING Ml PROTECTION 
paisa: eae (J DATA (INVALID SIGN/DIGIT) | [] SIGNIFICANCE 
(BYTES) || L) DECIMAL DIVIDE C) SPECIFICATION: 
C) DecIMAL OVERFLOW NOT A FLOATING-POINT REGISTER 


OO execute OP 1 NOT ON HALF-WORD BOUNDARY 


DC EXPONENT OVERFLOW OP 2 NOT ON HALF-WORD BOUNDARY 
Condition Codes C1) EXPONENT UNDERFLOW OP 2 NOT ON FULL-WORD BOUNDARY 
OP 2 NOT ON DOUBLE-WORD 


(C0 FIXED-POINT DIVIDE 
CJ FixeD-POINT OVERFLOW BOUNDARY 
OJiF RESULT >0, SET TO2 C1 FLOATING-POINT DIVIDE OP 1 NOT EVEN NUMBERED REGISTER 


CF OVERFLOW, SET TO3 DC OPERATION OP 1 NOT ODD NUMBERED REGISTER 
MBE UNCHANGED NONE 


CJ 1F RESULT = 0, SET TOO 
Or RESULT <o, SET TO1 





The unpack decimal (UNPK) instruction converts data in operand 2 from packed format 
to unpacked (zoned decimal) format. (See 9.1.) The result replaces operand 1. 


Explicit Format: 






A OPERATION A OPERAND 





[symbol] d, (1, ,b, ),d, (I,,b,) 


Implicit Format: 





AOPERATION A OPERAND 






[symbol] s, (I, ),s, (1) 


Data that is to be printed or sent to any other character-sensitive device must be 
stored in zoned decimal format. Operand 2, the sending field, is defined as a packed 
field. Operand 1, the receiving field, is defined as a character type or zoned type field. 
Operand 1 should contain enough bytes to receive all digits, a zone for each digit, 
and the sign from operand 2. 


The formula for computing the number of bytes required to receive packed operand 2 
data is: 


(Number of bytes of operand 2) x 2 —1= number of bytes required 
for unpacked operand 1 
field. 
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The UNPK instruction reverses the zone and digit portion (the sign) of the rightmost 

byte of operand 2 and places it in the rightmost byte of operand 1. Each half byte of & 
operand 2 is moved to a digit portion and a hexadecimal F (binary 1111) fills each 

zone portion in operand 1. The move takes place from right to left, consecutively. Any 

unfilled bytes that are part of the specified length for operand 1 are zero-filled. If the 

operand 1 field is too short, the leftmost bytes of operand 2 are truncated. 

Operational Considerations: 

=  Operand 2 data should be in packed decimal format. 


= Operand 1 should contain enough bytes to receive all digits, a zone for each 
digit, and the sign from operand 2. 


= This instruction operates from right to left. 


a Any unfilled bytes that are part of the specified length for operand 1 are zero- 
filled. 


= Specification of a length attribute for operands 1 and 2 is optional. 


= The condition code remains unchanged. 








Example: 
LABEL AOPERATIONA OPERAND 
1 10 16 
UNPK TOTALU(3) , TOTALP(2) 
TOTALU DS CL3 
TOTALP 0C P'125! 


TOTALU before execution 
of UNPK instruction: 


oa 
Oo 
~“ 
o 


Eee Leftover data from a previous page 


Cc Packed decimal number 


Eeee c ! 5 Unpacked decimal number 


TOTALP before and after 
execution of UNPK instruction: 


TOTALU after execution 
of UNPK instruction: 
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The UNPK instruction changes the packed format of TOTALP to unpacked format and 
places the result in TOTALU. The zone (5) and digit (C) porticns of TOTALP are 
reversed and placed in the rightmost byte of TOTALU. The digit 2 fills the digit 
portion and a hexadecimal F fills the zone portion next to the rightmost byte. Then 
the digit 1 fills the digit portion and a hexadecimal F fills the zone portion to the left 
of the byte just filled. As you can see, the field requiring 2 bytes to store the original 
packed data now requires 3 bytes to store the same data but in unpacked format. 
Note that a length attribute is specified for both operands, although it can be omitted. 





Example: 
LABEL AOPERATIONA OPERAND 
| 10 16 
UNPK TOTAMT , TOTAMT 
TOTAMT DC P'1234! 


TOTAMT before execution 
of UNPK instruction: 


243 | 4! ¢ Packed decimal number 


TOTAMT during execution y 
of UNPK instruction: pot eek es es 


TOTAMT after execution 
of UNPK instruction: 


The UNPK instruction reverses the zone (4) and digit (C) portions and returns it to the 
same byte. The next half byte (3) replaces the digit portion and a hexadecimal F fills 
in the zone portion next to the half byte just filled. No length attributes are specified, 
so the implied lengths are used. As you can see, the result received is not the result 
expected. So, remember that unpacking a number into itself is not considered good 
practice because some results are often unpredictable. 
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ZAP 


9.19. ZERO AND ADD DECIMAL (ZAP) 


Possible Program Exceptions 


BB ADDRESSING Mi PROTECTION 

BB DATA (INVALID SIGN/DIG!IT) OC SIGNIFICANCE 

( DECIMAL DIVIDE OO SPECIFICATION: 

@ DECIMAL OVERFLOW NOT A FLOATING-POINT REGISTER 
OO execute OP 1 NOT ON HALF-WORD BOUNDARY 
CD EXPONENT OVERFLOW OP 2 NOT ON HALF-WORD BOUNDARY 
CO) EXPONENT UNDERFLOW OP 2 NOT ON FULL-WORD BOUNDARY 
CD FIXED-POINT DIVIDE OP 2 NOT ON DOUBLE-WORD 


OO FIXED-POINT OVERFLOW BOUNDARY 
CO] FLOATING-POINT DIVIDE OP 1 NOT EVEN NUMBERED REGISTER 


(J OPERATION OP 1 NOT ODD NUMBERED REGISTER 
NONE 


OBJECT 
OPCODE FORMAT | INST. 





















LGTH. 
(BYTES) 


Condition Codes 














Wir RESULT = 0, SET TOO 
Wir REsuLT <o, set To1 
Bir RESULT >0, SET TO2 
Gif OVERFLOW, SET TO3 
CJ UNCHANGED 










GO DOO 


The zero and add decimal (ZAP) instruction moves a packed field of zeros into operand 
1 and then adds the packed contents of operand 2 to the packed field of zeros in 
operand 1. The result replaces operand 1. 


Explicit Format: 






A OPERATION A OPERAND 


[symbol] 





d, (1, ,b,).d, (Ip,b,) 


implicit Format: 






LABEL A OPERATION A 


OPERAND 


s,(I,),8, (Ip) 


This instruction operates in the same manner as the add decimal (AP) instruction 
except that a packed field of zeros is moved into operand 1 before the addition 
occurs. The sign of the packed field of zeros is positive. After the addition takes place 
the resultant sign is the same as operand 2. If operand 2 does not have a valid sign 
in the low order four bits, a data exception occurs. If an overflow condition occurs 
and the leftmost bytes are truncated, a zero result still has the sign of operand 2. In 
effect, the ZAP instruction replaces operand 1 with the contents of operand 2. The 
length of operand 1 should be the same as, or larger than, the length of operand 2. 
lf the operand 1 field is not sufficient to receive all of operand 2, an overflow 
condition occurs. Operands 1 and 2 can have overlapping bytes when the rightmost 
byte of operand 1 coincides with, or is to the right of, the rightmost byte of operand 
2, provided a valid sign exists in the low order four bits of operand 2. 
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@ Operational Considerations: 
= Operand 2 must be in packed decimal format. 


= lf the length of operand 2 is larger than the length of operand 1, the leftmost 
digits of operand 2 are truncated. 


= §=If the length of operand 1 is larger than operand 2, the leftmost digits of operand 
1 are zero-filled. 


= Operand 2 must have a valid sign in the low order four bits. 





Example: 
LABEL AOPERATIONA OPERAND 
| 10 16 
ZAP TOTAMT , YTDAMT 
TOTAMT DC P'S28h16! 
YTDAMT OC P'215! 


TOTAMT before execution 
of ZAP instruction: 


6 ! c | Packed decimal number 


YTDAMT before and after 
execution of ZAP instruction: 


TOTAMT after execution fo! o | 


of ZAP instruction: 


oa 
Oo 


Packed decimal number 


5 1C Packed decimal number 


In this example, the ZAP instruction moves a packed field of zeros into TOTAMT and 
then adds the contents of YTDAMT to TOTAMT. As you can see, the contents of 
YTDAMT now replaces the contents of TOTAMT. In this sample program, TOTAMT 
contains a year’s total amount of sales, while YTDAMT contains the accumulative 
amount of sales. At the end of 12 months, when the maximum amount of sales for 
the year is reached, TOTAMT must be cleared to zero, so that the amount of sales 
for the first month of the next year can be accumulated. 


Example: 


MVC CALC+1(1) ,=P'1' 
ZAP CALC+1(2) ,CALC (2) 


e CALC DC P'25124' 
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CALC after execution 
of MVC instruction: 


CALC before execution ne eee Rte eee nee 
s . Ci 
of MVC instruction: . 


operand 2 


p2t 5 | 11°C (stored) 
fo 10 | o1 C Packed field of zeros 


CALC after execution fots|2is| oie ah etainat - 
i i a mal num 
of ZAP instruction: cked deci 


In this example, operands 1 and 2 have one overlapping byte. The rightmost byte of 
CALC+1(2) (operand 1) is to the right of the rightmost byte of CALC(2) (operand 2). 
When the ZAP instruction is executed, a packed field of zeros with a positive sign is 
moved into operand 1. Then, the contents of operand 2 that has been saved prior to 
the execution of the ZAP instruction is now added to the packed field of zeros. In 
effect, the contents of operand 2 now replace the contents of operand 1. 


CALC during execution 
of ZAP instruction: 
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10. Fixed-Point Binary Instructions 


10.1. USE OF FIXED-POINT BINARY INSTRUCTIONS 


If the fixed-point binary instruction set (RX, RR, or RS) is compared to the decimal 
instruction set (SS or Sl), you will discover that the difference between storage-to- 
storage type instructions and register type instructions is the location of the 
instruction operands. Both operands for decimal instructions are contained in main 
storage, while the operands for fixed-point instructions are either both in the 
processor or one in the processor and one in main storage. Any instruction operands 
located in main storage are transferred to the processor before execution. In fixed- 
point binary instructions, the RR type requires no transfer of operands, while the RX 
and RS types require transfer of only one. In decimal instructions, both operands are 
always transferred. This explains why execution time of fixed-point binary instructions 
is faster than execution time of decimal instructions. 


Execution time gained by arithmetic binary instructions over decimal instructions is 
lost, however, in the data conversion process. Both instruction sets must convert card 
input data in zoned decimal format (EBCDIC) to a data format acceptable to the 
instruction set. Decimal instruction input data must be converted to packed decimal 
format; fixed-point binary instruction input data must be converted to binary format. 


Conversion to packed format is faster than conversion to fixed-point binary format 
because binary conversion requires an additional instruction that has a slower 
execution time. To get input data into packed format, you use the PACK instruction; to 
output packed data, you must first unpack it with the UNPK or ED instruction. When 
converting input data to binary, the data must be packed first, then converted to 
binary (using the convert to binary (CVB) instruction). On output, data must be 
converted to packed decimal (using the convert to decimal (CVD) instruction) and then 
converted to unpacked or zoned decimal format. For input conversion, fixed-point 
binary instructions execute slower than decimal instructions. For a comparison of the 
execution times for decimal and fixed-point instructions, see the system hardware and 
software summary. 
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Fixed-point instructions should be used in programs having less input data and more 
arithmetic calculations, whereas decimal instructions should be used in programs 
having more input data and less arithmetic calculations. This is why _ binary 
instructions are used in the design of FORTRAN compilers and decimal instructions 
are used in the design of COBOL compilers. 


There are 16 general registers located inside the processor that can be used as 
operands in fixed-point instructions. A decimal number (O through 15) is used to 
reference a register. This is similar to using labels when referencing main storage 
locations. 


For all fixed-point instructions, operand 1 always references a register with the 
exception of the add immediate (Al) instruction, whose operands both reference main 
storage locations. The operand 1 register is usually the receiving field or resultant 
field after an instruction is executed. For the store (ST) and convert to decimal (CVD) 
instructions, however, operand 2 (a main storage location) is the resultant field. In 
fixed-point instructions, operand 2 references either a register (RR), or a main storage 
location (RX or RS). The compare instructions do not have a resultant field, since they 
test already existing conditions and have no effect on operands 1 and 2. 


To bring data from main storage into a register, it must be compatible with the 
structure of the register. A register is four bytes in length and uses 32 binary bits to 
represent a signed binary number. The high order bit position represents the sign. A 
binary 1 in the high order bit position represents a negative number, whereas a 
binary O in the high order bit position represents a positive number. 


REGISTER (4 bytes) 


o2z07% 


There are two ways to create data in fixed-point binary format: 


1. Use the convert to binary (CVB) instruction to convert a packed decimal number 
to a fixed-point binary number which is placed in a register. 


2. Use the define constant (DC) statement to create a constant that is defined as a 
half word, full word, or double word, or a constant that is aligned on a half- 
word, full-word, or double-word boundary. This constant is then placed in a 
register through execution of another instruction [i.e., Add (A), Load (L), Subtract 


(S)]. 
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HALF WORD (2 bytes) 


°o 20-0 


FULL WORD (4 bytes) 


o 207% 


DOUBLE WORD (8 bytes) 


As shown, these formats are compatible with the formats of registers. Since registers 
are full words (4 bytes), only full words or half words in main storage (or other 
registers) can be specified as operand 2. When a half word value in main storage is 
specified as operand 2, a full 4 bytes are used when that instruction is executed. 
Operand 2 is expanded to 32 bits by propagating the sign bit value through the 16 
high order bit positions. Expansion occurs after the operand is obtained and before 
insertion, comparison, or any mathematical calculations are performed with the 
register. 


10.1.1. Half-Word Fixed-Point Constants 


The character H is the definition type used for defining half-word fixed-point constants in 

main storage. The constants associated with this definition type must be enclosed within 
apostrophes, cannot exceed more than five decimal digits, and cannot have a value greater 

than +32767 (2'5—1) or less than —32768 (—2'5). Half-word constants are two bytes in <_ 
length and aligned on a half-word boundary. If the constant specified does not occupy the 

full two bytes, it is right-justified and the high order unused bits are filled with the sign 

bit. Duplication factors can be used and the nominal value can be a signed or unsigned 
decimal number. Because the length of a half word is always two bytes, no length factor is 
required. If a length factor is specified, half-word boundary alignment is ignored and the 
specified length is allocated. 


Example: 


LOC. OBJECT CODE LINE SOURCE STATEMENT 


000002 k PLUSI DC HL1'+57' 
000003 

000004 5 PLUS2 H'57! 
000006 6 NEGI HL1'-57' 


000007 
000008 7 NEG2 H'-57' 
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10.1.2. Full-Word Fixed-Point Constants 





The character F is the definition type used for defining full-word fixed-point constants in 
main storage. The constant associated with this definition type must be enclosed within 
apostrophes, cannot exceed more than 10 decimal digits, and cannot have a value greater 
than +2,147,483,647 (23'—1) or less than —2,147,483,648 (—23'). Full-word constants 
are four bytes in length and aligned on a full-word boundary. If the constant specified does 
not occupy the full four bytes, it is right-justified and leftmost unused bits are filled with 
the sign bit. Duplication factors can be used and the nominal value can be a signed or 
unsigned decimal number. Because the length of a full word is always four bytes, no 
length factor is required. If a length factor is specified, full-word boundary alignment is 
ignored and the specified length is allocated. 


Example: 


LOC. OBJECT CODE LINE SOURCE STATEMENT 


OO000A O10F 8 PLUS3 DC FL2'+271' 
O00000C 0000010F 9 PLUS4 DC ae a 


000010 FEF] 10 NEG3 DC EL2 S27 15 
000012 0000 
000014 FFFFFEFI 11 NEG4 DC ee Al 





10.1.3. Address Constants 


Address constants are storage addresses that are stored as constants by using DC 
statements. Address constants are used to initialize base registers; thereby, providing 
communication between control sections of a multisection program. Unlike other types of 
constants, an address constant is enclosed within parentheses. If more than one address 
constant is specified, they are separated by commas, and the entire sequence is enclosed 
within parentheses. There are two types of address constants: half word (Y) and full word 
(A). 


10.1.3.1. Full-Word Address Constants 


This constant can be specified as an absolute, relocatable, or complex relocatable 
expression. It has a length of four bytes and is full-word boundary aligned. You cannot 
specify a value greater than +2,147,483,647 (23'—1) or less than —2,147,483,648 (—23'). 
To generate full-word address constants, use the DC statements with the character A as 
the definition type and the expressions specified enclosed within parentheses. You can 
also generate full-word address constants as literals. The address of these expressions are 
stored in consecutive full words in main storage. However, if a length factor is specified, 
full-word boundary alignment is ignored and the specified length is allocated. 
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@ Example: 


Loc. OBJECT CODE ADDRI ADDR2 LINE SOURCE STATEMENT 


000002 TAG CL3 

000005 HOURS CL2 

000007 RATE CLA 

000008 PAY CL3 

OOOO0E LABEL CL6 

000014 TAG] CL3 

000017 BUF CLA 

000018 TAG2 CL3 

OOOOIE ADLIST CL20 

000032 0000 

000034 0000006A ADCON] A(106,TAG, *+526) 
000038 00000002 

00003C 0000024A 

000040 

000040 00000007 ADCON2 A(RATE, HOURS, PAY) 
000044 00000005 

000048 0000000B 

00004C 

0O0004C 9858 3056 ADCON3 5,8,=A(88,LABEL, TAG]-TAG2, BUF+641 
000050 OO00000I1E ADCON4 A(ADLIST) 





10.1.3.2. Half-Word Address Constants 


& This constant can be specified as an absolute, relocatable, or complex relocatable 
expression. It has a length of two bytes and is half-word boundary aligned. You cannot 
specify a value greater than +32767 (2'5—1) or less than —32768 (—2'5). To generate 
half-word address constants, use the DC statements with the character Y as the definition 
type and the expressions specified enclosed within parentheses. You can also generate 
half-word address constants as literals. The addresses of these expressions are stored in 
consecutive half words in main storage. However, if a length factor is specified, half-word 

boundary alignment is ignored and the specified length is allocated. 


Example: 

LOC. OBJECT CODE LINE SOURCE STATEMENT 

000002 500C VALUE DC PL2'500' 

000004 00000001 NUM DC Fry! 

000008 F3F6F2 POS DC X'F3F6F2! 

00000B 60 NEG DC CL1'-8! 

O0000C F6F2F4F7CO ZONE DC ZL5'62470' 

000011 00 

000012 000B ADCONY!] DC Y (NEG, POS) 

000014 0008 

000016 

000016 0116 ADCONY2 DC Y (*4+256, 600) 

000018 0258 

00001A 0008 ADCONY3 DC Y (VALUE+6) 

OO0001C 

00001C 0019000A ADCONY4 DC ¥ (25, ZONE-VALUE , NUM, POS+4) 
& 000020 0004 

000022 O00C 


000024 
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10.1.4. Representation of Positive and Negative Fixed-Point Binary Numbers @ 


Binary ones and zeros, with relation to their positions in a string of bits, represent 
values expressed in powers of two (see Appendix C.3). The powers of two increase 
from right to left (Figure 10—1). A zero (0) bit indicates no value and a one (1) bit 
indicates that a value exists. By adding all the powers of two that correspond to one 
bits, you can determine the decimal equivalence for a positive binary number. A zero 
bit in the high order bit or any unused high order bits signify a positive binary 
number. 


+ sign 


01001 11010] 1100 '0101 


i?) 78 15 


(powers . 
of two) 215 2t4 213 912 ait 910 49 78 97 76 25 94 93 22 gi 2? 


(binary 9 0 (0) 1 1 0 1 0 1 1 0 0 (0) 1 (0) 1 


configuration) | L 1 (29) 
4 = (22) 

64 = (28) 

: 128 (27) 


512 ~— (29) 
2048 (244) 
4096 = (28) 


6853 (decimal @ 


equivalent) 








Figure 10-1. Comparison of Binary Numbers and Values Expressed in Powers of 2 


Negative binary numbers are indicated by a one bit in the high order bit position or 
any unused high order bit positions. The remaining portion contains the negative 
binary number but in twos complement form. To change a positive binary number into 
twos complement form: 


a reverse the bits; and 


= add one to the rightmost or low order bit position: 


0001101011000101 positive binary number 
(decimal + 6,853) 
1110010100111010 reversed bits 
+1 add 1 
1110010100111011 binary number in twos complement form 


(decimal — 6,853) 
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10.2. ADD (A) 
OBJECT || gy ADDRESSING W@ PROTECTION 
Remon? 2 | ORME NS (DATA (INVALID SIGN/DIGIT) | C] SIGNIFICANCE 
TYPE LGTH. 


[] DECIMAL DivIvDE 

(C DECIMAL OVERFLOW 
CJ Execute 

(] EXPONENT OVERFLOW 
(J EXPONENT UNDERFLOW 
OC FIXED-POINT DIVIDE 


MNEM. JHEX. (BYTES) 


Condition Codes 







Wi SPECIFICATION: 


10-7 








NOT A FLOATING-POINT REGISTER 
OP 1 NOT ON HALF-WORD BOUNDARY 
OP 2 NOT ON HALF-WORD BOUNDARY 
OP 2 NOT ON FULL-WORD BOUNDARY 
OP 2 NOT ON DOUBLE-WORD 












WM irF REsuLT = 0,SETTOO 
Wir Resutt <o,setto1 
Wir RESULT > oO, SET TO 2 
Wir ovERFLOw, SET TO3 
(UNCHANGED 


BOUNDARY 

OP 1 NOT EVEN NUMBERED REGISTER 

OP 1 NOT ODD NUMBERED REGISTER 
NONE 








@ FIxED-POINT OVERFLOW 
C] FLOATING-POINT DIVIDE 
(] OPERATION 


OOO Owo00 


The add (A) instruction algebraically adds the full-word main storage contents of 
operand 2 to the contents in the operand 1 register and stores the sum in operand 1. 


Explicit Format: 







A OPERATIONA OPERAND 





[symbol] r,.d,(x,,b,) 


Implicit Format: 






A OPERATION A OPERAND 


[symbol] 
Operational Considerations: 
= Any of the general registers (0 through 15) can be used as operand 1. 


= Operand 2 must either be defined as a full word or aligned on a _ full-word 
boundary. 


a If the sum exceeds 31 bit positions, an overflow condition occurs. 
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Example: 
LABEL AOPERATIONA OPERAND 
1 10 16 
SR 6,6 
A 6,FULLWORD 
FULLWORD DC F'+271! 


Register 6 before execution of A instruction: 


0000 ; 0000 | 0000 | 0000 | 0000 ; 0000 | 0000 , 0000 


FULLWORD before and after execution of A instruction: 


| on 


Register 6 after execution of A instruction: 


0000 | 0000/0000 !0000 | 000010001 |0000 41111 


In this example, the SR instruction subtracts the content of register 6 from itself, 
clearing it to zero. Then the content of FULLWORD is added to the content of register 
6. The result replaces the content of the operand 1 register. 






binary 





hex 
















binary 


hex 
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10.3. ADD (AR) 


Possible Program Exceptions 


OBJECT 


ADDRESSING (1 PROTECTION 
OPCODE FORMAT | INST. 0 


(0 DATA (INVALID SIGN/O1GIT) | [1] SIGNIFICANCE 

(J DECIMAL DivIDE CZ SPECIFICATION: 

D2 DECIMAL OVERFLOW NOT A FLOATING-POINT REGISTER 

2 execute OP 1 NOT ON HALF-WORD BOUNDARY 


TYPE LGTH. 
(BYTES) 


Condition Codes 


Ml iF RESULT =0,SET TOO 
Wir Resuct<o,setto1 
@ ir RESULT >0, SET TO 2 
GIF OVERFLOW, SET TO3 
CI UNCHANGED 





(C0 EXPONENT OVERFLOW OP 2 NOT ON HALF-WORD BOUNDARY 
0 EXPONENT UNDERFLOW OP 2 NOT ON FULL-WORD BOUNDARY 
0 FIX€D-POINT DIVIDE OP 2 NOT ON DOUBLE-WORD 


i FixED-POINT OVERFLOW BOUNDARY 
(0 FLOATING-POINT DIVIDE OP 1 NOT EVEN NUMBERED REGISTER 


(] OPERATION OP 1 NOT ODD NUMBERED REGISTER 
NONE 






The add (AR) instruction algebraically adds the contents of the operand 2 register to 
the contents of the operand 1 register and stores the sum in operand 1. 


Explicit and Implicit Format: 






A OPERATION A OPERAND 


[symbol] 


Operational Considerations: 
= Any of the general registers (0 through 15) can be used as operands 1 and 2. 


a If the sum exceeds 31 bit positions, an overflow condition occurs. 





Example: 
LABEL AOPERATIONA OPERAND 
1 10 16 
L 5,NUMI 
L 6 ,NUM2 
AR 5,6 
NUMI DC F'22! 


NUM2 DC F'l6! 
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Register 5 before execution of AR instruction: 





binary 


hex 


binary 


hex 


binary 


hex 





In this example, the contents of NUM1 is loaded into register 5 and the contents of 
NUM2 is loaded into register 6. Then, the contents of register 6 is added to the 
contents of register 5. The result is placed in register 5 (operand 1). Notice that both 
NUM1 and NUM2 are full words. 
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@ aH 
10.4. ADD HALF WORD (AH) 


Possible Program Exceptions 
ee ADDRESSING W@ PROTECTION 
OPCODE FORMAT | INST. 
cali aie eu ( CATA (INVALID SIGN/DIGIT) | [] SIGNIFICANCE 


| mem. |HEX.| (Bytes) || (J) OECIMAL DivIDE W@ SPECIFICATION: 
C) DECIMAL OVERFLOW NOT A FLOATING-POINT REGISTER 


DD EXPONENT OVERFLOW OP 2 NOT ON HALF-WORD BOUNDARY 
Condition Codes (] EXPONENT UNOERFLOW OP 2 NOT ON FULL-WORD BOUNDARY 


CF FIXED-POINT DIVIDE OP 2 NOT ON DOUBLE-WORD 
Hi ansrig eel Ze eas @ FixeD-POINT OVERFLOW BOUNDARY 
Bit RESULT >0, SET TO2 C1 FLOATING-POINT DIVIDE OP 1 NOT EVEN NUMBERED REGISTER 
Wirf OVERFLOW, SET TO3 (J OPERATION oP 1 NOT ODD NUMBERED REGISTER 
(J UNCHANGED NONE 





The add half-word (AH) instruction algebraically adds the contents of operand 2 to the 
contents of the operand 1 register and puts the sum in operand 1. 


@ Explicit Format: 






AOPERATION A OPERAND 





[symbol] r, 4, (x, ,b,) 


Implicit Format: 





A OPERATION A OPERAND 





[symbol] 


Operand 2 is two bytes in length (16-bit signed integer) and is located in main 
storage. Before operand 2 is added to the operand 1 register, operand 2 is temporarily 
expanded to 32 bits by propagating the sign bit through the high order 16 bit 
positions. Then all 32 bits of operand 2 are added to the 32 bits of operand 1. The 
result is placed in operand 1. If the sum exceeds 31 bits, an overflow condition 
occurs. 


Operational Considerations: 
= Operand 2 must be either defined as a half word or half-word boundary aligned. 
@ = Any of the general registers (O through 15) can be used as operand 1. 


= @A fixed-point overflow condition can occur. 





Example: 
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LABEL  AOPERATIONA OPERAND 
10 16 
L 5 ,FULLWORD 
AH 5 ,HALFWORD 
FULLWORD DC F'32! 
HALFWORD DC H'16! 


Register 5 before execution of AH instruction: 





HALFWORD before and after execution of AH instruction: 


before expanding to 32 bits 





binary 


hex 





after expanding to 32 bits 
Register 5 after execution of AH instruction: 


binary 


hex 





In this example, the content of FULLWORD is loaded into register 5. Then the content 
of HALFWORD is added to the content of register 5. The result is placed in register 5 
(operand 1). If the sum exceeds 31 bits, an overflow condition occurs. 
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Al 


10.5. ADD IMMEDIATE (Al) 


General Possible Program Exceptions 
OBJECT a 
ADDRESSING PROTECTION 
OPCODE FORMAT | INST. a 
TYPE LGTH. 


(] DATA (INVALID SIGN/DIGIT) () SIGNIFICANCE 
MNEM. (BYTES) 


| mive. | (J DECIMAL DiviDE Wl SPECIFICATION: 
Ta fol ss | 4 eS, DECIMAL OVERFLOW NOT A FLOATING-POINT REGISTER 
Condition Codes 


OJ Execute OP 1 NOT ON HALF-WORD BOUNDARY 
(] EXPONENT OVERFLOW OP 2 NOT ON HALF-WORD BOUNDARY 
(J EXPONENT UNDERFLOW OP 2 NOT ON FULL-WORD BOUNDARY 
MiP crcuihe Go cer oe CJ FIXED-POINT DIVIDE OP 2 NOT ON DOUBLE-WORD 
Micpesurr<o sero W@ Fixed POINT OVERFLOW BOUNDARY 
Mir RESULT >O, SET TO 2 
Gir OVERFLOW, SET TO3 
[J UNCHANGED 





















































C] FLOATING POINT DIVIDE OP 1 NOT EVEN NUMBERED REGISTER 
[] OPERATION OP 1 NOT ODD NUMBERED REGISTER 
NONE 







OOO OOO8O 


The add immediate (Al) instruction algebraically adds the 1-byte immediate data in 
operand 2 to the half word value in operand 1. The sum is placed in operand 1. 


Explicit Format: 






AOPERATIONA OPERAND 


[symbol] 


Implicit Format: 








OPERAND 


A OPERATION A 





LABEL 


Operand 1 must be either defined as a half word or is half-word boundary aligned. 
Operand 2 must be a 1-byte self-defining term. Before operand 2 is added to the half 
word in operand 1, operand 2 is temporarily expanded to 16 bits by propagating the 
sign bit through the high order 8 bit positions. Then all 16 bits in operand 2 are 
added to the 16 bits in operand 1. The result is placed in operand 1. If the sum 
exceeds 15 bit positions, an overflow condition occurs. 
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= Operand 1 must be either defined as a half word or aligned on a_ half-word 
boundary. 


s During execution of the Al instruction, operand 2 is temporarily expanded to 16 
bit positions. The leftmost eight bits are the same as the sign bit. 


= Operand 2 must be a 1-byte, self-defining term (see 4.4). 


= You may not specify an immediate value greater than +127 (27—1) or less than 
—128 (—2’) in operand 2. 


= If the sum exceeds 15 bit positions, an overflow condition can occur. 





Example: 
LABEL AOPERAT IONA OPERAND 
1 10 16 
Al STORAGE , 1 
STORAGE 0C H'3' 





STORAGE before execution of Al instruction: 





In this example, the immediate value in operand 2 is added to the half-word value in 
STORAGE. The result replaces the contents of STORAGE. 
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10.6. COMPARE (C) 


Possible Program Exceptions 


M ADDRESSING Mi PROTECTION 

(J DATA (INVALID SIGN/DIGIT) | [] SIGNIFICANCE 

(1 DECIMAL DIVIDE CO] SPECIFICATION: 

CO DECIMAL OVERFLOW NOT A FLOATING-POINT REGISTER 
CO] execute OP 1 NOT ON HALF-WORD BOUNDARY 
OP 2 NOT ON HALF-WORD BOUNDARY 
OP 2 NOT ON FULL-WORD BOUNDARY 


OP 2 NOT ON DOUBLE-WORD 
BOUNDARY 


OP 1 NOT EVEN NUMBERED REGISTER 
OP 1 NOT OOD NUMBERED REGISTER 
NONE 


OBJECT 
OPCODE FORMAT | INST. 


TYPE LGTH. 
(BYTES) 


Condition Codes 


iF r, = OPERAND 2, SET TOO 
| Birr, <OPERAND 2, SET TO 1 
Birr, > OPERAND 2, SET TO 2 
CiF OVERFLOW, SET TO 3 

CJ UNCHANGED 





CJ EXPONENT OVERFLOW 
C0 EXPONENT UNDERFLOW 
0 FIXED-POINT DIVIDE 

OO FIXED-POINT OVERFLOW 
CO FLOATING-POINT DIVIDE 
[] OPERATION 







OOO Owooo 





The compare (C) instruction algebraically compares the contents in the operand 1 
register to the full word in operand 2. The result determines the setting of the 
condition code. (See condition code settings, 8.4.) 


Explicit Format: 








LABEL A OPERATION A OPERAND 





[symbol] 





ry 1d, (x, ,b2) 


Implicit Format: 






A OPERATION A 


OPERAND 


[symbol] 


The operand 1 register is compared to a 32-bit signed integer (operand 2) located on 
a full-word boundary in main storage. The result of the comparison determines the 
setting of the condition code, bits 34 and 35 of the PSW. (See 8.1.) 


lf operand 1 = operand 2, set to O. 


If operand 1 < operand 2, set to 1. 


If operand 1 > operand 2, set to 2. 
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Usually, a conditional branch instruction tests the resulting condition code for an 
equal to zero, less than zero, or greater than zero condition. If the condition is met, a 
branch takes place. If not, the program continues processing as shown in the 
following coding instruction. 





Operational Considerations: 
= Any of the general registers (0 through 15) can be used as operand 1. 


= Operand 2 must be either defined as a full word or aligned on a full-word 
boundary. 


= Neither operand is changed by the execution of the instruction. 








Example: 

LABEL AOPERATIONA OPERAND 
| 10 16 

SR 7,7 

L 5 ,AMOUNT 

C 5 , FULLWORD 

BE ROUT INE 

A 6,=F'1! 
ROUTINE AR dso 
FULLWORD oc F'32' 
AMOUNT DC F'32' 


Register 5 before and after execution of C instruction: 





In this example, the full word in AMOUNT is loaded into register 5. Then, the content 
of register 5 is compared to the full word in FULLWORD. Since they compare equally, 
the condition code is set O and a branch to the instruction labeled ROUTINE takes 
place. If they do not compare equally, the A instruction following the BE instruction is 
executed and the program continues processing. 
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e cR 
10.7. COMPARE (CR) 


General 


OBJECT 


Possible Program Exceptions 


[J ADDRESSING CO PROTECTION 














OPCODE 
ges Hada (DATA (INVALID SIGN/DIGIT) | [1 SIGNIFICANCE 
(BYTES) || D) DECIMAL DivIDE CD sPECIFICATION: 


OJ DECIMAL OVERFLOW NOT A FLOATING-POINT REGISTER 
0 &xecuTe OP 1 NOT ON HALF-WORD BOUNDARY 


(] EXPONENT OVERFLOW OP 2 NOT ON HALF-WORD BOUNDARY 

CO EXPONENT UNDERFLOW OP 2 NOT ON FULL-WORD BOUNDARY 

CD FtXED-POINT DIVIDE OP 2 NOT ON DOUBLE-WORD 

(0 FIXED-POINT OVERFLOW BOUNDARY 

C0 FLOATING-POINT DIVIDE OP 1 NOT EVEN NUMBERED REGISTER 

CO oPpERATION OP 1 NOT ODD NUMBERED REGISTER 
NONE 


Condition Codes 


W@ if RESULT = 0, SET TOO 


Mir RESULT <o, SET TO 1 
Wir RESULT >0, SET TO 2 
(CJtF OVERFLOW, SET TO 3 
CJ UNCHANGED 





The compare (CR) instruction algebraically compares the contents in the operand 1 
register to the contents in the operand 2 register. The result determines the setting of 
the condition code. (See condition code settings, 8.4.) 


@ Explicit and Implicit Format: 






AOPERATION A OPERAND 


[symbol] 


The 32 bits of operand 1 are compared to the 32 bits of operand 2. The result 
determines the setting of the condition code, bits 34 and 35 of the PSW. (See 8.1.) 


If operand 1 = operand 2, set to O. 

lf operand 1 < operand 2, set to 1. 

If operand 1 > operand 2, set to 2. 
Usually, a conditional branch instruction tests the resulting condition code for an 
equal to, less than, or greater than condition. If the condition is met, a branch takes 
place accordingly. If not, the program continues processing as shown in the following 
coding instruction. 
Operational Considerations: 
ws <Any of the general registers (O through 15) can be used as operands 1 and 2. 


a Neither operand is changed by the instruction. 
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Example: 

LABEL AOPERAT 1 ONA OPERAND 
] 10 16 

SR 7,7 

L 5 ,AMOUNT 

L 6, VALUE 

CR 5,6 

BH ROUTINE 

AR - 7,5 
ROUTINE Al ERCNT, 1 
AMOUNT oc F'32' 
VALUE oc F'32' 
ERCNT bc H'g! 


Register 5 before and after execution of CR instruction: 


0000 |0000 | 0000 10000 | 0000 ; 0000 [0010 ,0000 


Register 6 before and after execution of CR instruction: 


0000 ,0000 | 0000 10000 | 0000 1 0000 | 0000 | 0000 
Eo eee 


In this example, the full word in AMOUNT is loaded into register 5 and the full word 
in VALUE is loaded into register 6. Then the content of register 5 is compared to the 
content of register 6. Since they compare equally, the condition code is set to 0. The 
next branch instruction (BH) tests for a greater than (high) condition. Since both 
registers compare equally, no branch is taken and the instruction following the BH 
instruction (AR) is executed and the program continues processing. 






binary 





hex 











binary 


hex 
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@ CH 
10.8. COMPARE HALF WORD (CH) 


OBJECT 
ADDRESSING W@ PROTECTION 
TYPE LGTH. 


oO DATA (INVALID SIGN/DIGIT) O SIGNIFICANCE 


(1 DECIMAL DivIDE WB sPEcIFICATION: 
cu [a | ex | 4 | O DECIMAL OVERFLOW NOT A FLOATING-POINT REGISTER 
Condition Codes 


OO execute OP 1 NOT ON HALF-WORD BOUNDARY 
Wp iFr, = OPERAND 2, SET TOO 







































OC) EXPONENT OVERFLOW OP 2 NOT ON HALF-WORD BOUNDARY 
C0 EXPONENT UNDERFLOW OP 2 NOT ON FULL-WORD BOUNDARY 
DD FIXED-POINT DIVIDE OP 2 NOT ON DOUBLE-WORD 


C] FIxX€0-POINT OVERFLOW BOUNDARY 
[1D FLOATING-POINT DIVIDE OP 1 NOT EVEN NUMBERED REGISTER 


(J OPERATION OP 1 NOT ODD NUMBERED REGISTER 
NONE 


Birr, <OPERAND 2, SET TO1 
BF r, >OPERAND 2, SET TO 2 
DIF OVERFLOW, SET TO 3 

[1D UNCHANGED 


OOO OOOO 





The compare half word (CH) instruction algebraically compares the contents in the 
operand 1 register to the half word in operand 2. The result of the comparison 
determines the setting of the condition code. 


@ Explicit Format: 





A OPERATION A OPERAND 


[symbol] r, d, (x, ,b,) 


Implicit Format: 






A OPERATION A OPERAND 


[symbol] 


Operand 2 is two bytes in length (16-bit signed integer) and is located in main 
storage. Before operand 2 is compared with the operand 1 register, operand 2 is 
temporarily expanded to 32 bits by propagating the sign bit through the high order 16 
bit positions. Then all 32 bits of operand 1 are compared to the 32 bits in operand 2. 
The result determines the setting of the condition code, bits 34 and 35 of the PSW. 
(See 8.1.) 


lf operand 1 = operand 2, set to O. 


© If operand 1 


If operand 1 


operand 2, set to 1. 


VA 


operand 2, set to 2. 
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Usually, a conditional branch instruction tests the condition code for an equal to, less 
than, or greater than condition. If the condition is met, a branch takes place 
accordingly. If not, the program continues processing as shown in the following coding 
instruction. 


Operational Considerations: 
= Any of the general registers (0 through 15) can be used as operand 1. 


= Operand 2 must be either defined as a half word or aligned on a_ half-word 
boundary. 


= Neither operand is permanently changed by the execution of the instruction. 


Example: 
LABEL AOPERATIONA OPERAND 
! 10 16 
L 5 AMOUNT 
CH 5, HALFWORD 
BH ROUT INE 
AR 8,5 
ROUTINE A 6,=F'1' 
AMOUNT  0C FtsZ" 
HALFWORD DC H'16! 


Register 5 before and after executicn of CH instruction: 


0000 ; 0000 | 0000 ; 0000 0000! o000 0010/0000 


HALFWORD before and after execution of CH instruction: 






binary 





hex 





operand 2 before expansion 
a ee 






10000 10000 |0000 





10000 





binary 





hex 





operand 2 after expansion 


In this example, the full word in AMOUNT is loaded into register 5. Then, the content 
of register 5 is compared to the half word in HALFWORD. Since the content of 
register 5 is greater than the content of HALFWORD, the condition code is set to 2. 
The next branch instruction (BH) tests for a greater than (high) condition. Since a 
greater than condition exists, a branch to the instruction labeled ROUTINE taken place. 
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CVB 














ae ee 


10.9. CONVERT TO BINARY (CVB) 
INST. 


Possible Program Exceptions 
OPCODE FORMAT 
TYPE LGTH. 


WE ADDRESSING @ PROTECTION 
MI DATA (INVALID SIGN/OIGIT) | [] SIGNIFICANCE 


([] DECIMAL DIVIDE f@ SPECIFICATION: 
Condition Codes 


(1 DECIMAL OVERFLOW NOT A FLOATING-POINT REGISTER 
OC execute OP 1 NOT ON HALF-WORD BOUNDARY 
(C EXPONENT OVERFLOW OP 2 NOT ON HALF-WORD BOUNDARY 
(C) EXPONENT UNDERFLOW OP 2 NOT ON FULL-WORD BOUNDARY 

CME Gesce Sacer Tae Wi FIXED-POINT DIVIDE OP 2 NOT ON DOUBLE-WORD 

(tt RESULT <o, SET TO1 

Clit RESULT >0, SET TO 2 

CIF OVERFLOW, SET TO 3 

BUNCHANGED 



















(C) FIXED-POINT OVERFLOW BOUNDARY 
(C) FLOATING-POINT DIVIDE 
CL] OPERATION 


OP 1 NOT EVEN NUMBERED REGISTER 
OP 1 NOT ODD NUMBERED REGISTER 
NONE 










OOO goooo 


The convert to binary (CVB) instruction converts the packed decimal contents of the 
double word in operand 2 to its binary equivalent and puts the result in the operand 
1 register. 


Explicit Format: 






A OPERATION A OPERAND 


[symbol] 


Implicit Format: 








LABEL A OPERATION A 


OPERAND 






[symbol] 


The CVB instruction converts a packed decimal number into a binary number. The 
operand 1 register contains the resulting binary number (4 bytes in length) and 
operand 2 is a packed number (8 bytes in length) aligned on a double-word boundary. 
Operand 2 is checked for a valid sign in the low order four bits. The remaining 60 
bits represent a decimal value not exceeding 15 decimal digits. The largest decimal 
number that can be converted is +2,147,483,647 (23'—1) and the smallest is 
—2,147,483,678 (—23'). Any decimal number outside this range causes a fixed-point 
decimal divide. The result of the conversion is placed in the operand 1 register. The 
sign value (low order four bits) of the packed decimal number in operand 2 becomes 
the sign value (high order bit or bits) of the binary number in the operand 1 register. 
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Operational Considerations: 





= Any of the general registers (0 through 15) can be used as operand 1. 


= Operand 2 must contain a packed decimal number aligned on a double-word 
boundary. 


= If the sign value of the packed decimal number in operand 2 is positive, the sign 
value of the binary number in operand 1 is positive. 


a If the sign value of the packed decimal number in operand 2 is negative, the 
binary number in operand 1 is represented in twos complement form and the 
sign value is negative. 


s The condition code remains unchanged. 


m= There is no conversion between EBCDIC and binary. EBCDIC data must first be 
packed, then converted to binary. 








Example: 
LABEL AOPERATIONA OPERAND 
1 10 16 
SR 7,7 
SR 5,5 
L 6,=F'1g0' 
PACK DBLWDP , AMT (3) 
CVB 5, DBLWDP 
CR 5,6 
BH ERRTN 
AR 7,5 
ERRTIN A =F ty! 
DBLWOP DS D 
AMT DC ZL3'428' 


0000 1 0000} 0000 ; 0000] 0000 | 0000 |0000 0000 binary 


Register 5 before execution of CVB instruction: 
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DBLWDP before and after execution of CVB instruction: 
Packed 
number 


Register 5 after execution of CVB instruction: 


sign bits 
eee 


0000 |0000 | 0000 10000 |0000 | 0001 }1010 11100 


In this example, the SR_ instruction cleared both register 5 and 7 to zero by 
subtracting the contents of the registers from themselves. Then, a full-word value of 
100 is loaded into register 6. The contents of AMT is packed into DBLWDP and the 
CVB instruction converts the packed decimal value into its binary equivalent which 
replaces the contents of register 5. Register 5 is then compared to register 6. Since 
the value of the contents in register 5 is greater than that of register 6, the condition 
code is set to 2. The BH instruction then tests for a greater than condition and a 
branch to the instruction labeled ERRTN takes place. If the condition code is not 2, no 
branch takes place and the program continues processing with the_ instruction 
following the branch. 






binary 





hex 
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CVD 





10.10. CONVERT TO DECIMAL (CVD) 


Possible Program Exceptions 
__sr_ Ml ADDRESSING W@ PROTECTION 
OPCODE FORMAT | INST. 
‘Ver Apia (0 DATA (INVALID SIGN/DIG!IT) | [ SIGNIFICANCE 


| MNem. |HEX. | (BYTES) || (J DECIMAL DivIDE @ SPECIFICATION: 
[] DECIMAL OVERFLOW NOT A FLOATING-POINT REGISTER 
peo fe fm | 4 |ioenare 


OP 1 NOT ON HALF-WORD BOUNDARY 
OJ EXPONENT OVERFLOW 
Condition Codes 00 EXPONENT UNDERFLOW 


OP 2 NOT ON HALF-WORD BOUNDARY 
OP 2 NOT ON FULL-WORD BOUNDARY 
PIPREsUcr CG SerqoG C0 FIXED-POINT DIVIDE OP 2 NOT ON DOUBLE-WORD 
CliPnesul to-ser a4 OC FIXED-POINT OVERFLOW 
Cie RESULT >O, SET TO2 DC FLOATING-POINT DIVIDE 


BOUNDARY 

OP 1 NOT EVEN NUMBERED REGISTER 
OCF OVERFLOW, SET TO 3 0 OPERATION 
UNCHANGED 


OP 1 NOT ODD NUMBERED REGISTER 
NONE 


O 
O 
O 
O 
a 
O 
O 
0 





The convert to decimal (CVD) instruction converts the binary number in the operand 1 
register into its packed decimal equivalence and stores the result in the double word 
in operand 2. 


Explicit Format: 









A OPERATION A OPERAND 


[symbol] 


Implicit Format: 





A OPERATION A OPERAND 


The CVD instruction converts a binary value into a packed decimal value. Operand 1 
register contains the binary value (4 bytes) and operand 2 contains a double-word 
field in packed decimal format (8 bytes). The largest decimal number that can be 
represented in binary in the operand 1 register is +2,147,483,647 (23'—1) and the 
smallest is —2,147,483,648 (—23'). Since the number to be converted is a 32-bit 
signed integer from a register and there are 15 decimal digits available for its decimal 
equivalent, an overflow condition cannot occur. 
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The sign value (high order bit or bits) of the binary number in the operand 1 register 
becomes the sign value (low order four bits) of the packed decimal number in operand 
2. The result of the conversion is placed in the double word of operand 2. Note that 
the CVD instruction is one of the few instructions that has operand 1 as the sending 
field and operand 2 as the receiving field. 


Operational Considerations: 





= Any of the general registers (0 through 15) can be used as operand 1. 
= Operand 2 must be either defined as a double word or aligned on a double-word 
boundary. 
= If the sign value of the binary number is positive, the sign value of the decimal 
number is positive. 
= If the sign value of the binary number represented in twos complement form is 
negative, the sign value of the decimal number is negative. 
@ The condition code remains unchanged. 
= The result is stored in operand 2, unlike most instructions, where operand 1 is 
the receiving field. 
Example: 
LABEL AOPERATIONA OPERAND 
] 10 16 
SR 7,7 
PACK DBLEWRD ,CARDIN+9 (3) 
CVB 4 ,DBLEWRD 
AR 7,4 
BZ NOPAY 
CVD 4 ,DBLEWRD 
ZAP TOTHRS , DBLEWRD 
NOPAY A 9,=F'l' 
CARDIN pc CL8@'SMITH,J. 480 WKTOT EXEMPT X' 
DBLEWRD DS D 


TOTHRS DS PL3 
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DBLEWRD before execution of CVD instruction: 


pe 
decimal 


Register 4 before execution of CVD instruction: 


0000 10000} 0000 | 0000 | 0000 ;, 0001 | 1110, 0000 


DBLEWRD after execution of CVD instruction: 


decimal 


In this example, register 7 is cleared to zero. A field from card input (CARDIN-+9), 
which is EBCDIC and in zoned decimal format, is packed into DBLEWRD. The CVB 
instruction then converts the packed decimal number in DBLEWRD into its binary 
equivalent and puts the result into register 4. The content of register 4 is added to 
register 7. The condition code is set to 2, since the result of the addition is greater 
than zero. The next branch instruction (BZ) tests for an equal-to-zero condition. Since 
that condition does not exist, no branch takes place and the instruction following the 
branch instruction is executed. The CVD instruction then converts the contents of 
register 4 into its decimal equivalent and puts the result into DBLEWRD. The ZAP 
instruction clears TOTHRS to zero and adds the packed decimal number in DBLEWRD 
to TOTHRS. (This is an example where truncation is beneficial.) 
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10.11. DIVIDE (D) 





Possible Program Exceptions 


@ ADDRESSING Wi PROTECTION 

(0 DATA (INVALID SIGN/DIGIT)| [) SIGNIFICANCE 

(J DECIMAL DivIDE ME SPECIFICATION: 

OC DECIMAL OVERFLOW NOT A FLOATING-POINT REGISTER 
O ExecuTE OP 1 NOT ON HALF-WORD BOUNDARY 
(] EXPONENT OVERFLOW OP 2 NOT ON HALF-WORD BOUNDARY 
(C0 EXPONENT UNDERFLOW OP 2 NOT ON FULL-WORD BOUNDARY 
Wi FIXED-POINT DIVIDE OP 2 NOT ON DOUBLE-WORD 


(0 FIXED-POINT OVERFLOW BOUNDARY 
CO FLOATING-POINT DIVIDE OP 1 NOT EVEN NUMBERED REGISTER 


(0 OPERATION OP 1 NOT ODD NUMBERED REGISTER 
NONE 







ee ee! 
INST. 
LGTH. 


OPCODE | FORMAT 
TYPE 
(BYTES) 


Condition Codes 


CJ ie RESULT = 0,SET TOO 





Clif RESULT <0, SET TO1 
CIF RESULT >0, SET TO 2 
OIF OVERFLOW, SET TO 3 
MB UNCHANGED 





O 
OQ) 
O 
a 
O 
a 
O 
O 





The divide (D) instruction algebraically divides the double word in the operand 1 
register pair (dividend) by the full word in operand 2 (divisor) and puts the result 
(quotient and remainder) in operand 1. 


Explicit Format: 









LABEL AOPERATION A OPERAND 





[symbol] r, dy (x.,,b,) 


Implicit Format: 






A OPERATION A OPERAND 





[symbol] r, 8,(x,) 


Operand 1 consists of an even-odd pair of contiguous registers, where the even- 
numbered register, since it is the lower numbered register, is specified as operand 1. 
Every time the even-numbered operand 1 is referenced in the D instruction, both 
registers are used. The dividend occupies the register pair as a double-word value 
with the high order bit or bits as the sign value. Operand 2 must be either defined 
as a full word in main storage, or aligned on a full-word boundary. The resulting 
quotient occupies the odd-numbered register as a full-word value with its sign 
determined algebraically. The remainder occupies the even-numbered register, also as 
a full-word value with its sign the same as the dividend. If the values of the divisor 
and dividend cause the quotient to be larger than a 32-bit signed integer, a fixed- 
point divide program exception occurs, no division takes place, and the dividend 
remains unchanged. 
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To load a value (dividend) into an even-odd register pair, use the load multiple (LM) 
instruction (see 10.18). If the value (dividend) can be contained in one register, it 
must be loaded into the odd-numbered register only. This can be done through the 
use of the load (L), load register (LR), or load half-word (LH) instructions. The even- 
numbered register must be cleared before execution of the D instruction. 


Operational Considerations: 





= Operand 1 consists of an even-odd pair of registers located in consecutive order 
in the processor. 
= Operand 1 always references the even-numbered register. 
= The dividend occupies both registers. After the D instruction is executed, the 
quotient occupies the odd-numbered register, and the remainder occupies the 
even-numbered register. 
= Operand 2 must be either defined as a full word or aligned on a_ full-word 
boundary. 
= If operand 1 does not reference an even-numbered register, a specification 
exception occurs. 
= The condition code remains unchanged. 
= @Division by zero causes a fixed-point divide program exception. 
= Any of the even-numbered general registers (0 thru 14) can be used as the 
operand 1 register pair. 
Example: 
LABEL AOPERATIONA OPERAND 
1 10 16 
SR 6,6 
L 7, DIVIDEND 
D 6,DIVISOR 
DIVIDEND DC F'1685' 


DIVISOR DC F'2' 
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Registers 6 and 7 before execution of D instruction: 


























Register 6 Register 7 
binary 
hex 
Operand 1 
DIVISOR before and after execution of D instruction: 
0000 , 0000 | 0000 ,0000 |0000 ;0000 binary 
Registers 6 and 7 after execution of D instruction: 
Register 6 Register 7 
sign bits sign bits 
0000 10000 | 0000 {0000 }o000 10000 |000 0001 00000011 {01001 1010 binary 





hex 


0000 10000 


RAGE 


00 


remainder quotient 





In this example, registers 6 and 7 are the operand 1 register pair and DIVISOR 
(operand 2) has been defined as a full-word constant. First, the SR instruction clears 
register 6 to zeros. Since the full word in DIVIDEND can be contained in one register, 
it is loaded into register 7 (the odd-numbered register) through the use of the L 
instruction. Then, the register pair 6-7 is divided by the full word in DIVISOR. The 
resulting remainder occupies register 6 with a positive sign (the same as the dividend) 
and the resulting quotient occupies register 7 with a positive sign (determined 
algebraically). 





Example: 
LABEL AOPERATIONA OPERAND 
] 10 16 
LM 6,7,DIVIDEND 
D 6,DIVISOR 
DIVIDEND pc aa ee 


bc F's! 
DIVISOR DC F'1966' 
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Registers 6 and 7 before execution of D instruction: 


Register 6 Register 7 


0000 10000 | 0000 | 0000 | 0000 {0000 {0000 {0001 {0000 }0000 | 0000 ; 0000 {000010000 |00001 1111 


operand 1 









binary 






DIVISOR before and after execution of D instruction: 


0000 | 0000 0000 10000 | 0000 ; 0011 | 1110, 1000 


Registers 6 and 7 after execution of D instruction: 






binary 





hex 















Register 6 Register 7 
sign bits sign bits 
ee _—_— 
0000 10000 }0000 | 0000 | 0000 10001 | 0011 | 1001 | 0000 | 0000 | 0100 , 0001 | 1000 ;1001 | 0011 |1001 binary 
hex 





Rie Dee eins 


quotient 








remainder 


In this example, the even-odd register pair is loaded with the contents of DIVIDEND. 
This is done through the LM instruction because the dividend cannot be contained in 
one register and has a value of +4,294,967,311 which is greater than 


+2,147,483,647 (23'—1) 
—2,147,483,648 (—23). 


The content of DIVISOR is then divided into the double-word value in the even-odd 
register pair. The resulting quotient with sign occupies the odd-numbered register and 
the resulting remainder with sign occupies the even-numbered register. 
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DR 


10.12. DIVIDE (DR) 


Possible Program Exceptions 


orcove | conmat oe (J ADDRESSING OC prRoTEcTION 
rere CZ DATA (INVALID SIGN/D1GIT) | [) SIGNIFICANCE 
(Bytes) || (J DECIMAL DIVIDE @ SPECIFICATION: 
C2 DECIMAL OVERFLOW NOT A FLOATING-POINT REGISTER 
O execute OP 1 NOT ON HALF-WORD BOUNDARY 
OP 2 NOT ON HALF-WORD BOUNDARY 
OP 2 NOT ON FULL-WORD BOUNDARY 


OP 2 NOT ON DOUBLE-WORD 
BOUNDARY 


OP 1 NOT EVEN NUMBERED REGISTER 
OP 1 NOT ODD NUMBERED REGISTER 
NONE 


(1) EXPONENT OVERFLOW 
Condition Codes ( EXPONENT UNDERFLOW 


Poco = oc sere Mi FIXED-POINT DIVIDE 
Clit RESULT <0, SET TO 1 (0 FIXED-POINT OVERFLOW 


Clit RESULT >0, SET TO2 C FLOATING-POINT DIVIDE 


CIF OVERFLOW, SET TO 3 0 OPERATION 
BB UNCHANGED 


OOg OOOO0 





The D/V/IDE (DR) instruction algebraically divides the contents of the double word in 
the operand 1 register pair (dividend) by the full word in the operand 2 register. The 
result (quotient and remainder) is placed in operand 1. 


Explicit and Implicit Format: 







A OPERATION A OPERAND 


[symbol] 


Operational Considerations: 


= Operand 1 consists of a pair of contiguous registers (64 bits) containing a fixed- 
point binary value. The registers are even-odd numbered, the lower numbered 
register being even. You must specify the even-numbered register as operand 1. 
The odd-numbered registers must contain the dividend before you can use this 
instruction. You may specify any of the general registers (O through 15). 


m Operand 2 is a 32-bit register (0 through 15) containing a fixed-point binary 
value (dividend). Operand 2 is not changed by the execution of this instruction. 


= After the instruction is executed, the quotient with sign is put into the odd- 
numbered register, and the remainder with the same sign occupies the even- 
numbered register. If the quotient and remainder do not fill their respective 32-bit 
fields, leftmost bit positions are filled by bits having the same value as the sign. 


= If you attempt to divide by zero, or if the quotient does not fit into the 32-bit 
odd-numbered register in operand 1, a fixed-point divide program exception 
occurs. 
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Example: 

LABEL AOPERATIONA OPERAND 
1 10 16 

LM 6,8,DIVEND 

DR 6,8 
DIVEND oc D'+64! 
DIVISOR DC F'+32! 


In this example, registers 6, 7, and 8 are loaded with the main storage contents of 
DIVEND and DIVISOR, respectively. Then, divide the contents of registers 6 and 7 by 
the contents of register 8 and place the result (quotient with sign) in register 7. 


Note that the use of the LM instruction eliminates the writing of three separate load 
instructions but still loads three registers. Also note that the quotient and its sign are 
loaded into register 7 and the remainder with the same sign value as the quotient 
that occupies register 6. 


Registers 6 and 7 before execution of DR instruction: 









0000 0000; 0000 nicer haste aise [ieee 0000; 0000 0000 , 0000 0000 oe 0700 ,0000 binary 
binary 
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10.13. LOAD (L) 


OBJECT 
ADDRESSING @ PROTECTION 
OPCODE FORMAT ]| INST. a 
RE Ver (1 DATA (INVALID SIGN/DIGIT) | (] SIGNIFICANCE 
MNEM. [HEX. (Bytes) || () DECIMAL DIVIDE W@ SPECIFICATION: 
OO DECIMAL OVERFLOW NOT A FLOATING-POINT REGISTER 


OO execute OP 1 NOT ON HALF-WORD BOUNDARY 


0 EXPONENT OVERFLOW OP 2 NOT ON HALF-WORD BOUNDARY 
Condition Codes CO ExPONENT UNDERFLOW 


OP 2 NOT ON FULL-WORD BOUNDARY 
liv RESULT ~ 0,SET TO O ( FIXED-POINT DIVIDE OP 2 NOT ON DOUBLE-WORD 

Cir RESULT <0, SET TO 1 DO FIXED-POINT OVERFLOW BOUNDARY 

(Ctr RESULT >0, SET TO 2 CO FLOATING-POINT DIVIDE 


OP 1 NOT EVEN NUMBERED REGISTER 
OCJ1F OVERFLOW, SET TO3 (J oPERATION OP 1 NOT ODD NUMBERED REGISTER 
BB UNCHANGED 


NONE 


0 
O 
O 
B 
O 
O 
O 
O 





The /oad (L) instruction places the full word in operand 2 into the operand 1 register. 


Explicit Format: 






A OPERATION A OPERAND 





[symbol] r, d, (x, ,b,) 


Implicit Format: 









A OPERATION A 


OPERAND 





LABEL 


[symbol] 


Operational Considerations: 
m Any of the general registers (0 through 15) can be used as operand 1. 


= Operand 2 must be either defined as a full word or aligned on a full-word 
boundary. 
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Example: 
LABEL AOPERATIONAS OPERAND 
1 10 16 
L 4 .XNUM 
DS OF 
XNUM DC X'66600618' 


Register 4 before execution of L instruction: 


0000; 0000 ; 0000 ; 0000 Joor0) 1114 1001 ; 1000 
ee aes 


XNUM before and after execution of L instruction: 











binary (leftover data from 


revious program) 
hex p prog 

















0000; 0000 | 0000 ; 0000 |0000! 0000] 0001 | 1000 binary 
Register 4 after execution of L instruction: 
0000 | 0000} 0000 | 0000 | 0000; 0000) 0001 ; 1000 binary 
hex 


In this example, XNUM is defined as a hexadecimal constant aligned on a full-word 
boundary and register 4 is the operand 1 register. The L instruction places the full 
word in operand 2 into register 4 replacing any leftover data in register 4 with the 


contents of XNUM. 
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LR 


10.14. LOAD (LR) 


Possible Program Exceptions 


(J ADDRESSING C1] PROTECTION 

(J DATA (INVALID SIGN/DIG!IT) | [] SIGNIFICANCE 

(0 DECIMAL DivibE C] SPECIFICATION: 

C2 DECIMAL OVERFLOW NOT A FLOATING-POINT REGISTER 
CO execute OP 1 NOT ON HALF-WORD BOUNDARY 


OBJECT 
OPCODE FORMAT | INST. 
TYPE LGTH. 


(BYTES) 


Condition Codes 


Cif RESULT =0,SET TOO 
Clif Resuctt <o, set To1 
CIF RESULT >0, SET TO 2 
(Cif OVERFLOW, SET TO 3 
MB UNCHANGED 





(J ExPONENT OVERFLOW OP 2 NOT ON HALF-WORD BOUNDARY 
C0 EXPONENT UNDERFLOW OP 2 NOT ON FULL-WORD BOUNDARY 
DD FIXED-POINT DIVIDE OP 2 NOT ON DOUBLE-WORD 


D0 FIXED-POINT OVERFLOW BOUNDARY 
[] FLOATING-POINT DIVIDE OP 1 NOT EVEN NUMBERED REGISTER 


(0 OPERATION OP 1 NOT ODD NUMBERED REGISTER 
NONE 







The /oad (LR) instruction places the contents of the operand 2 register into the 
operand 1 register. 


Explicit and Implicit Format: 







A OPERATION A OPERAND 


[symbol] 


Operational Considerations: 
= Any of the general registers (O through 15) can be used as operands 1 and 2. 


= The contents of the register specified by operand 2 (r,) are loaded into the 
register specified by operand 1 (r;). 


= The contents of the register specified by operand 2 (r.) remain unchanged. 
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Example: 
LABEL AOPERATIONA OPERAND 
] 10 16 
L 7,FINTOT 
L 5, SUBTOT 
LR 6,5 
LR 8,7 
A 5, INTERTOT 
AR 132 
CVD 5, SUBTOTP 
CVD 7,FINTOTP 
FINTOT OC F'5630' 
SUBTOT DC F'229' 
FINTOTP DS D 
SUBTOTP DS D 
INTERTOT OC F'26' 


Register 6 before execution of LR instruction: 





| 0000 | 0000 ; 0000/0000; 0141) 1100 11011 binary (leftover data from 


Reis Pee previous program) 








0000 0000 | 00001 0000 0000; 0000| 1101 11100] binary 
Dp! c 


hex 
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In this example, the full word in FINTOT (FINTOT represents final total) is loaded into 
register 7 and the full word in SUBTOT (SUBTOT represents subtotal) is loaded into register 
5. Then the content of register 5 is loaded into register 6 and the content of register 7 is 
loaded into register 8 so it can be saved prior to the execution of the succeeding add 
instructions. Then the full word in INTERTOT is added to register 5 (now register 5 has the 
most current subtotal). The content of register 5 is added to the content of register 7 (now 
register 7 has the most current final total). The first CVD instruction converts the binary 
number in register 5 to its decimal equivalent and puts the result into the double word in 
SUBTOTP. The second CVD instruction converts the binary number in register 7 to its 
decimal equivalent and puts the result into the double word in FINTOTP. 
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LTR 





10.15. LOAD AND TEST (LTR) 


Possible Program Exceptions 


( ADDRESSING (] PROTECTION 

(0 DATA UNVALID SIGN/OIGIT)| [) SIGNIFICANCE 

C7 DECIMAL DIVIDE (CO SPECIFICATION: 

0 DECIMAL OVERFLOW NOT A FLOATING-POINT REGISTER 
0 Execute OP 1 NOT ON HALF-WORD BOUNDARY 
OD EXPONENT OVERFLOW OP 2 NOT ON HALF-WORD BOUNDARY 
0 EXPONENT UNDERFLOW OP 2 NOT ON FULL-WORD BOUNDARY 
OO FIXED-POINT DIVIDE OP 2 NOT ON DOUBLE-WORD 


O FIxeD-POINT OVERFLOW BOUNDARY 
C0 FLOATING-POINT DIVIDE OP 1 NOT EVEN NUMBERED REGISTER 


(J OPERATION OP 1 NOT ODD NUMBERED REGISTER 
NONE 


OBJECT 
OPCODE FORMAT | INST. 


TYPE LGTH. 
(BYTES) 


Few [Rex 
para fw] orn | 2 
Condition Codes 


@ iF RESULT =0,SETTOO 
Wir RESULT <o, SET TO1 
Bir RESULT > 0, SET TO2 
CJ1F OVERFLOW, SET TO 3 
(J UNCHANGED 









O 
O 
O 
O 
O 
O 
O 
a 


The /oad and test (LTR) instruction places the contents of the operand 2 register into 
the operand 1 register. The value and sign of operand 2 determines the setting of the 
condition code. The actual testing of the condition code is done through the execution 
of another instruction. 





Explicit and Implicit Format: 







A OPERATION A OPERAND 





[symbol] LTR r,,v 


172 


If operand 2 = O, set to O. 


lf operand 2 < O, set to 1. 

lf operand 2 > O, set to 2. 
Usually, a conditional branch instruction tests the resulting condition code for an 
equal to zero, less than zero, or greater than zero condition. If the condition specified 
is met, a branch takes place accordingly. If not, the program continues processing 
with the following instruction. 
Operational Considerations: 


ms Any of the general registers (0 through 15) can be used as operands 1 and 2. 


a It is your responsibility to test the condition code setting. 
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& Example: 

LABEL AOPERATIONA OPERAND 
1 10 16 

L 6,=F'25! 

LTR 7,6 

BC 8 ,ERRTN 
ERRTN AP ERCNT,=P'1' 
ERCNT DC PL2'@' 


Register 7 before execution of LTR instruction: 






00001! 0000 | 0000 10000] 1010 , 0000} 0000 ; 0000 binary (ldftover data trom 





Register 6 before and after execution of LTR instruction: 


0000 | 0000 | 0000 ;0000/ 0000; 0000 | 0001 11001 


Register 7 after execution of LTR instruction: 


0000! 0000 | 0000 }0000] 0000 10000 | 0001 | 1001 


In this example, a full word containing the decimal value 25 is loaded into register 6. 
Then, the LTR instruction loads the contents of register 6 into register 7. The 
condition code is set to 2, since the value of register 6 (operand 2) is greater than 
zero. The BC instruction tests for an equal to zero condition which is represented by 
the decimal value 8 in operand 1. If an equal to condition existed, a branch to the 
instruction labeled ERRTN would take place. Since that condition does not exist, the 
program continues processing with the instruction immediately following the BC 
instruction. 














binary 


hex 
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LCR 


10.16. LOAD COMPLEMENT (LCR) 


Possible Program Exceptions 


[J ADDRESSING C PROTECTION 

(0 DATA (INVALID SIGN/DIGIT) | (] SIGNIFICANCE 

(C DECIMAL DIVIDE CL) SPECIFICATION: 

O DECIMAL OVERFLOW NOT A FLOATING-POINT REGISTER 

CO] execute OP 1 NOT ON HALF-WORD BOUNDARY 
OP 2 NOT ON HALF-WORD BOUNDARY 
OP 2 NOT ON FULL-WORD BOUNDARY 


OP 2 NOT ON DOUBLE-WORD 
BOUNDARY 


OP 1 NOT EVEN NUMBERED REGISTER 
OP 1 NOT ODD NUMBERED REGISTER 


OBJECT 
OPCODE FORMAT | INST. 


TYPE LGTH. 
(BYTES) 


Condition Codes 


ir RESULT =0,SETTOO 
Mir Resutt <o, set to1 
Wir RESULT >0, SET TO2 
Gir ovERFLOW, SET TO3 
(J UNCHANGED 





() EXPONENT OVERFLOW 
(J EXPONENT UNDERFLOW 
CJ FIXED-PCINT DIVIDE 

@ FIXED-POINT OVERFLOW 
() FLOATING-POINT DIVIDE 
(J OPERATION 







000 OO0O00 


2 
° 
Zz 
m 





The load complement (LCR) instruction places the twos complement form of the 
contents of operand 2 register into the operand 1 register. 


Explicit and Implicit Format: 





OPERAND 






AOPERATION A 


[symbol] 






Operational Considerations: 

= Any of the general registers (O through 15) can be used as operands 1 and 2. 

= If operand 2 is a positive value, the twos complement of that value is placed into 
operand 1 when the instruction is executed. If the value in operand 2 is 
negative, the positive value is placed in operand 1 when the instruction is 
executed. The maximum value you can specify in operand 2 is +2,147,483,647 
(231—1) or —2,147,483,647 (—23!—1), 

= A zero value in operand 2 is not changed when complemented. 


a Operand 2 is not changed by the execution of the instruction. 


aNd 1.CR instruction tis a featured: Hostructibss Ar ope Patan program \exke ptiog ig 
-“eaused if Kyou suse © this © struction | and: “your, pkocessor* does” Not, have’ ‘the, control 
“feature. ° 
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Example: 

LABEL AOPERATIONA OPERAND 
] 10 16 

L 5, FULLWORD 

LCR 6,5 

LTR 6,6 
FULLWORD DC F'1gp' 


Register 5 before and after execution of LCR instruction: 


0000 0000 0000} 0000; 0000/0000} 0110 ;0100 binary 


Register 6 after execution of LCR instruction: 


EooooooS 


In this example, the contents of FULLWORD is loaded into register 5 and the LCR 
instruction loads the complement of the content of register 5 into register 6. Since 
the result is less than zero, the condition code is set to 1 and the load and test (LTR) 
instruction (see 10.15) loads the content of register 6 into itself and tests the 
condition code. Because the registers of operands 1 and 2 in the LTR instruction are 
the same, the operation is performed as a test without data movement. 









binary 


hex 








UP-8913 SPERRY UNIVAC 0S/3 10-42 
ASSEMBLER ledatal 
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10.17. LOAD HALF WORD (LH) 


OBJECT |) my ADDRESSING @ PROTECTION 
FOnMAr eee (C0 DATA (INVALID SIGN/DIGIT) | [] SIGNIFICANCE 
(Bytes) || () DECIMAL DiviIDE @ SPECIFICATION: 
0 DECIMAL OVERFLOW NOT A FLOATING-POINT REGISTER 
OJ execute OP 1 NOT ON HALF-WORD BOUNDARY 
CO EXPONENT OVERFLOW OP 2 NOT ON HALF-WORD BOUNDARY 
C) EXPONENT UNDERFLOW OP 2 NOT ON FULL-WORD BOUNDARY 
C) FIXED-POINT DIVIDE OP 2 NOT ON DOUBLE-WORD 
ae areas ey peices 2) FIXED-POINT OVERFLOW BOUNDARY 
Clie RESULT >0. SET TO2 ( FLOATING-POINT DIVIDE OP 1 NOT EVEN NUMBERED REGISTER 
DJF OVERFLOW, SET TO 3 
GUNCHANGED 































OPCODE 
















C OPERATION OP 1 NOT ODD NUMBERED REGISTER 
NONE 


OOO OOOO 


The /oad half word (LH) instruction places the half word in operand 2 into the 
operand 1 register. 


Explicit Format: 









A OPERATION A OPERAND 


[symbol] 


Implicit Format: 







A OPERATION A OPERAND 


[symbol] 


Since registers only work in conjunction with full words, the half word in operand 2 
is automatically expanded to 32 bits by propagating the sign bit through the 16 high 
order bit positions. Then, operand 2 is loaded into the operand 1 register. 
Operational Considerations: 


= Any of the general registers (0 through 15) can be used as operand 1. 


= Operand 2 must either be defined as a half word or aligned on a_half-word 


boundary. @ 
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Example: 
LABEL AOPERATIONA OPERAND 
1 10 16 
LH 4 PRODUCT 
PRODUCT DC H'256' 


Register 4 before execution of LH instruction: 


pinety (leftover data from 


Previous program) 





hex 


PRODUCT before and after execution of LH instruction: 


before expansion 


binary 


hex 





after expansion 


Register 4 after execution of LH instruction: 


0000 ;0000 | 0000 ; 0001 |0000 [0000 


In this example, the half word in PRODUCT is expanded temporarily to a 32-bit signed 


integer. Then the LH instructions loads the contents of PRODUCT (now a 32-bit 
signed integer) into register 4. 











binary 


hex 
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LM 


10.18. LOAD MULTIPLE (LM) 


Possible Program Exceptions 
ae 
OPCODE FORMAT | INST. 
TYPE LGTH. 









HB ADDRESSING W@ PROTECTION 
(BYTES) 


(C0 DATA (INVALID SIGN/DIGIT)| [] SIGNIFICANCE 
( DECIMAL DivibDE WB SPECIFICATION: 
Condition Codes 


0 DECIMAL OVERFLOW NOT A FLOATING-POINT REGISTER 
OO execute OP 1 NOT ON HALF-WORD BOUNDARY 
OP 2 NOT ON HALF-WORD BOUNDARY 
Cir RESULT = 0, SET TOO 
Olir RESULT <0, SET TO1 
Or RESULT >0O, SET TO 2 







(0 EXPONENT OVERFLOW 
(0 EXPONENT UNDERFLOW 
C1 FIX€0-POINT DIVIDE 

D F1xED-POINT OVERFLOW 
OC FLOATING-POINT DIVIDE 
(J OPERATION 


OP 2 NOT ON FULL-WORD BOUNDARY 


OP 2 NOT ON DOUBLE-WORD 
BOUNDARY 


OP 1 NOT EVEN NUMBERED REGISTER 
OP 1 NOT ODD NUMBERED REGISTER 


CIF OVERFLOW, SET TO3 
BB UNCHANGED 


OOO O8oO00 


2 
fe) 
Zz 
m 





The /oad multiple (LM) instruction loads the contents of two or more consecutive 
registers (operands 1 and 3) with an equal number of consecutive full words in main 
storage (operand 2). 


Explicit Format: 






LABEL A OPERATION A OPERAND 


[symbol] 


Implicit Format: 





A OPERATION A OPERAND 





[symbol] Pydtg Sy 


The operand 1 register is the first register loaded and the operand 3 register is the 
last register loaded. If operands 1 and 3 are not consecutive, any registers 
consecutive to the operand 1 register up to and including the operand 3 register also 
are included. If the address of the operand 3 register is less than the address of the 
operand 1 register, the register addresses wrap around from 15 to O. The number of 
full words in main storage to be loaded is determined by the number of consecutive 
registers specified. The registers are loaded in ascending sequence starting with the 
operand 1 register up to and including the operand 3 register. The content of operand 
2 is loaded into the registers beginning with the byte addressed by the operand 2 
label and continuing with as many full words that are needed to fill the registers 
specified. 
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Operational Considerations: 
= Any of the general registers (0 thru 15) can be used as operands 1 and 3. 


= Operand 2 must either be defined as a full word or aligned on a full-word 
boundary. 


= If operand 2 does not reference the correct number of full words needed to fill 
all the registers, full words consecutive to the first full word specified by operand 
2 are loaded into the registers until the operand 3 register is filled. 


= When loading multiple registers, the wraparound concept applies. 


= If operand 1 and operand 3 reference the same register, only that register is 
loaded with the contents of the first full word of operand 2. 





Example: 
LABEL AOPERATIONA OPERAND 
1 10 16 
LM 5,7,VALI 
VALI DC F'lg' 
VAL2 DC F'2g' 
VAL3 DC F'39' 


Registers 5, 6, and 7 before execution of LM instruction: 


Register 5 Register 6 


10 | C000 | 0000 | 0000 | 0000 ;, 0000 | C000; 1000 , 0001 


leftover data from previous program 









0000 | 0000 | 0000 | 0000 | 0000 ; 1100} 101010100 
Peref als 


leftover data from previous program 
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VAL1, VAL2, and VAL3 before and after execution of LM instruction: 





VAL1 VAL2 


0000 10000 | 0000 | 0000 10000 0000 | 00001 1010 0000 10000 | 0000 10000 | 0000 | 0000 /0001 ,0100 
CoRR eS ee ee ee 






















0000 {0000 | 0000 10000 | 0000 , 0000 j0001 ; 1110 


Registers 5, 6, and 7 after execution of LM instruction: 


Register 5 Register 6 


0000 {0000 | 0000 ; 0000 | 0000 ; 0000 | 0000 , 1010 10 0000 | 0000 ; 0000 | 0000 ; 0000 |0001 ,0100 


Register 7 











0000 | 0000 | 0000 , 0000 | C000 10000] 0001 11110 








In this example, operands 1 and 3 specify that registers 5, 6, and 7 are to be loaded 
with three consecutive full words from main storage starting with the first full word 
at VAL1 (operand 2) and continuing until register 7 is filled. 
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& Example: 





LABEL. AOPERATIONA OPERAND 
10 16 

LM 5,5,TAGI 

DS OF < 
TAGI DC XL2'O661! 
TAG2 Dc XL2'3CQF! 
TAG3 DC XL2' BOCA! 


Register 5 before execution of LM instruction: 


0000 | 0000 | 0000 ; 0000 | 0000 | 0000 | 0000 | 0000 


TAG1, TAG2, TAG3 before and after execution of LM instruction: 






binary 





hex 





& TAG1 TAG2 TAG3 remaining main storage 


a ee A a RR Ng 
1 

0000 10000 | 0000 10001 }0011 | 1100 |0000 | 1111) 0000 , 0000 | 1100 ; 1010} 0000 ;0000 0000/0000 

ed 


full-word full-word 
boundary boundary 







Register 5 after execution of LM instruction: 


0000 10000 | 0000 }0001 |0011 ; 1100 jO000 | 1111 binary 





In this example, operand 1 and operand 3 both refer to register 5. Therefore, the 
content of operand 2 is loaded into register 5 (operand 1) beginning with the first 
byte at TAG1 and continuing with as many full words that are needed to fill register 
5 (operand 3). Note that only register 5 is filled with the first full word at operand 2. 
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Example: 

LABEL AOPERAT 10ONA OPERAND 

| 10 16 
LM 14,2,SECTOR 

SECTOR OC F'1256' 
DC F'L OOD! 
DC F'2360' 
oc F'1G0O' 
DC F'6266' 


Registers before execution of LM instruction: 


Register 14 Register 15 


0000 ; 0000| 0000; 0000 | 0000 | 0000 | 0000 ,0000 0000! 0000 0000 , 0000 | 0000 ;0000 |0000 ,0000 


operand 1 


















Register 0 Register 1 


0000 , 0000} 0000 | 0000 | 0000 ,0000 | 0000 ,0000 0000} 0000 0000 | 0000 | 0000 10000 | 0000 ;0000 











0000 | 0000 | 0000: 0000 | 0000 ;0000 


operand 3 





SECTOR before and after execution of LM instruction: 


0000 | 0000} 0000 ; 0000 | 0000 ;0100 }1110 ;0010 0000 !0000 | 0000 | 0000 J0000; 1111] 1010 ;0000 binary 















0000 {0000 | 0000 , 0000 | 0000 ;1000|1111 111400 | 0000 ;0000 | 0000 ; 0000 binary © 
c 






0000 10000 | 0000 , 0000 |0001 | 1000} 0011 11000 binary 
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Registers after execution of LM instruction: 


Register 14 Register 15 


0000 10000 }0000 0000 | 000010100 | 111010010 0000 ; 0000 |0000 | 0000 | 0000 1 1111 | 1010; 0000 
RaeS R Reeaes Ries eS 


Register 0 Register 1 


0000 10000 |0000 | 0000 | 0000 | 1000 [111111100] 0000 10000 {0000 }0000 | 000010011 | 1110! 1000 


Register 2 


Fic 
0000 10000 | 0000 10000 |0001 11000 |0011 1 1000 


In this example, register 14 is the first register loaded and register 2 is the last 
register loaded. Since the address of operand 2 (register 2) is less than the address 
of operand 1 (register 14), the register addresses wrap around from 15 to O up to 
and including 2. Operand 2 is either defined as a full word or aligned on a full-word 
boundary. The contents of operand 2 is loaded into register 14 starting with the byte 
addressed by SECTOR and continuing with as many full words until register 2 is 
filled. 





































Remember that most I/O operations use registers 14, 15, 0, and 1. So, if you use 
these registers and then perform some input or output in your program, the original 
contents of these registers are destroyed. However, you can use these registers if you 
save the contents prior to every I/O operation, and restore them after completing 
each 1/0 operation. 


It may be helpful to note that the supervisor usually uses the lower numbered registers and 
data management usually uses the higher numbered registers. 
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LNR 


10.19. LOAD NEGATIVE (LNR) 












Possible Program Exceptions 
eee P 
orcope | cormar| inst. [J ADDRESSING () PROTECTION 
ue wer. (J DATA (INVALID SIGN/DIG!T)| [J SIGNIFICANCE 
(BYTES) || D) DECIMAL DIVIDE C) SPECIFICATION: 


OC) DECIMAL OVERFLOW NOT A FLOATING-POINT REGISTER 
O Execute OP 1 NOT ON HALF-WORD BOUNDARY 






Punta ae | 2 | 
Condition Codes 


Mir RESULT =0,SETTOO 
Bir resuct <o, set To1 
Or RESULT >0O, SET TO 2 
CIF OVERFLOW, SET TO 3 
LJ UNCHANGED 


CD EXPONENT OVERFLOW OP 2 NOT ON HALF-WORD BOUNDARY 
CO ExPONENT UNDERFLOW OP 2 NOT ON FULL-WORD BOUNDARY 
(CD F1XED-POINT DIVIDE OP 2 NOT ON DOUBLE-WORD 


OC FIXED-POINT OVERFLOW BOUNDARY 
(0 FLOATING-POINT DIVIDE OP 1 NOT EVEN NUMBERED REGISTER 


oO OPERATION OP 1 NOT ODD NUMBERED REGISTER 
NONE 





The /oad negative (LNR) instruction places the twos complement of the content of the 
operand 2 register into the operand 1 register. If operand 2 contains a negative value 
or a value of zero, the instruction places that value unchanged into operand 1. 


Explicit and Implicit Format: 







A OPERATION A OPERAND 


[symbol] 


Operational Consideration: 


s Any of the general registers (0 through 15) can be used as operands 1 and 2. 





Example: 
LABEL AOPERATIONA OPERAND 
] 10 16 
LM 5,7,NUMBERS 1] 
LNR 5,5 
LNR 6,6 
LNR 7,7 
NUMBERS] DC Fi! 
NUMBERS2 DC FIS! 


NUMBERS3 DC F'6! 
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In this example registers 5, 6, and 7 are filled with contents of NUMBERS1, 
NUMBERS2, and NUMBERS3, respectively. Then each of the three LNR instructions, 
operating respectively on registers 5, 6, and 7, replaces the full word in its respective 
register with the twos complement of that full word. 


Register 5 before execution of the LNR instruction: 


0000, 0000 0000) 0000/ 0000; 0000} 0000 | 0100 


Register 6 before execution of LNR instruction: 


0000, 0000; 0000; 0000 0000 0000 0000/0101 


Register 7 before execution of LNR instruction: 


0000 | 0000} 0000) 0000] 0000] 0000} 0000; 0110 


111711111 
I 









binary 


hex 











binary 


hex 






















binary 


hex 


binary 


binary 


hex 
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10.20. LOAD POSITIVE (LPR) 


Possible Program Exceptions 


(J ADDRESSING (J PROTECTION 

(0 DATA (INVALID SIGN/DIGIT)} [1] SIGNIFICANCE 

OC DECIMAL DivIDE OC SPECIFICATION: 

CJ DECIMAL OVERFLOW NOT A FLOATING-POINT REGISTER 
0 execute OP 1 NOT ON HALF-WORD BOUNDARY 
(C0 EXPONENT OVERFLOW OP 2 NOT ON HALF-WORD BOUNDARY 
CO EXPONENT UNDERFLOW OP 2 NOT ON FULL-WORD BOUNDARY 
C0 FIXED-POINT DIVIDE OP 2 NOT ON DOUBLE-WORD 


® Fixep-POINT OVERFLOW BOUNDARY 
C] FLOATING-POINT DIVIDE OP 1 NOT EVEN NUMBERED REGISTER 


(J OPERATION OP 1 NOT ODD NUMBERED REGISTER 










OBJECT 
OPCODE FORMAT | INST. 











LGTH. 
(BYTES) 


Condition Codes 


W iF RESULT = 0, SET TOO 





















Or resuct <o, set to1 
Wir RESULT >0, SET TO2 
@ iF OVERFLOW, SET TO3 
C(O UNCHANGED 


OOO OOOoOO 


Zz 
° 
2 
m 





The /oad positive (LPR) instruction places the positive value of the content of the 
operand 2 register in the operand 1 register. If operand 2 contains a positive value or 
zero, that same value is placed unchanged in operand 1. If operand 2 contains a 
negative number, the twos complement of that number (its positive value) is loaded 
into operand 1. 





Explicit and Implicit Format: 





A OPERATION A OPERAND 





Operational Considerations: 
= Any of the general registers (0 through 15) can be used as operand 1 and 2. 


= The maximum negative value you can specify in operand 2 is —2,147,483,657 
(—23'—1). Otherwise, a fixed-point overflow program exception occurs. 


= Operand 2 is not changed by the execution of the instruction. 
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@ Example: 
LABEL AOPERATIONA OPERAND 
| 10 16 
LM 5,7,NUMBERS] 
LPR 545 
LPR 6,6 
LPR 7,7 
NUMBERS] 0C Find! 
NUMBERS2 DC Flies! 
NUMBERS3 DC Flag! 


In this example, registers 5, 6, and 7 are filled with the contents of NUMBERS1, 
NUMBERS2, and NUMBERS3, respectively. Then each of the three LNR instructions, 
operating respectively on registers 5, 6, and 7, replaces the full word in its respective 
register with the twos complement of that full word. The result is their positive 
values. 


Register 5 before execution of LPR instruction: 


binary 


hex 





Register 6 before execution of LPR instruction: 


Register 7 before execution of LPR instruction: 


14949) 94499] 1444] 1991] 199911191] 1111] 1010 binary 






binary 





hex 
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Register 5 after execution of LPR instruction: 


0000 | 0000 0000| 0000) 0000; 0000} 0000) 0100 


Register 6 after execution of LPR instruction: 


0000 | 0000 | C000! C000] COCO! COCO 


Register 7 after execution of LPR instruction: 


0000 | 0000, 0000; 0000; 0000 bse nck 











binary 


hex 







binary 





hex 


0000; 0101 









binary 


hex 
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10.21. MULTIPLY (M) 


General 


OBJECT 


Possible Program Exceptions 


WB ADDRESSING @ PROTECTION 
















OPCODE FOaNay Day (C0 DATA (INVALID SIGN/DIGIT)| [1] SIGNIFICANCE 
anew, HEX, (pyTes) || (] DECIMAL DIVIDE W@ SPECIFICATION: 

OJ DECIMAL OVERFLOW 
0] execute 


NOT A FLOATING-POINT REGISTER 

OP 1 NOT ON HALF-WORD BOUNDARY 
OP 2 NOT ON HALF-WORD BOUNDARY 
OP 2 NOT ON FULL-WORD BOUNDARY 


OP 2 NOT ON DOUBLE-WORD 
BOUNDARY 


OP 1 NOT EVEN NUMBERED REGISTER 
OP 1 NOT ODD NUMBERED REGISTER 
NONE 


Condition Codes 


OF RESULT = 0, SET TOO 
Oe RESULT <o, SET TO1 
CF RESULT >O, SET TO 2 
CIF OVERFLOW, SET TO3 
BB UNCHANGED 







(J EXPONENT OVERFLOW 
CO EXPONENT UNDERFLOW 
C] FIXED-POINT DIVIDE 

CO FIXED-POINT OVERFLOW 
(J) FLOATING-POINT DIVIDE 
( OPERATION 


OOgm Omooo 





The multiply (M) instruction algebraically multiplies the operand 1 register pair by the 
full word in operand 2. The result replaces the operand 1 register pair. 


Explicit Format: 











LABEL A OPERATION A OPERAND 


[symbol] 


Implicit Format: 






LABEL . A OPERATION A 





OPERAND 


[symbol] 


Operand 1 must be a contiguous pair of even-odd registers. The even-numbered 
register, since it is a lower numbered register, is specified as operand 1. Both the 
multiplier (operand 2) and the multiplicand (operand 1) are 32-bit signed integers but 
the product is always a 64-bit signed integer. Before execution of the M instruction, 
the multiplicand must be loaded into the odd-numbered register, while the content of 
the even-numbered register is ignored. The multiplier must either be defined as a full 
word or aligned on a full-word boundary. After execution of the M_ instruction, the 
resulting product replaces the even-odd register pair as a double-word value with the 
high order bits or bit as the sign value. The sign of the product is determined 
algebraically; like signs produce positive results and unlike signs produce negative 
results. If the product is always contained in the odd-numbered register, you can 
ignore the contents of the even-numbered register and store the contents of the odd- 
numbered register as the product. 
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Operational Considerations: 





= Operand 1 consists of an even-odd pair of registers located in consecutive order 
in the processor. 
= Operand 1 always references the even-numbered register. 
2 The multiplicand occupies the odd-numbered register as a full-word value. 
= After the M instruction is executed, the product occupies both registers as a 
double-word value. 
= Operand 2 must either be defined as a full word or aligned on a full-word 
boundary. 
= Any of the even-numbered general registers (O thru 14) can be used as operand 
1. 
Exampie: 
LABEL AOPERATIONA: OPERAND 
1 10 16 
L 5 ,MULTCAND 
M 4 MULTPLYR 
MULTCAND DC F'2kh! 
MULTPLYR DC F'22! 


Registers 4 and 5 before execution of M instruction: 


Register 4 Register 5 





Operand 1 


MULTPLYR before and after execution of M instruction: 

















UP-8913 


SPERRY UNIVAC OS/3 10-57 
ASSEMBLER 





Registers 4 and 5 after execution of M instruction: 








Register 4 Register 5 


000 10000 oo00 10000 0000 |0000 













0001 |0100 





}0000 0000 Joooo 0000 [0000 !oo00 


operand 1 


In this example, the full-word value in MULTCAND is loaded into register 5 (odd- 
numbered register). Then, the full-word value in MULTPLYR is multiplied by register 4 
(the even-odd register pair). The even-numbered register is ignored and the content of 
the odd-numbered register (in this case, 5) is used in the multiplication. 


The resulting product replaces the even-odd register pair as a double-word value. 
Since the value of this product is less than +2,147,483,647, it can be contained in 
register 5 and register 4 can be ignored. 


Example: 

LABEL AOQPERATIONA OPERAND 

] 10 16 

a 
L 7 ,MULTCAND 
M 6,MULTPLYR 
ST 7, HOLDAREA 

MULTCAND DC F'356' 

MULTPLYR DC F'-5! 

HOLDAREA DS F 


Registers 6 and 7 before execution of M instruction: 


Register 6 Register 7 


0000 ;0000] 0000 ; 0000 0000 {0000 | 0000 ,0000 0000 0000 0000} 0000/0000 0001 Jor01 11110 binary 








hex 


operand 1 
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MULTPLYR before and after execution of M instruction: 





sign bits 


(—5 in twos complement form) 


Registers 6 and 7 after execution of M instruction: 


sign bits 


0010 11010 binary 





(—1750 in twos complement form) 
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10.22. MULTIPLY (MR) 


Possible Program Exceptions 
OPCODE = [) ADDRESSING CO protEcTION 
FORMAT | INST. 
IGIT IGNIFICANCE 
TYPE LGTH. C1 DATA (INVALID SIGN/D Ids c 


(BYTES) |} DECIMAL DIVIDE W@ SPECIFICATION: 


0 DECIMAL OVERFLOW 3 NOT A FLOATING-POINT REGISTER 
OC] execute OP 1 NOT ON HALF-WORD BOUNDARY 


CO EXPONENT OVERFLOW OP 2 NOT ON HALF-WORD BOUNDARY 
Condition Codes C0 EXPONENT UNDERFLOW OP 2 NOT ON FULL-WORD BOUNDARY 


Clit RESULT =0,SET TOO CO FIXED-POINT DIVIDE OP 2 NOT ON DOUBLE-WORD 

Clie Resuct <0, set To 1 CD FIXED-POINT OVERFLOW BOUNDARY 

oO tf RESULT >0, SET TO2 oO FLOATING-POINT DIVIDE OP 1 NOT EVEN NUMBERED REGISTER 
OIF OVERFLOW, SET TO 3 O oPERATION OP 1 NOT ODD NUMBERED REGISTER 
MBUNCHANGED NONE 





The multiply (MR) instruction algebraically multiplies the content of the operand 1 
register pair (multiplicand) by the content of the operand 2 register (multiplier). The 
result (product) is placed in operand 1. 


Explicit and Implicit Format: 








A OPERATION A OPERAND 


[symbol] 


Operational Considerations: 


=  Operand 1 consists of a pair of even-odd registers (64 bits). You must specify the 
even-numbered register as operand 1, and you must load the odd-numbered 
operand 1 register with the multiplicand before using this instruction. 


s The product fills the odd-numbered register first and then, if necessary, the even- 
numbered register. 


= Any of the general registers (0 through 15) can be used as operands 1 and 2. 
Operand 2 is not changed by the execution of this instruction. 
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Example: 

LABEL AOPERATIONA OPERAND 
1 10 16 

LH 8,PRICE 

LH 7 ,NEWBUY 

MR 6,8 
NEWBUY dc H'73' 
PRICE DC H'1p' 


In this example, place the contents NEWBUY and PRICE into registers 7 and 8, 
respectively. Then, multiply the content of the even-odd register pair 6 and 7 by 
register 8. (You address the pair of registers by using register 6.) The result is placed 
in register 7. If, however, the result of the multiplication exceeds the capacity of 
register 7, register 6 is filled with the remainder of the result. 


Registers 6 and 7 before execution: 





double word 


Register 8 before execution: 





SS eee 


double word 
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10.23. MULTIPLY HALF WORD (MH) 


Possible Program Exceptions 


Mi ADDRESSING WB PROTECTION 

(0 DATA (INVALID SIGN/DIGIT) | [J SIGNIFICANCE 

(J DECIMAL DIVIDE Wi SPECIFICATION: 

OO DECIMAL OVERFLOW NOT A FLOATING-POINT REGISTER 
0 execute OP 1 NOT ON HALF-WORD BOUNDARY 
| D EXPONENT OVERFLOW OP 2 NOT ON HALF-WORD BOUNDARY 
() ExPONENT UNDERFLOW OP 2 NOT ON FULL-WORD BOUNDARY 
C0 FIXED-POINT DIVIDE OP 2 NOT ON DOUBLE-WORD 


D0 FIx€D-POINT OVERFLOW BOUNDARY 
(0 FLOATING-POINT DIVIDE OP 1 NOT EVEN NUMBERED REGISTER 


(J OPERATION OP 1 NOT ODD NUMBERED REGISTER 
NONE 


OBJECT 
OPCODE FORMAT | INST. 
TYPE LGTH. 

(BYTES) 








Condition Codes 


Cite RESULT = 0, SET TOO 
Coir Resuct <o, set Tto1 
Cit RESULT >0O, SET TO 2 
Cit OVERFLOW, SET TO 3 
GUNCHANGED 


OOO OOOO 





The multiply half word (MH) instruction algebraically multiplies the content of the 
operand 1 register by the half word in operand 2. The result is placed in the operand 
1 register. 


Explicit Format: 







A OPERATION A OPERAND 


[symbol] 






Implicit Format: 


LABEL A OPERATION A OPERAND 


[symbol] ry. Sy (x5) 
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Operational Considerations: 
= = §=6Any of the general registers (0 through 15) can be used as operand 1. 


= Before execution of the MH instruction, operand 2: is expanded from.16 to 32 
bits. The 16 high order bits are propagated with the sign bit value. The contents 
of operand 2 before the 16 high order bits are propagated with the sign bit 
value. 





sign bit 


0000| 0000} 0000 | 1010 


RSs 
Lt 


half word 






binary 


hex 





The contents of operand 2 after the 16 high order bits are propagated with the 
sign bit value. 


sign bit 


0000 | 0000 | 0000 | 0000 | 0000 | 0000 | 0000 |1010 


eee ere eae 


sign bits 


{_______________] 


full word 






binary 


hex 





Operand 2 is not permanently changed by the execution of the instruction. 


= The result (product) fills the 32-bit operand 1 register from right to left. If the 
product does not fit into the operand 1 field, extra leftmost bits are truncated and 
the result or sign may be incorrect. 
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a are a a ee ee a ee ah) a en a ee 
Example: 
LABEL AOPERATIONA OPERAND 
1 10 16 
L 7 ,NEWBUY 
MH 7,PRICE 
NEWBUY DOC F'73! 
PRICE dC H'1p! 


In this example, load the contents NEWBUY into register 7 and multiply the half word 
of PRICE by the content of register 7. The product is placed in register 7. 


Register 7 before execution of MH instruction: 


0000 | 0000 | 0000 | 0000} 0000 | 0000 |0100 {1001 


PRICE before and after execution of MH instruction: 


0000] 0000 | 0000 | o000 0000 | 0000 0000 | 1010 


sign bit value 
propagated through 
16 high order bit 
positions 









binary 


hex 










Register 7 after execution of MH instruction: 


0000 | 0000} 0000 | 0000] 0000} 0010] 1101] 1010 










binary 


hex 
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SLDA 





10.24. SHIFT LEFT DOUBLE (SLDA) 


Possible Program Exceptions 


GPcObE OBJECT || 7 ADDRESSING (C1 PROTECTION 
roaver pals (J DATA (INVALID SIGN/DIGIT)} [] SIGNIFICANCE 
(eyTes) || () DECIMAL DiviDE WH SPECIFICATION: 
OC DECIMAL OVERFLOW NOT A FLOATING-POINT REGISTER 


0 execute OP 1 NOT ON HALF-WORD BOUNDARY 


(EXPONENT OVERFLOW OP 2 NOT ON HALF-WORD BOUNDARY 
Condition Codes CO ExPONENT UNDERFLOW OP 2 NOT ON FULL-WORD BOUNDARY 


0 FIXED-POINT DIVIDE OP 2 NOT ON DOUBLE-WORD 

Wir ReEsuLT <o, SET TO 1 WB FIXED-POINT OVERFLOW BOUNDARY 

Wie RESULT >O, SET TO2 (CD FLOATING-POINT DIVIDE OP 1 NOT EVEN NUMBERED REGISTER 
Biff OVERFLOW, SET TO3 (J OPERATION OP 1 NOT ODD NUMBERED REGISTER 
CJ UNCHANGED ; NONE 


@ if RESULT =< 0,SETTOO 





The shift left double (SLDA) instruction shifts all of the 63 bits of the operand 1 
even-odd register pair to the left the number of bits specified by the low order six 
bits of the operand 2 address. 





Explicit Format: 







A OPERATION A OPERAND 


[symbol] 


Implicit Format: 





AOPERATIONA 


Operational Considerations: 


ws Any pair of general registers (0 through 15) can be ‘used as operand 1. Operand 
1 is an even-odd register pair. You must specify the even-numbered register of 
the pair as operand 1. 


= The main storage address or label you specify in operand 2 is not changed by 
the SLDA instruction execution. Notice the formats indicate that you cannot 
specify a length in operand 2. 
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= §=6The sign bit (leftmost bit) of the even-numbered operand 1 register pair is not 
moved or changed by the execution of this instruction. Only the 63 remaining 
bits can be shifted by this instruction. 
= After the requested number of bits are shifted out of the operand 1 register pair, 
zeros fill the rightmost bit positions of the register pair that were emptied. 
= During the instruction execution, each bit being shifted out is checked when it is 
the bit adjacent to the sign bit. If the bit differs from the sign, it cannot be 
shifted out without causing a fixed-point overflow program exception. 
Before shifting two bits left: 
sign bit 
third bit to be shifted 
After shifting two bits left: 
in veo fl elem 
Shifting left three bits in this register pair causes a fixed-point overflow program 
exception, since the third bit being shifted is not the same value as the sign bit. 
In this example, two bits are successfully shifted out, but when the third bit is 
moved adjacent to the sign bit and tested, it is not like the sign. 
= Each time you shift one digit left, it is the same as multiplying by a power of 2. 
If you shift one bit left, you multiply by 2, two bits Seft, you multiply by 22, three 
bits by 23, and so forth. 
= When the shift value is zero, it causes a double-length sign and magnitude test, 
and the condition code is set. 
Example: 
LABEL AOPERATIONA OPERAND 
1 10 16 
L 9 , FULLWORD 
SLDA 8,4 
FULLWORD DC F' 4543! 
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In this example, registers 8 and 9 are shifted four bit positions left. Before the SLDA 
instruction, the content of FULLWORD is placed into register 9. Operand 2 is 
expressed in explicit format with 4 as the displacement (d.) and no base register (b,) 
representation. Consequently, the addition of base register and displacement values is 
not performed by the assembler and the operand 2 displacement value becomes the 


absolute value. 


Before execution of SLDA instruction: 


Register 8 Register 9 


lost 

bits 

After SLDA instruction execution: TTL. 
Sli 


0000! 0000] 0000} 0000] 0000; 0000 2000 0000 0000} 0001} 0001} 1011] 1111 | 0000 


Note that the content of register 9 before the shift is 4543, and after shifting four 
bits left, it contains 72,688 (4543 multiplied by 24(16)). 











zero 
filled 
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SLA 


10.25. SHIFT LEFT SINGLE (SLA) 







Possible Program Exceptions 
penase __sa [J ADDRESSING OC] PROTECTION 
eaten — (0 DATA (INVALID SIGN/DIGIT)| [] SIGNIFICANCE 
| Nem. |HEX, (Bytes) || DJ DECIMAL DivIDE CU SPECIFICATION: 


CJ DECIMAL OVERFLOW 
0 execute 








NOT A FLOATING-POINT REGISTER 

OP 1 NOT ON HALF-WORD BOUNDARY 
OP 2 NOT ON HALF-WORD BOUNDARY 
OP 2 NOT ON FULL-WORD BOUNDARY 


OP 2 NOT ON DOUBLE-WORD 
BOUNDARY 


OP 1 NOT EVEN NUMBERED REGISTER 
OP 1 NOT ODD NUMBERED REGISTER 
NONE 


sia foo] as | a 
Condition Codes 


W@ if RESULT = 0,SET TOO 


0 EXPONENT OVERFLOW 
C0 EXPONENT UNDERFLOW 
0 FIXED-POINT DIVIDE 

@ FixED-POINT OVERFLOW 
D0 FLOATING-POINT DIVIDE 
OJ oPERATION 


Wir Resuct <o,setto1 
Wir RESULT > 0, SET TO 2 
@ iF OVERFLOW, SET TO 3 
(CU UNCHANGED 





OOO Ooo0oO0 





The shift left single (SLA) instruction shifts the 31 bits of the operand 1 register to 
the left of the number of bits specified by the low order six bits of the operand 2 
address. The sign bit (the leftmost high order bit) of register 1 remains unchanged, 
and zeros fill the vacated positions of the register. 


Explicit Format: 







AOPERATION A OPERAND 


[symbol] 


Implicit Format: 








A OPERATION A 





LABEL OPERAND 
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Operational Considerations: 





= <Any of the general registers (O through 15) can be used as operand 1. 


= The main storage address or label you specify in operand 2 is not changed by 
the SLA instruction execution. Notice the formats indicate that you cannot specify 
a length in operand 2. 


= The sign bit (leftmost bit) of the operand 1 register is not shifted or changed by 
the execution of this instruction. Only the 31 remaining bits can be shifted by 
the execution of this instruction. 


= After the requested number of bits are shifted out of the operand 1 register, 
zeros fill the vacated rightmost bit positions. 


# During the instruction execution, each bit being shifted out is checked when it is 
the bit adjacent to the sign bit. If the bit differs from the sign, it cannot be 
shifted out without causing a fixed-point overflow program exception. 


Before shifting two bits left: 


sign bit 
third bit to be shifted 








Shifting left three bits in this register causes a fixed-point overflow program 
exception, since the third bit being shifted is not the same value as the sign bit. 
In this example, two bits are successfully shifted out, but when the third bit is 
moved adjacent to the sign bit and tested, it is not like the sign. 


# For numbers with a value of less than 23° (1,073,741,824), each time you shift one 
digit left, it is the same as multiplying by a power of 2. ff you shift one bit left, you 
multiply by 21; two bits left, you multiply by 22; three bits by 23; and so forth. 
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Example: 
LABEL AOPERATIONA OPERAND 
1 10 16 
L 8, FULLWORD 
SLA 8,1 
FULLWORD DC F'4sk3! 


In this example, the content of main storage location FULLWORD is placed in register 
8. Register 8 is then shifted one bit position left. 


Register 8 before execution of SLA instruction: 


000010000] 000010000] 0001 | 0001] 1011/1111 







lost 
bits 


After SLA instruction execution: 


0} 000} 0000] 0000 |0000] 00100011 


Note that register 8 contains 4543 before the SLA instruction and 9086 afterwards. 
By shifting one bit left, the content of register 8 is multiplied by 2. 


zero 
filled 
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SRDA 


10.26. 


SHIFT RIGHT DOUBLE (SRDA) 


eee 
OPCODE FORMAT | INST. 
TYPE LGTH. 





(J ADDRESSING 








(J DECIMAL O!IVIDE 

CJ DECIMAL OVERFLOW 

0D execute 

(J EXPONENT OVERFLOW 
C] EXPONENT UNDERFLOW 
C7 FIXED-POINT DIVIDE 

OC] FIXED-POINT OVERFLOW 
(0 FLOATING-POINT DIVIDE 
(0 OPERATION 


Condition Codes 


MB iF RESULT = 0, SET TOO 
Mir RESULT <o, sET TO 1 
Wir RESULT >0O, SET TO 2 
(CJ 1F OVERFLOW, SET TO 3 









(0 DATA (INVALID SIGN/DIGIT) 





Possible Program Exceptions 


(1) PROTECTION 
C0 SIGNIFICANCE 
BB SPECIFICATION: 















10-70 












NOT A FLOATING-POINT REGISTER 

OP 1 NOT ON HALF-WORD BOUNDARY 
OP 2 NOT ON HALF-WORD BOUNDARY 
OP 2 NOT ON FULL-WORD BOUNDARY 


OP 2 NOT ON DOUBLE-WORD 
BOUNDARY 


OP 1 NOT EVEN NUMBERED REGISTER 
OP 1 NOT ODD NUMBERED REGISTER 


QOO@ OOOOO 


2 
° 
2 
m 


(CJ UNCHANGED 











The shift right double (SRDA) instruction shifts the 63 bits of operand 1 to the right 
the number of bits specified by the low order six bits of the operand 2 address. You 


cannot shift the sign bit. Specify the even-numbered register of the pair as operand 1. 


Explicit Format: 










A OPERATION A 


[symbol] 


Implicit Format: 


LABEL A OPERATION A 


[symbol] 





OPERAND 


OPERAND 
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Operational Considerations: 


s Any pair of general registers (0 through 15) can be used as operand 1, which is 
an even-numbered register pair. You must specify the even-numbered register of 
the pair as operand 1. 


= The main storage address or label you specify in operand 2 is not changed by 
the SRDA instruction execution. Notice the formats indicate that you cannot 
specify a length in operand 2. 


a The sign bit (leftmost bit) of the even-numbered operand 1 register pair is not 
moved or changed by the execution of this instruction. Only the 63 remaining 
bits can be shifted by this instruction. 


=» After the requested number of bits are shifted-out of the operand 1 register pair, 
the vacated leftmost bit positions are filled with bits that have the same value as 
the sign bit. 


= For positive values, each time you shift one bit position right, it is the same as 
dividing by a power of 2. If you shift one bit right, you divide by 21; two bits right, you 
divide by 22; three bits by 23 and so forth. When the value is negative, shifting right 
causes a divide by 2 on a value one less than the value in the register. For examples, 
see SRA instruction. 


= When the shift value is zero, it causes a double-length sign and magnitude test, 
and the condition code is set. 





Example: 
LABEL AOPERAT IONS OPERAND 
| 10 16 
L 9, FULLWORD 
SRDA 8,4 


FULLWORD OC F'72688' 
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In this example, registers 8 and 9 are shifted four bit positions right. Before the ~ 
SRDA instruction, the contents of FULLWORD are placed into register 9. @ 


Before SRDA instruction execution: 


lila fn [] 


After SRDA instruction execution: 


en fo fe fn off 


Notice that the contents of register 9 before the shift are 72,688, and after shifting 
four bits right, it contains 4543 (72,688 divided by 24(16)). 
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nc TE EERE 


SRA 


10.27. SHIFT RIGHT SINGLE (SRA) 


Possible Program Exceptions 


(J ADDRESSING (C2 PROTECTION 

(0 DATA UINVALID SIGN/DIGIT) | [) SIGNIFICANCE 

(J DECIMAL DiviDE CO SPECIFICATION: 

( DECIMAL OVERFLOW NOT A FLOATING-POINT REGISTER 

0 execute OP 1 NOT ON HALF-WORD BOUNDARY 

O EXPONENT OVERFLOW OP 2 NOT ON HALF-WORD BOUNDARY 

(1 EXPONENT UNDERFLOW OP 2 NOT ON FULL-WORD BOUNDARY 

0D FIXED-POINT DIVIDE OP 2 NOT ON DOUBLE-WORD 

0 FIXED-POINT OVERFLOW BOUNDARY 

(0 FLOATING-POINT DIVIDE OP 1 NOT EVEN NUMBERED REGISTER 

CO opeRATION OP 1 NOT ODD NUMBERED REGISTER 
NONE <= 


OBJECT 
OPCODE FORMAT | INST. 


TYPE LGTH. 
(BYTES) 


Condition Codes 


@ ir RESULT =0,SET TOO 
WM if REsuLt <o, SET To1 
Bb iF RESULT >0, SET TO 2 
(CF OVERFLOW, SET TO3 
DI UNCHANGED 









The shift right single (SRA) instruction shifts the 31 bits of the operand 1 register to 
the right the number of bits specified by the low order six bits of the operand 2 
address. You cannot shift the sign bit. 


Explicit Format: 







A OPERATION A OPERAND 


[symbol] 


Implicit Format: 







A OPERATION A OPERAND 


[symbol] 


UP-8913 
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Operational Considerations: 


Any or the general registers (0 through 15) can be used as operand 1. 


The main storage address or label you specify in operand 2 is not changed by 
the SRA instruction execution. Notice the formats indicate that you cannot specify 
a length in operand 2. 


The sign bit (leftmost bit) of the operand 1 register is not shifted or changed by 
the execution of this instruction. Only the 31 remaining bits can be shifted by 
the execution of this instruction. 


After the requested number of bits are shifted out of the operand 1 register, the 
vacated leftmost bits are filled with bits that have the same value as the sign bit. 


lf the contents of the operand 1 register are a positive value, shifting right one 
bit divides the value of the register by 2. Any remainders are rounded downward. 
For example, a value of +5 shifted right one bit produces a +2 in the register 
after the shift. 


Before one bit shift right: 


0000! 0000] 0000} 0000] 0000} 0101 









0!000;0000 









After one bit shift right: 


01000! 0000} 0000; 0000 } 0000! 0000 | 0000} 0010 


When contents of the operand 1 register are negative, shifting right one bit 
causes a divide by 2 on a value one less than the value in the operand 1 
register. For example, a value of —5, when shifted right one bit produces a —3 
in the register (—6 divided by 2). 





Before one bit shift right: 









After one bit shift right: 


TPRERTRERAO CEERI REED favajaana|avaij ston ~3 
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Note that a negative is expressed in twos complement notation. After the shifting 
operation, you can determine the positive value in the register by taking the twos 
complement of a negative number. 


atanttanagf anal rata] neat ata 4111 H 1101 —3 (twos complement of +3) 
| { 
o! 000! 0000 0000} 0000 0000! 0000 000010011 +3 (twos complement of —3) 





Example: 
LABEL AOPERAT IONA OPERAND 
1 10 16 
L 8, FULLWORD 
SRA 8,1 
FULLWORD DC F'hoh3! 


In this example, the content of main storage location FULLWORD is placed in register 
8. Register 8 is then shifted one bit position right. 


Register 8 before SRA instruction execution: 













0;00010000}0000!0000]0001! 0001 |10111 1111 


Register 8 after SRA instruction execution: 


( 
01000 ;0000 | 0000 ;0000 | 0000} 1000 fron} aan 


Note that register 8 contains 4543 before the SRA instruction and 2271 afterwards. 
By shifting one bit right, the content of register 8 is divided by 2. 
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ST 





10.28. STORE (ST) 


OBJECT 
OPCODE FORMAT | INST. 


ADDRESSING MB PROTECTION 

(0 DATA (INVALID SIGN/DIGIT) | 1] SIGNIFICANCE 

C0 DECIMAL DiviDE WE SPECIFICATION: 

CO DECIMAL OVERFLOW NOT A FLOATING-POINT REGISTER 
2 execute OP 1 NOT ON HALF-WORD BOUNDARY 
(J EXPONENT OVERFLOW OP 2 NOT ON HALF-WORD BOUNDARY 
(EXPONENT UNDERFLOW OP 2 NOT ON FULL-WORD BOUNDARY 
(1 FIX€O-POINT DIVIDE OP 2 NOT ON DOUBLE-WORD 


OD FIXED-POINT OVERFLOW BOUNDARY 
(0 FLOATING-POINT DIVIDE OP 1 NOT EVEN NUMBERED REGISTER 


(CJ OPERATION OP 1 NOT ODD NUMBERED REGISTER 
NONE 


TYPE LGTH. 
(BYTES) 


Condition Codes 


(CJ 1F RESULT = 0,SET TOO 
OiF RESULT <0, SET TO1 
Ole RESULT > 0, SET TO 2 
CJIF OVERFLOW, SET TO 3 
BB UNCHANGED 









The store (ST) instruction places the contents of the operand 1 register unchanged 
into the full word in operand 2. 


Explicit Format: 







LABEL A OPERATION A OPERAND 


[symbol] r, d, (x, .b,) 


Implicit Format: 





A OPERATION A OPERAND 


Operational Considerations: 
= Any of the general registers (0 through 15) can be used as operand 1. 


= Operand 2 must either be defined as a full word or aligned on a full-word 
boundary. 


= Unlike most instructions, the ST instruction has operand 1 as the sending field 
and operand 2 as the receiving field. 
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Example: 
LABEL  AOPERATIONA OPERAND 
1 10 16 
L 7 ,=F'25! 
ST 7 ,CHART+4 
CHART oC F122! 
oc F'sg! 
DC F'28! 


CHART+4 before execution of ST instruction: 





In this example, register 7 is loaded with a full-word value of 25. Then the content of 
register 7 destroys the content of the second full word in CHART and replaces it with 
the content of register 7. 
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STH 





10.29. STORE HALF WORD (STH) 


OBJECT 
OPCODE FORMAT | INST. 


@ ADDRESSING @ PROTECTION 

C(O DATA (INVALID SIGN/DIGIT)| [J SIGNIFICANCE 

(J DECIMAL DIVIDE @ SPECIFICATION: 

CJ DECIMAL OVERFLOW NOT A FLOATING-POINT REGISTER 
0 ExecuTE OP 1 NOT ON HALF-WORD BOUNDARY 
(C1) ExPONENT OVERFLOW OP 2 NOT ON HALF-WORD BOUNDARY 
CJ EXPONENT UNDERFLOW OP 2 NOT ON FULL-WORD BOUNDARY 
0 FIXED-POINT DIVIDE OP 2 NOT ON DOUBLE-WORD 


0 FIXED-POINT OVERFLOW BOUNDARY 
C] FLOATING-POINT DIVIDE OP 1 NOT EVEN NUMBERED REGISTER 


(CJ oPERATION OP 1 NOT ODD NUMBERED REGISTER 
NONE 


TYPE LGTH. 
(BYTES) 


Condition Codes 


CJ iF RESULT =0,SET TOO 
OF RESULT <0, SET TO1 
Die RESULT >0, SET TO 2 
OOtF OVERFLOw, SET TO3 
BB UNCHANGED 











O 
O 
fal 
O 
O 
O 
O 
O 


The store half word (STH) instruction places bits 16 through 31 of the operand 1 
register unchanged into the half word in operand 2. 


Explicit Format: 







A OPERATION A OPERAND 





[symbol] r, d,(x,,b,) 


Implicit Format: 






A OPERATION A OPERAND 


[symbol] 


Operational Considerations: 


= Any of the general registers (0 through 15) can be used as operand 1. 


= Operand 2 must be either defined as a half word or aligned on a _ half-word 
boundary. 


= Unlike most instructions, the STH instruction has operand 1 as the sending field 
and operand 2 as the receiving field. 
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& Example: 

LABEL AOPERATIONA OPERAND 
1 10 16 

LA 7, HALFBUF 

LH 6,=H'43! 

CH 6,CONSTANT 

BNE ERROR 
ERROR STH 6,6(7) 

A 7,=F'2! 
CONSTANT DC H'56' 

DS GH 
HALFBUF DS CL86 


HALFBUF (2) before execution of STH instruction: 


pinky (leftover data from 


previous program) 


0000 | 0000 | 0000/0001 
Reese 





hex 






Register 6 before and after execution of STH instruction: 


0000 | 0000 | 0000 | 0000 | 0000 , 0000 {0010 11011 binary 
ere 


Bits 16 — 31 






HALFBUF (2) after execution of STH instruction: 


000010000 |001011011 binary 


hex 





In this example, the address of HALFBUF is loaded into register 7, and the half-word 
decimal value of 43 is loaded into register 6. Then, the content of register 6 is 
compared to the half-word decimal value in CONSTANT. Since the value 43 is less 
than 50, the condition code is set to 1 and the branch to the instruction labeled 
ERROR takes place. There, bits 16 through 31 of register 6 are stored in the first two 

@ bytes of HALFBUF. A full word of 2 is then added to the address in register 7 which 
increases the address by 2 bytes. This makes it possible for the next unequal 
condition to be stored in the succeeding two bytes and so on. 
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STM 





10.30. STORE MULTIPLE (STM) 


Possible Program Exceptions 


ff ADDRESSING Wi PROTECTION 

(J DATA (INVALID SIGN/DIGIT) | [] SIGNIFICANCE 

(J DECIMAL DIVIDE WM SPECIFICATION: 

(J DECIMAL OVERFLOW NOT A FLOATING-POINT REGISTER 
1 Execute OP 1 NOT ON HALF-WORD BOUNDARY 
(0 EXPONENT OVERFLOW OP 2 NOT ON HALF-WORD BOUNDARY 
CJ] EXPONENT UNDERFLOW OP 2 NOT ON FULL-WORD BOUNDARY 
OC FIXED-POINT DIVIDE OP 2 NOT ON DOUBLE-WORD 


DC FIXED-POINT OVERFLOW BOUNDARY 
(CO FLOATING-POINT DIVIDE OP 1 NOT EVEN NUMBERED REGISTER 


(C0 oPERATION OP 1 NOT ODD NUMBERED REGISTER 
NONE 














OBJECT 
OPCODE FORMAT | INST. 
TYPE LGTH. 












Condition Codes 


















Dif RESULT = 0, SET TOO 
Cif RESULT <0, SET TO1 
Clif RESULT >0, SET TO2 
OF OVERFLOW, SET TO 3 
BB UNCHANGED 


OOO Ow8OoO0 


The store multiple (STM) instruction places the contents of two or more consecutive 
registers (operands 1 and 3) into an equal number of consecutive full words in main 
storage (operand 2). 





Explicit Format: 









A OPERATION A 





LABEL OPERAND 





[symbol] r, 3 ,d, (b,) 


Implicit Format: 







LABEL A OPERATION A 


OPERAND 


[symbol] 


The operand 1 register is the first register stored and the operand 3 register is the 
last register stored. If operands 1 and 3 are not consecutive, any registers consecutive 
to the operand 1 register up to and including the operand 3 register are also 
included. If the address of the operand 3 register is less than the address of the 
operand 1 register, the register addresses wrap around from 15 to O. The contents of 
the registers are stored in ascending sequence into an equal number of consecutive 
full words in main storage starting with the byte addressed by the operand 2 label, 
and continuing with as many full words that are needed to receive the contents of 
the registers specified. 
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Operational Considerations: 


# Any of the general registers (0 through 15) can be used as operand 1 and 
operand 3. 
= Operand 2 must either be defined as a full word or aligned on a full-word boundary. 
= If operand 2 does not reference the correct number of full words needed to 
receive the contents of all the registers specified, full words consecutive to the 
first full word specified by operand 2 are filled until the contents of the operand 
3 register has been stored. 
= When storing multiple registers, the wraparound concept applies. 
= If operand 1 and operand 3 reference the same register, only the contents of that 
register is stored in the first full word of operand 2. 
€xample: 
LABEL AOPERATIONA OPERAND 
1 10 16 
LL Le ED SSS Sats 7 St sys ee pees 
ZAP DWORD ,=P'525' 
CVB 5, DWORD 
M 4 MULTPLYR 
STM 4 5 ,DWORD 
DWORD DS D 
MULTPLYR DC F'26! 


DWORD before execution of STM instruction: 


Packed 


number 


Registers 4 and 5 before and after execution of STM instruction: 












Register 4 Register 5 
0000 | 0000 | 0000 | 0000} 0000 | 0000 | 0000 | 0000 | 0000 ; 0000 | 0000 ; 0000 | 0011 0104 { 01011 0010 binary 
(decimal 
+13,650) 


Operand 1 operand 3 
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DWORD after execution of STM instruction: 


0000 10000 | 0000 | 0000 | 0000 1 0000 | 0000 10000 }0000 | 0000 | 0000 | 0000 | 0011 0101} 010110010 


In this example, the packed decimal number 525 is added to DWORD which was 
previously cleared to zero. Then, the double word in DWORD is converted into its 
binary equivalent and the result is placed in register 5. The contents of registers 4 
and 5 are then multiplied by the full word in MULTPLYR and the result replaces 
registers 4 and 5 as a double-word value. Register 4 (operand 1) and register 5 
(operand 3) are stored in the first two full words in DWORD. 









binary 


hex 
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10.31. 


SUBTRACT (S) 


ee 
OPCODE FORMAT | INST. 
TYPE LGTH. 





BB ADDRESSING 






(J DECIMAL DiIvIDE 

(1 DECIMAL OVERFLOW 

OJ execute 

0 EXPONENT OVERFLOW 
C] ExPONENT UNDERFLOW 
0 FIXED-POINT DIVIDE 

@ FixeD-POINT OVERFLOW 
CJ FLOATING-POINT DIVIDE 
CJ OPERATION 


Condition Codes 


Wir RESULT = 0,SETTOO 
Wir Resutt <o,setto1 
Wir RESULT >O, SET TO 2 
Gif OVERFLOW, SET TO3 
(CO UNCHANGED 









(J DATA (INVALID SIGN/DIGIT) 


Possible Program Exceptions 


BM PROTECTION 
C] SIGNIFICANCE 
@ SPECIFICATION: 














OOO Owm8o000 


NONE 


10-83 
Update AC 





NOT A FLOATING-POINT REGISTER 

OP 1 NOT ON HALF-WORD BOUNDARY 
OP 2 NOT ON HALF-WORD BOUNDARY 
OP 2 NOT ON FULL-WORD BOUNDARY 


OP 2 NOT ON DOUBLE-WORD 
BOUNDARY 


OP 1 NOT EVEN NUMBERED REGISTER 
OP 1 NOT ODD NUMBERED REGISTER 







The subtract (S) instruction subtracts the contents of the full word in operand 2 from 
the contents of the operand 1 register. The difference replaces the operand 1 register. 


Explicit Format: 









A OPERATION A 


[symbol] 


Implicit Format: 










A OPERATION A 


[symbol] 


OPERAND 


OPERAND 


When the actual subtraction takes place, the twos complement form of operand 2 is 


added to operand 1. 


Operational Considerations: 


The sign of the result is determined algebraically. 


= Any of the general registers (0 through 15) can be used as operand 1. 


=  Operand 2 must be either defined as a full word or aligned on a_ full-word 


boundary. 
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Example: 
LABEL AOPERATIONA OPERAND 
] 10 16 
L 5,=F'52' 
Ss 5, VALUE 
VALUE DC Ethie 


Register 5 before execution of S instruction: 











0000; 0000 0000! 0000 0000 {0000 | 0011 {0100 binary 






VALUE before and after execution of S instruction: 


0000 1 0000 | 0000 1 0000 | 0000 10000 | 0000 | 1011 binary 





Register 5 after execution of S instruction: 






0000 | 0000 {0000 10000 }0000 10000 }0000 10000} binary 
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° si 
10.32. SUBTRACT (SR) 


Possible Program Exceptions 


OBJECT |) J ADDRESSING CO PROTECTION 


OPCODE FORMAT | INST 
: IT IGNIFICA 
ave etre (J DATA (INVALID SIGN/DIGIT)} 1) s CANCE 


| mnem. [HEX.| (Bytes) || DJ DECIMAL DIVIDE (CJ SPECIFICATION: 
0 DECIMAL OVERFLOW NOT A FLOATING-POINT REGISTER 


O EXPONENT OVERFLOW OP 2 NOT ON HALF-WORD BOUNDARY 
Condition Codes 00 EXPONENT UNDERFLOW OP 2 NOT ON FULL-WORD BOUNDARY 


@ if RESULT = 0, SET T0 0 C1 FIXED-POINT DIVIDE OP 2 NOT ON DOUBLE-WORD 

Wie REsuLT <0, SET TO1 @ FIxeD-POINT OVERFLOW BOUNDARY 

Wir RESULT >0, SET TO 2 OD FLOATING-POINT DIVIDE OP 1 NOT EVEN NUMBERED REGISTER 
iF OVERFLOW, SET TO3 (0 OPERATION OP 1 NOT ODD NUMBERED REGISTER 
OU UNCHANGED NONE 





The subtract (SR) instruction subtracts the contents of the operand 2 register from the 
contents of the operand 1 register and places the difference in the operand 1 register. 


Explicit and Implicit Format: 






A OPERATION A OPERAND 


[symbol] 


When the actual subtraction takes place, the twos complement form of operand 2 is 
added to operand 1. The sign of the result is determined algebraically. 


Operational Considerations: 


= Any of the general registers can be used as operands 1 and 2. 


= This instruction can be used to clear a register by subtracting the content of the 
register from itself. 


= The subtraction is performed by converting the number in operand 2 (r2) into a 
signed twos complement binary number and then algebraically adding it to the 
value in operand 1 (r,). 


= The maximum fixed-point number that can be contained in a 32-bit register is 
2,147,483,647(23'—1); the minimum number is —2,147,483,648(—23'). For 
decimal numbers outside this range, an overflow condition is produced. 


& = The contents of operand 2 (r.) are not changed by the subtract (SR) instruction. 
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Example: 
LABEL AOPERATIONA OPERAND 
| 10 16 
LM 5,6,HRS 
SR 44 
A 5, HRSOT 
M 4 RATE 
SR 5,6 
ST 5,FLWRD 
HRS DC F'kg' 
DEDUC DC F'2916' 
HRSOT DC F'3! 
RATE DC F'356' 
FLWRD DS F 
Register 4 after execution of first SR instruction: 
Registers 4 and 5 before execution of second SR instruction: 





Register 6 before and after execution of SR instruction: 






t 
0000 loo00 0000 | 0000 | 0000 | 1011 }0110 ;0100 


0! 






binary 


hex 
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& Registers 4 and 5 after execution of second SR instruction: 


0000 {0000 |0000 ;0000j 0000 10000 |0000 10000 0000/0000 0000 10000 0110 10101 


In this example, two full words (starting with the byte addressed by HRS and 
including the full word in DEDUC) are loaded into registers 5 and 6. The SR 
instruction clears register 4 to zeros and the content of HRSOT is added to the 
content of register 5. Register 5 now contains the standard 40 working hours per 
week plus any overtime hours. The content of RATE is multiplied by the even-odd 
register pair. The product replaces registers 4 and 5 as a double-word value. The 
content of register 6 is subtracted from register 5 (since the product is contained in 
one register) and the difference replaces register 5. Register 5 now contains one 
employee’s weekly net pay. The content of register 5 is then stored in FLWRD in 
main storage. 




















binary 


hex 
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10.33. SUBTRACT HALF WORD (SH) 


Possible Program Exceptions 


ff AODRESSING Wi PROTECTION 
CO DATA (INVALID SIGN/DIGIT) | [) SIGNIFICANCE 

(CJ DECIMAL DIVIDE @ SPECIFICATION: 

CO DECIMAL OVERFLOW NOT A FLOATING-POINT REGISTER 
0 execute OP 1 NOT ON HALF-WORD BOUNDARY 
C0 EXPONENT OVERFLOW OP 2 NOT ON HALF-WORD BOUNDARY 
(1) EXPONENT UNDERFLOW OP 2 NOT ON FULL-WORD BOUNDARY 
CO FIXED-POINT DIVIDE OP 2 NOT ON DOUBLE-WORD 


Wi FIxX€D-POINT OVERFLOW BOUNDARY ; 
C7 FLOATING-POINT DIVIDE OP 1 NOT EVEN NUMBERED REGISTER 


(0 oPERATION OP 1 NOT ODD NUMBERED REGISTER 
NONE 











OBJECT 
OPCODE FORMAT | INST. 












TYPE LGTH. 
(BYTES) 


Condition Codes 


if RESULT =0,SET TOO 
Mif RESULT <0, SETTO1 
Wir RESULT >0O, SET TO2 
WiF OVERFLOW, SET TO3 
[DI UNCHANGED 




















OOO OOOO 





The subtract half word (SH) instruction subtracts the contents of the half word in 
operand 2 from the contents of the operand 1 register. The difference replaces the 
operand 1 register. 


Explicit Format: 






A OPERATION A OPERAND 





[symbol] r, .d, (x, ,b,) 


Implicit Format: 









AOPERATION A 





LABEL OPERAND 


[symbol] 


Operand 2 is two bytes in length (a 16-bit signed integer) and is located in main 
storage. Before operand 2 is subtracted from operand 1, operand 2 is temporarily 
expanded to 32 bits by propagating the sign bit through the high order 16 bit 
positions. Then the twos complement of operand 2 is added to operand 1. The 
difference replaces the content of the operand 1 register. 
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eS Operational Considerations: 
= Any of the general registers (O through 15) can be used as operand 1. 


= Operand 2 must either be defined as a half word or aligned on a_ half-word 
boundary. 


= A fixed-point overflow condition can occur. 


= Execution of the SH instruction sets the condition code accordingly. 


Example: 

LABEL AOPERATIONA . OPERAND 

1 10 16 

SS SS st sec 
LA 5,2 
L 9 ,BADACTS 
CH 5, CODECD 
BE GDACTS 

& GDACTS SH 9, VALUE] 

ST 9, YTDACTS 

CODECD oC Ht2! 

BADACTS OC F'3! 

VALUE} dC H']! 

YTDACTS DS F 


Register 9 before execution of SH instruction: 






0000 10000 |0000 |0000 | 0000 | 0000 binary 





VALUE1 before and after execution of SH instruction: 


before expansion 
ee 


0000 | 0000 | 0000 ;0000} 0000 ;0000 | 0000 10001 


after expansion 





binary 





hex 
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Register 9 after execution of SH instruction: 


0000 10000 | 0000 ;0000} 0000 ;0000 } 0000 10010 


In this example, the decimal value 2 is loaded into register 5 and the content of 
BADACTS is loaded into register 9. Then the content of register 5 is compared to the 
half-word value of CODECD. Since an equal to condition exists, the condition code is 
set to 0. As a result, the following branch to the instruction labeled GDACTS takes 
place. There, the half word in VALUE1 is expanded to a 32-bit signed integer, and 
the twos complement form of VALUE1 is added to register 9. The difference occupies 
register 9 as a full-word value. Finally, the ST instruction stores the contents of 
register 9 in YTDACTS located in main storage. 














binary 


hex 
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11. Floating-Point Instructions 


11.1. INTRODUCTION 


The floating-point instruction set provides for loading, adding, subtracting, comparing, 
multiplying, dividing, storing, and sign control of short or long format floating-point 
operands. Four double-word floating-point registers are provided to accommodate 
storing and loading of results and operands. These registers are numbered O, 2, 4, 
and 6. The specification of any other register number results in a_ specification 
exception. For long format operands, the entire double-word register is involved in the 
operation. For short format operands, excluding the product in the short format 
multiple (ME) instruction, only the most significant word of the double-word register is 
involved in the operation. The least significant word remains unchanged. Separate 
@ instructions are provided for operations with long and short format operands. 


Each operand is treated as a floating-point number consisting of a biased exponent 
(characteristic) and a signed fraction (mantissa). The biased exponent is expressed in 
excess-64 binary notation; the fraction is expressed as a hexadecimal number having an 
arithmetic point to the left of the high-order digit. The quantity expressed by the full floating- 
point number is the product of the fraction and the number 16 raised to the power of the 
biased exponent minus 64 (fraction times 16 "~-64). 


A quantity may be represented with the greatest precision by a floating-point number 
of a given fraction length when the number is in a “normalized” form. A normalized 
floating-point number has a nonzero, high order hexadecimal fraction digit. 


An exponent overflow exception develops if, in the result of a _ floating-point 
instruction, the characteristic of the result exceeds 127 and the fraction of the result 
is not zero. An exponent underflow exception develops if the characteristic is less 
than zero and the fraction of the result is not zero. An exponent overflow exception 
causes a program interruption. An exponent underflow exception causes a program 
interruption if the exponent underflow mask bit of the current PSW is 1. 


A floating-point number having a zero characteristic, a zero fraction, and a positive 
(zero) sign is said to be a “true zero” number. 
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The floating-point instructions are available in RR and RX formats. Therefore, at least @ 
one of the operands is contained in one of the floating-point registers. The other 

operand is located in the same or another register or in main storage. Each main 

storage address may be specified as relative or absolute. 


To increase the precision of certain computations, an additional least significant digit, 
the guard digit, is carried within the hardware in the intermediate result of the 
following operations: add-normalized, subtract-normalized, add-unnormalized, subtract- 
unnormalized, compare, halve, and multiply. In the execution of add-normalized, 
subtract-normalized, add-unnormalized, subtract-unnormalized, and compare 
instructions, when a right shift of the fraction is required to equalize two exponents, 
the last hexadecimal digit to be shifted out of the least significant digit position of the 
fraction is saved by the processor hardware as the guard digit. The shifted fraction, 
including the guard digit, is used in computing the intermediate result. In the halve 
instruction, the least significant bit position of the fraction is saved as the most 
significant bit position of the guard digit. In the long format multiply instruction, the 
guard digit is used in computing the intermediate result. In the halve instruction, the 
least significant bit position of the fraction is saved as the most significant bit position 
of the guard digit. In the long format multiply instruction, the guard digit is carried as 
the fifteenth digit of the fraction of the intermediate product. If the intermediate result 
is subsequently normalized, the guard digit is shifted left to become part of the 
normalized fraction. 


This section describes the operation of each floating-point instruction. The instructions 
are arranged in alphabetical order according to mnemonic operation code. Each 
description includes a list of the possible program exceptions and condition codes 
which may result. (See 2.1, 2.3, 2.6, 5.1, 5.2.12, Appendix C, and Appendix D.) 
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e AD 
11.2. ADD NORMALIZED, LONG FORMAT (AD) 


Possible Program Exceptions 


OPCODE OBJECT || gy ADDRESSING WI PROTECTION 
one pee [J DATA (INVALID SIGN/DIGIT) | I SIGNIFICANCE 
(Bytes) || (J) DECIMAL DIVIDE 8 SPECIFICATION: 
CO DECIMAL OVERFLOW NOT A FLOATING-POINT REGISTER 


C) execute OP 1 NOT ON HALF-WORD BOUNDARY 


EXPONENT OVERFLOW OP 2 NOT ON HALF-WORD BOUNDARY 
Condition Codes WEEXPONENT UNDERFLOW OP 2 NOT ON FULL-WORD BOUNDARY 


MB IF RESULT — 0, SET TO 0 CO] FIXED-POINT DIVIDE OP 2 NOT ON DOUBLE-WORD 

Wie REsuLT <0, SET TO1 CO FIXED-POINT OVERFLOW BOUNDARY 

@ iF RESULT >0, SET TO 2 C) FLOATING-POINT DIVIDE OP 1 NOT EVEN NUMBERED REGISTER 
OCF OVERFLOW, SET TO 3 CO oPpeRATION OP 1 NOT ODD NUMBERED REGISTER 
(J UNCHANGED NONE 





The add normalized, long format (AD) instruction causes the contents of the double 
word in storage specified by operand 2 to be algebraically added to the contents of 
the double-word register specified by operand 1 (r,). The sum is normalized and 
placed in the operand 1 (r,) register. 


Explicit Format: 







A OPERATION A OPERAND 






[symbol] 
ADLONG 


rd (x, ,b,) 
R4,50(R7,R8) 


Implicit Format: 







A OPERATION A OPERAND 


[symbol] 


ADLONG R4,FAM 


UP-8913 
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Operational Considerations: 


Floating-Point Addition 


Floating-point addition consists of exponent equalization and fraction addition. If 
the exponents are equal, the fractions are added to form an intermediate sum. If 
the exponents are unequal, the smaller exponent is subtracted from the larger. 
The difference indicates the number of hexadecimal digit shifts to the right to be 
performed on the fraction having the smaller exponent. Each hexadecimal digit 
shift to the right causes the exponent to be increased by 1. After equalization, 
the fractions are added to form an intermediate sum. 


A carry-over digit of the most significant hexadecimal digit position of the 
intermediate sum causes the intermediate sum to be shifted right one digit 
position and the exponent to be increased by 1. If an exponent overflow condition 
occurs, the resultant floating-point number consists of a normalized and correct 
fraction, a correct sign, and an exponent which is 128 less than the correct 
value. 


Normalization 


The intermediate sum is composed of 14 hexadecimal digits, a guard digit, and a 
possible carry-over digit. If any most signficant digits of the intermediate sum are 
zero, the fraction including the guard digit is shifted left to form a normalized 
fraction. Vacated least significant digit positions are zero-filled, and the exponent 
is reduced by the number of shifts. If normalization is unnecessary, the guard 
digit is lost. 


Exponent Underflow 


lf normalization causes the exponent to become less than zero, an exponent 
underflow condition results. If the exponent underflow mask bit (38) of the 
current program status word (PSW) is 1, the resultant floating-point number has 
a correct and normalized fraction, a correct sign, and an exponent which is 128 
more than the current value. If the exponent underflow mask of the current PSW 
is zero, the result is a true zero. 


Zero Result 


If the intermediate sum, including the guard digit, is zero, a significance exception 
exists. If the significance mask bit (39) of the current PSW is 1, the result is not 
normalized and the exponent remains unchanged. If the significance mask bit of 
the current PSW is zero and the intermediate sum is zero, the result is made a 
true zero. Exponent underflow cannot occur for a zero fraction. 


The sign of an arithmetic result is determined algebraically. The sign of a result 
with a zero fraction is always positive. 
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Example: 
LABEL AOPERATIONA OPERAND 
1 10 16 
ADLONG AD RA, FAM 
FAM oc D'1¢g' 


Before execution of the add normalized, long format (AD) instruction, if we 
assume a value of +50 in R4, the contents of R4 and storage area FAM will be: 


R4 before execution: 


EREIES Saree ES eee RE 


FAM before and after execution: 


PRES REM EREI ES se eae ae 


R4 after execution: 


eae ee Poe eee eee ee ear? ye 
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11.3. ADD NORMALIZED, LONG FORMAT (ADR) 


OBJECT 
OPCODE FORMAT 
Pavem [vex] 









(J ADDRESSING CO PROTECTION 

(1 DATA (INVALID SIGN/DIGIT)| [J SIGNIFICANCE 

(CD DECIMAL DIVIDE WB SPECIFICATION: 

CO DECIMAL OVERFLOW NOT A FLOATING-POINT REGISTER 
(1) execute OP 1 NOT ON HALF-WORD BOUNDARY 


INST. 
LGTH. 
(BYTES) 






Condition Codes 


Mir RESULT = 0,SET TOO 


BB EXPONENT OVERFLOW OP 2 NOT ON HALF-WORD BOUNDARY 
EXPONENT UNDERFLOW OP 2 NOT ON FULL-WORD BOUNDARY 
DD FIXED-POINT DIVIDE OP 2 NOT ON DOUBLE-WORD 


OD FIXED-POINT OVERFLOW BOUNDARY 
(1 FLOATING-POINT DIVIDE OP 1 NOT EVEN NUMBERED REGISTER 


oP 1 NOT ODD NUMBERED REGISTER 
NONE 


@ ir REsuLT <o,SETTO1 
@ if RESULT >0, SET TO2 
OIF OVERFLOW, SET TO 3 
(J UNCHANGED 


D0 OPERATION 





The add normalized, long format (ADR) instruction causes the contents of the double- 
word register specified by operand 2 (r.) to be algebraically added to the contents of 
the double-word register specified by operand 1 (r,). The sum is normalized and 
placed in the operand 1 (r,) register. 





Explicit and Implicit Format: 







A OPERATION A OPERAND 






[symbol] 


ADLONG R4,R6 


Operational Considerations: 
= Floating-Point Addition 


Floating-point addition consists of exponent equalization and fraction addition. If 
the exponents are equal, the fractions are added to form an intermediate sum. If 
the exponents are unequal, the smaller exponent is subtracted from the larger. 
The difference indicates the number of hexadecimal digit shifts to the right to be 
performed on the fraction having a smaller exponent. Each hexadecimal digit shift 
to the right causes the exponent to be increased by 1. After equalization, the 
fractions are added to form an intermediate sum. 
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A carry-over digit of the most significant hexadecimal digit position of the 
intermediate sum causes the intermediate sum to be shifted right one digit 
position and the exponent to be increased by 1. If an exponent overflow condition 
occurs, the resultant floating-point number consists of a normalized and correct 
fraction, a correct sign, and an exponent which is 128 less than the correct 
value. 


a Normalization 


The intermediate sum is composed of 14 hexadecimal digits, a guard digit, and a 
possible carry-over digit. If any most significant digits of the intermediate sum are 
zero, the fraction including the guard digit is shifted left to form a normalized 
fraction. Vacated least significant digit positions are zero-filled, and the exponent 
is reduced by the number of shifts. If normalization is unnecessary, the guard 
digit is lost. 


= = Exponent Underflow 


lf normalization causes the exponent to become less than zero, an exponent 
underflow condition results. If the exponent underflow mask bit (38) of the 
current program status word (PSW) is 1, the resultant floating-point number has 
a correct and normalized fraction, a correct sign, and an exponent which is 128 
more than the correct value. If the exponent underflow mask of the current PSW 
is zero, the result is a true zero. 


a Zero Result 


If the intermediate sum, including the guard digit, is zero, a significance exception 
exists. If the significance mask bit (39) of the current PSW is 1, the result is not 
normalized and the exponent remains unchanged. If the significance mask bit of 
the current PSW is zero and the intermediate sum is zero, the result is made a 
true zero. Exponent underflow cannot occur for a zero fraction. 


= The sign of an arithmetic result is determined algebraically. The sign of a result 
with a zero fraction is always positive. 


Example: 
LABEL AOPERATIONA OPERAND 
! 10 16 





ADLONG ADR R4,R6 
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Before execution of the add normalized, long format (ADR) instruction, if we 
assume a value of +50 in R4 and +100 in R6, the contents of the R4 and R6 
will be: 





R4 before execution: 


R6 before and after execution: 


RECO REEAR SEER RAEI E SR 


R4 after execution: 
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11.4. ADD NORMALIZED, SHORT FORMAT (AE) 


Possible Program Exceptions 







































ee BM AODRESSING @ PROTECTION 
OPCODE FORMAT | INST. WE SIGNIFICANCE 
ee ne (1 DATA (INVALID SIGN/DIGIT) SIGNI c 
(BYTES) |] LJ DECIMAL DivIDE Wi SPECIFICATION: 


CJ DECIMAL OVERFLOW 

OC) execute 

EXPONENT OVERFLOW 
EXPONENT UNDERFLOW 
C] FIXED-POINT DIVIDE 

OC FIXED-POINT OVERFLOW 
(J FLOATING-POINT DIVIDE 
[J OPERATION 


NOT A FLOATING-POINT REGISTER 

OP 1 NOT ON HALF-WORD BOUNDARY 
OP 2 NOT ON HALF-WORD BOUNDARY 
OP 2 NOT ON FULL-WORD BOUNDARY 


OP 2 NOT ON DOUBLE-WORD 
BOUNDARY 


oP 1 NOT EVEN NUMBERED REGISTER 
OP 1 NOT OOD NUMBERED REGISTER 
NONE 


Condition Codes 


@ iF RESULT =0,SETTOO 


WF ResuLt <o,setTo1 
Mir RESULT >0o, SET TO2 
CIF OVERFLOW, SET TO3 
(] UNCHANGED 


OCO O8 OCG 





The add normalized, short format (AE) instruction causes the contents of the full word 
in storage specified by operand 2 to be algebraically added to the contents of a full 
word in the register specified by operand 1 (r,). The sum is normalized and placed in 
the full word in the operand 1 (r,) register. 


Explicit Format: 







A OPERATION A OPERAND 









[symbol] 
ADSHORT 


ry id, (x, sb, ) 
R4,50(R7,R8) 


Implicit Format: 








A OPERATION A OPERAND 


[symbol 


ADSHORT R4,FAM 
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Floating-Point Addition 





Floating-point addition consists of exponent equalization and fraction addition. If 
the exponents are equal, the fractions are added to form an intermediate sum. If 
the exponents are unequal, the smaller exponent is subtracted from the larger. 
The difference indicates the number of hexadecimal digit shifts to the right to be 
performed on the fraction having the smaller exponent. Each hexadecimal digit 
shift to the right causes the exponent to be increased by 1. After equalization, 
the fractions are added to form an intermediate sum. 


A carry-over of the most significant hexadecimal digit position of the intermediate 
sum causes the intermediate sum to be shifted right one digit position and the 
exponent to be increased by 1. If an exponent overflow condition occurs, the 
resultant floating-point number consists of a normalized and correct fraction, a 
correct sign, and an exponent which is 128 less than the correct value. 


Normalization 


The intermediate sum is composed of six hexadecimal digits, a guard digit, and a 
possible carry-over digit. If any most significant digits of the intermediate sum are 
zero, the fraction including the guard digit is shifted left to form a normalized 
fraction. Vacated least significant digit positions are zero-filled and the exponent 
is reduced by the number of shifts. If normalization is unnecessary, the guard 
digit is lost. 


Exponent Underflow 


If normalization causes the exponent to become less than zero, an exponent 
underflow condition results. If the exponent underflow mask bit (38) of the 
current program status word (PSW) is 1, the resultant floating-point number has 
a correct and normalized fraction, a correct sign, and an exponent which is 128 
more than the correct value. If the exponent underflow mask of the current PSW 
is zero, the result is a true zero. 


Zero Result 


If the intermediate sum, including the guard digit, is zero, a significance exception 
exists. If the significance mask bit (39) of the current PSW is 1, the result is not 
normalized and the exponent remains unchanged. If the significance mask bit of 
the current PSW is zero and the intermediate sum is zero, the result is made a 
true zero. Exponent underflow cannot occur for a zero fraction. 


The sign of an arithmetic result is determined algebraically. The sign of a result 
with a zero fraction is always positive. 
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Example: 
LABEL AOPERATIONA OPERAND 
1 10 16 
ADSHORT AE R4, FAM 
FAM DC E'16g' 


Before execution of the add normalized, short format (AE) instruction, if we 
assume a value of +50 in R4, the contents of R4 and storage area FAM will be: 


R4 before execution: 


FAM before and after execution: 


Erbe] +m 


R4 after execution: 
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11.5. ADD NORMALIZED, SHORT FORMAT (AER) 


Possible Program Exceptions 


AneabEe OBJECT || [ADDRESSING C1 PROTECTION 
Gesiugls cae [1 DATA (INVALID SIGN/DIGIT) | I SIGNIFICANCE 
(ayTes) || () DECIMAL DIVIDE SPECIFICATION: 
CL DECIMAL OVERFLOW NOT A FLOATING-POINT REGISTER 


OO execute OP 1 NOT ON HALF-WORD BOUNDARY 


Mi EXPONENT OVERFLOW OP 2 NOT ON HALF-WORD BOUNDARY 
Condition Codes Wi EXPONENT UNDERFLOW OP 2 NOT ON FULL-WORD BOUNDARY 


C1] FIXED-POINT DIVIDE OP 2 NOT ON DOUBLE-WORD 

@ ie Resuct <0, Set To 1 (] FIXED-POINT OVERFLOW BOUNDARY 

Bir RESULT >0, SET TO2 DD FLOATING-POINT DIVIDE OP 1 NOT EVEN NUMBERED REGISTER 
oO IF OVERFLOW, SET TO 3 Oo OPERATION OP 1 NOT ODD NUMBERED REGISTER 
CJ UNCHANGED NONE 


Wif RESULT = 0,SETTOO 





The add normalized, short format (AER) instruction causes the contents of a full word 
in the register specified by operand 2 (r.) to be algebraically added to a full word in 
the register specified by operand 1 (r,). The sum is normalized and placed in the 


operand 1 (r,) register. ® 





Explicit and Implicit Format: 






A OPERATION A OPERAND 






[symbol] 


ADSHORT R2,R4 


Operational Considerations: 
= Floating-Point Addition 


Floating-point addition consists of exponent equalization and fraction addition. If 
the exponents are equal, the fractions are added to form an intermediate sum. If 
the exponents are unequal, the smaller exponent is subtracted from the larger. 
The difference indicates the number of hexadecimal digit shifts to the right to be 
performed on the fraction having the smaller exponent. Each hexadecimal digit 
shift to the right causes the exponent to be increased by 1. After equalization, 
the fractions are added to form an intermediate sum. 
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A carry-over digit of the most significant hexadecimal digit position of the 

@ intermediate sum causes the intermediate sum to be shifted right one digit 
position and the exponent to be increased by 1. If an exponent overflow condition 
occurs, the resultant floating-point number consists of a normalized and correct 
fraction, a correct sign, and an exponent which is 128 less than the correct 
value. 


] Normalization 


The intermediate sum is composed of six hexadecimal digits, a guard digit, and a 
possible carry-over digit. If any most significant digits of the intermediate sum are 
zero, the fraction including the guard digit is shifted left to form a normalized 
fraction. Vacated least significant digit positions are zero-filled and the exponent 
is reduced by the number of shifts. If normalization is unnecessary, the guard 
digit is lost. 


= = ~=Exponent Underflow 


If normalization causes the exponent to become less than zero, an exponent 
underflow condition results. If the exponent underflow mask bit (38) of the 
current program status word (PSW) is 1, the resultant floating-point number has 
a correct and normalized fraction, a correct sign, and an exponent which is 128 
more than the correct value. If the exponent underflow mask of the current PSW 
is zero, the result is a true zero. 


@ @ Zero Result 


If the intermediate sum, including the guard digit, is zero, a significance exception 
exists. If the significance mask bit (39) of the current PSW is 1, the result is not 
normalized and the exponent remains unchanged. If the significance mask bit of 
the current PSW is zero and the intermediate sum is zero, the result is made a 
true zero. Exponent underflow cannot occur for a zero fraction. 


a The sign of an arithmetic result is determined algebraically. The sign of a result 
with a zero fraction is always positive. 





Example: 
LABEL AOPERATIONA OPERAND 
1 10 16 
ADSHORT AER R2,R4 
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Before execution of the add normalized, short format (AER) instruction, if we 
assume a value of +50 in R2 and +100 in R4, contents of R2 and R4 will be: 





R2 before execution: 


+50 


R2 after execution: 


PEA Eee EES ae. 


+150 
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11.6. ADD UNNORMALIZED, SHORT FORMAT (AU) 


Possible Program Exceptions 
OPCODE —_"__ MB ADDRESSING @ PROTECTION 
FORMAT | INST. 
TYPE Peri (CO DATA (INVALID SIGN/DIGIT)| [lB SIGNIFICANCE 


nee fren (BYTES) || (J) DECIMAL OlvIDE Ml SPECIFICATION: 
C] DECIMAL OVERFLOW NOT A FLOATING-POINT REGISTER 


MB EXPONENT OVERFLOW OP 2 NOT ON HALF-WORD BOUNDARY 
Condition Codes (0 EXPONENT UNDERFLOW OP 2 NOT ON FULL-WORD BOUNDARY 


@ if RESULT =0.SET TO 0 OO FIXED-POINT DIVIDE OP 2 NOT ON DOUBLE-WORD 

@ ir RESULT <0, SET TO1 O FIX€D-POINT OVERFLOW BOUNDARY 

Wir RESULT >0O, SET TO2 OJ FLOATING-POINT DIVIDE OP 1 NOT EVEN NUMBERED REGISTER 
Or OVERFLOW, SET TO 3 (CD OPERATION OP 1 NOT ODD NUMBERED REGISTER 
(J UNCHANGED NONE 





The add unnormalized, short format (AU) instruction causes the contents of the full 
word in storage specified by operand 2 to be algebraically added to the contents of a 
full word in the register specified by operand 1 (r,). The sum is placed in the operand 
1 (r,) register. 


Explicit Format: 











A OPERATION A 





LABEL OPERAND 


[symbol] 
ADSHORT 


Yr, dd, (x, ib, ) 
R4,50(R7,R8) 


Implicit Format: 







A OPERATION A OPERAND 


[symbol] 


ADSHORT R4,FAM 


Operational Consideration: 


a The execution of the AU instruction is identical to the AE instruction (11.4) 
except that the sum is not normalized before being placed in operand 1. 
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Example: 
LABEL AOPERATIONA OPERAND 
! 10 16 
ADSHORT AU R4 ,FAM 
FAM oc E'1g¢' 


Before execution of the add unnormalized, short format (AU) instruction, if we 
assume a value of +900 in R4, the contents of R4 and main storage area FAM 
will be: 


R4 before execution: 





eae eee ese), ee 
FAM before and after execution: 

Elta 
R4 after execution: 

Se ees ee 
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11.7. ADD UNNORMALIZED, SHORT FORMAT (AUR) 


Possible Program Exceptions 


[1] ADDRESSING (0 PROTECTION 

[CO DATA (INVALID SIGN/DIGIT) | HB SIGNIFICANCE 

(J DECIMAL DIVIDE @ sPEcIFICATION: 

(J DECIMAL OVERFLOW NOT A FLOATING-POINT REGISTER 
O execute OP 1 NOT ON HALF-WORD BOUNDARY 


OBJECT 
OPCODE FORMAT | INST. 


TYPE LGTH. 
(BYTES) 


Condition Codes 


W@ iF RESULT = 0, SET TOO 
Mir ResuLt <o,setto1 
Wir RESULT >0, SET TO2 
OF OVERFLOW, SET TO 3 
[CL] UNCHANGED 





Wl EXPONENT OVERFLOW OP 2 NOT ON HALF-WORD BOUNDARY 

C EXPONENT UNDERFLOW OP 2 NOT ON FULL-WORD BOUNDARY 

DO FIXED-POINT DIVIDE OP 2 NOT ON DOUBLE-WORD 

OC FIXED-POINT OVERFLOW BOUNDARY 

C0 FLOATING-POINT DIVIDE OP 1 NOT EVEN NUMBERED REGISTER 

(] oPERATION OP 1 NOT ODD NUMBERED REGISTER 
NONE 







The add unnormalized, short format (AUR) instruction causes the contents of a full 
word in the register specified by operand 2 (r2) to be algebraically added to a full 
word in the register specified by operand 1 (r,). The sum is placed in the operand 1 
(r,) register. 


Explicit and Implicit Format: 








A OPERATION A OPERAND 


[symbol] 


ADSHORT R2,R4 


Operational Consideration: 


= The execution of the AUR instruction is identical to the AER instruction (11.5), 
except that the sum is not normalized before being placed in operand 1. 


Example: 
LABEL AMOPERATIONA OPERAND 
1 10 16 





ADSHORT AUR R2,R4 
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Before execution of the add unnormalized, short format (AUR) instruction, if we 
assume a value of +900 in R2 and +100 in R4, the contents of R2 and R4 will & 


be: 


R2 before execution: 


+900 


R4 before and after execution: 


R2 after execution: 


+1000 
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11.8. ADD UNNORMALIZED, LONG FORMAT (AW) 


Possible Program Exceptions 


WW ADDRESSING @ PROTECTION 

(] DATA (INVALID SIGN/DIGIT) | I SIGNIFICANCE 

CJ DECIMAL DiviDEe @ SPECIFICATION: 

( DECIMAL OVERFLOW NOT A FLOATING-POINT REGISTER 
1 Execute OP 1 NOT ON HALF-WORD BOUNDARY 
OP 2 NOT ON HALF-WORD BOUNDARY 
OP 2 NOT ON FULL-WORD BOUNDARY 


OP 2 NOT ON DOUBLE-WORD 
BOUNDARY 


OP 1 NOT EVEN NUMBERED REGISTER 
OP 1 NOT ODD NUMBERED REGISTER 


OBJECT 
OPCODE FORMAT | INST. 


TYPE LGTH. 
MNEM. JHEX. (BYTES) 


Condition Codes 


WM if RESULT =0,SET TOO 
@ ir Resutt <0, set TO1 
Wir RESULT > 0, SET TO 2 
LJ 1F OVERFLOW, SET TO3 
CO UNCHANGED 





EXPONENT OVERFLOW 
C] ExPONENT UNDERFLOW 
OO FIXED-POINT DIVIDE 

O00 FIXED-POINT OVERFLOW 
[] FLOATING-POINT DIVIDE 
OC oPpERATION 






OOO sooo 


z 
fe) 
z 
m 





The add unnormalized, long format (AW) instruction causes the contents of a double 
word in storage specified by operand 2 to be algebraically added to the contents of 
the double word in the register specified by operand 1 (r,). The sum is placed in the 
double word in the register specified by operand 1 (r,). 


Explicit Format: 







AOPERATION A OPERAND 


[symbol] 
ADLONG 


rd, (x, ,b,) 
R4,50(R7,R8) 


Implicit Format: 







A OPERATION A OPERAND 


[symbol] 


ADLONG R4,FAM 


Operational Consideration: 


= The execution of the AW instruction is identical to the AD instruction (11.2) 
except that the sum is not normalized before being placed in operand 1 (r,). 
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Example: 
LABEL AOPERATIONA ~ OPERAND 
1 10 16 
ADLONG AW R4 FAM 
FAM bc D'1¢g' 


Before execution of the add unnormalized, long format (AW) instruction, if we 
assume a value of +900 in R4, the contents of R4 and storage area FAM will 
be: 


R4 before execution: 


Se ee ee ee ee ea 


FAM before and after execution: 


ERGs Re eee AEE ES ee 


R4 after execution: 


ERR ED EERE RS Cees ee 
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11.9. ADD UNNORMALIZED, LONG FORMAT (AWR) 


Possible Program Exceptions 


a a 
INST. 


[1] ADDRESSING (CJ PROTECTION 

[J DATA (INVALID SIGN/DIGIT)| MJ SIGNIFICANCE 

(CJ DECIMAL DivIDE MM SPECIFICATION: 

O DECIMAL OVERFLOW NOT A FLOATING-POINT REGISTER 

O EXECUTE OP 1 NOT ON HALF-WORD BOUNDARY 


LGTH. 
(BYTES) 


Condition Codes 





@ EXPONENT OVERFLOW OP 2 NOT ON HALF-WORD BOUNDARY 
(EXPONENT UNDERFLOW OP 2 NOT ON FULL-WORD BOUNDARY 
(1D FIXED-POINT DIVIDE OP 2 NOT ON DOUBLE-WORD 


(] FIXED-POINT OVERFLOW BOUNDARY 
C] FLOATING-POINT DIVIDE OP 1 NOT EVEN NUMBERED REGISTER 


(0 OPERATION OP 1 NOT OOD NUMBERED REGISTER 
NONE 





Mir RESULT = 0,SET TOO 
Wir RESULT <0, SET TO1 
@ ir RESULT >0, SET TO 2 
CIF OVERFLOW, SET TO 3 
CJ UNCHANGED 







The add unnormalized, long format (AWR) instruction causes the contents of the double- 
word register specified by operand 2 (r2) to be algebraically added to the double-word 
contents of operand 1 (r,). The sum is placed in the operand 1 (r,) register. 


Explicit and Implicit Format: 






A OPERATION A OPERAND 






[symbol] 


ADLONG R4,R6 


Operational Consideration: 


= The execution of the AWR instruction is identical to the ADR instruction (11.3) except 
that the sum is not normalized before being placed in operand 1 (r,). 


Example: 


LABEL AOPERATIONA OPERAND 
! 10 16 





ADLONG WR R4,R6 
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Before execution of the add unnormalized, long format (AWR) instruction, if we 
assume a value. of +900 in R4 and +100 in R6, the contents of R4 and R6 will be: 


R4 before execution: 


ERR E oe Ee See ee 


R6 before and after execution: 


ERGHER EA Ge EA Ere eee ees ese. 


R4 after execution: 


ERED RES Eee ee ee ee 
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11.10. COMPARE, LONG FORMAT (CD) 











OBJECT 










OPCODE ADDRESSING 










OD DECIMAL OVERFLOW 

(1) Execute 

CJ EXPONENT OVERFLOW 
C1 ExPONENT UNDERFLOW 
OC FIXED-POINT DIVIDE 

C1 FIXED-POINT OVERFLOW 


Condition Codes 


Bic op) = op2, set Too 
Wie op: <op2, set To1 







Possible Program Exceptions 


PROTECTION 





Nees ee C1] DATA (INVALID SIGN/DIGIT) | [] SIGNIFICANCE 
(BYTes) || CL] DECIMAL OIvIDE WB SPECIFICATION: 








CD 










NOT A FLOATING-POINT REGISTER 

OP 1 NOT ON HALF-WORD BOUNDARY 
OP 2 NOT ON HALF-WORD BOUNDARY 
OP 2 NOT ON FULL-WORD BOUNDARY 


OP 2 NOT ON DOUBLE-WORD 
BOUNDARY 


OP 1 NOT EVEN NUMBERED REGISTER 


(CD FLOATING-POINT DIVIDE 
OJ OPERATION 


Wir ort >op2, set To 2 
CIF OVERFLOW, SET TO 3 
(J UNCHANGED 











OP 1 NOT ODD NUMBERED REGISTER 
NONE 


OOO sooog8 





The compare, long format (CD) instruction causes the contents of a double word in the 
register specified by operand 1 (r,) to be algebraically compared with the contents of a 
double word in storage specified by operand 2. The condition code is set by this 
instruction. 


Explicit Format: 







A OPERATION A OPERAND 






[symbol] 


vr, d, (x, ib, ) 
COMPAR 


R2,50(R7,R9) 


Implicit Format: 







A OPERATION A OPERAND 


[symbol] 


COMPAR R2,FAM 
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Llexiin 
a Comparison is accomplished by the rules for normalized fieeepoint subtraction. The 
operands are equal when the intermediate sum, including the guard digit, is zero. 


= =§©Operands with zero fractions compare as equal even when their signs or exponents 
are different. 


= The condition code is set: 
— to zero when operand 1 equals operand 2; 
— to 1 when operand 1 is less than operand 2; and 
— to 2 when operand 1 is greater than operand 2. 


Code 3 is not used. 





Examples: 
LABEL AOPERATIONA OPERAND 
| 10 16 
COMPAR] CD R2,FAM3 
COMPAR2 CD R2,FAM32 
COMPAR3 CD R2 ,FAM33 
FAM3 dC ps3" 
FAM32 DC D'32! 
FAM33 DC D'33! 


Before execution of the compare, long format (CD) instruction, if we assume a value 
of +32 in R2, then: 


= Example 1 will set a condition code of 2. 
= Example 2 will set a condition code of zero. 


= Example 3 will set a condition code of 1. 
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11.11. COMPARE, LONG FORMAT (CDR). 


OBJECT || 7 ADDRESSING CO PROTECTION 






































OPCODE 
aaa Pee (0 DATA (INVALID SIGN/DIGIT) | [] SIGNIFICANCE 
HEX. (Bytes) || LJ DECIMAL Divide Wi SPECIFICATION: 










D) DECIMAL OVERFLOW 

(1 execute 

OJ EXPONENT OVERFLOW 
(]) EXPONENT UNDERFLOW 
(J FIXED-POINT DIVIDE 

C0 FIxXED-POINT OVERFLOW 
C) FLOATING-POINT DIVIDE 
(] OPERATION 


NOT A FLOATING-POINT REGISTER 

OP 1 NOT ON HALF-WORD BOUNDARY 
OP 2 NOT ON HALF-WORD BOUNDARY 
OP 2 NOT ON FULL-WORD BOUNDARY 


OP 2 NOT ON DOUBLE-WORD 
BOUNDARY 


OP 1 NOT EVEN NUMBERED REGISTER 
OP 1 NOT ODD NUMBERED REGISTER 
NONE 


Condition Codes 


Mir op! = op2,setT TOO 
Bie opi <op2,setto1 
Mic or) >or2, set To 2 
Cif OVERFLOW, SET TO 3 
(UNCHANGED 


OOO OOOO 


The compare, long format (CDR) instruction causes the contents of a double word in the 
register specified by operand 1 (r,) to be algebraically compared with the contents of a 


double word in the register specified by operand 2 (r.). The condition code is set by this 
instruction. 


Explicit and Implicit Format: 







A OPERATION A OPERAND 


[symbol] 


COMPAR R2,R6 


Operational Considerations: 


= Comparison is accomplished by the rules for normalized fixed-point subtraction. The 
operands are equal when the intermediate sum, including the guard digit, is zero. 


= Operands with zero fractions compare as equal even when their signs or exponents 
are different. 


= The condition code is set: 
— to zero when operand 1 equals operand 2; 
— to 1 when operand 1 is less than operand 2; and 
— to 2 when operand 1 is greater than operand 2. 


Code 3 is not used. 
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UP-8913 
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Examples: 

LABEL AOPERATIONA OPERAND 
1 10 16 

COMPAR] CDR R2,R6 

COMPAR2 CDR R2,R4 

COMPAR3 CDR R2,RD 


Before execution of the compare, long format (CDR) instruction, if we assume values 
of +32 in R2, +33 in R6, +32 in R4, and +0 in RO, then: 


= Example 1 will set a condition code of 1. 
= Example 2 will set a condition code of zero. 


= Example 3 will set a condition code of 2. 











UP-8913 SPERRY UNIVAC OS/3 11-27 
ASSEMBLER Updale C 





CE 


11.12. COMPARE, SHORT FORMAT (CE) 


Possible Program Exceptions 
FORMAT | INST. 
IGNIF 
TYPE LGTH. CI DATA (INVALID SIGN/DIGIT) | (J SIGNIFICANCE 


(BYTES) || LJ DECIMAL DIVIDE Mi SPECIFICATION: 


(1) DECIMAL OVERFLOW NOT A FLOATING-POINT REGISTER 
pee ad DO execute OP 1 NOT ON HALF-WORD BOUNDARY 
(C0 EXPONENT OVERFLOW 


OP 2 NOT ON HALF-WORD BOUNDARY 
OP 2 NOT ON FULL-WORD BOUNDARY 

Mir ori-or2,seT Too (0 FIXED-POINT DIVIDE OP 2 NOT ON DOUBLE-WORD 

Bir op! <op2, set TO1 DD FIXED-POINT OVERFLOW 

@ ie opt >op2, set TO 2 (1) FLOATING-POINT DIVIDE 


BOUNDARY 

OP 1 NOT EVEN NUMBERED REGISTER 
Dir OVERFLOW, SET TO3 (1 OPERATION 
CO UNCHANGED 


OP 1 NOT ODD NUMBERED REGISTER 
NONE 





g. 
O) 
O 
a 
a) 
O 
O 
O 


The compare, short format (CE) instruction causes the contents of a full word in the 
register specified by operand 1 (r,) to be algebraically compared with the contents of a full 
word in storage specified by operand 2. The condition code is set by this instruction. 


Explicit. Format: 






A OPERATION A OPERAND 







[symbol] 
COMPAR 


ry id, (x, ib, ) 
R2,50(R5,R7) 


Implicit Format: 







A OPERATION A OPERAND 





[symbol] 
COMPAR 


4 8p (XQ) 
R2,FAM 
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fheal il 
= Comparison is accomplished by the rules for normalized Seed-point subtraction. The 
operands are equal when the intermediate sum, including the guard digit, is zero. 
= Operands with zero fractions compare as equal even when their signs or exponents 
are different. 
# The condition code is set: 
— to zero when operand 1 equals operand 2; 
— to 1 when operand 1 is less than operand 2; and 
— to 2 when operand is greater than operand 2. 
Code 3 is not used. 
Examples: 
LABEL AOPERATIONA OPERAND 
] 10 16 
a ee 
COMPAR! CE R2 ,FAM3 
COMPAR2 CE R2,FAM32 
COMPAR3 CE R2 ,FAM33 
FAM3 DC Ets! 
FAM32 dC E'32' 
FAM33 DC E'33' 


Before execution of the compare, short format (CE) instructions, if we assume a value 
of +32 in R2, then: 


= Example 1 will set a condition code of 2. 
= Example 2 will set a condition code of zero. 


= Example 3 will set a condition code of 1. 
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11.13. COMPARE, SHORT FORMAT (CER) 


Possible Program Exceptions 


(1) ADDRESSING (CJ PROTECTION 

C0 DATA (INVALID SIGN/DIGIT)} [] SIGNIFICANCE 

CJ DECIMAL Div!DE @ SPECIFICATION: 

C1 DECIMAL OVERFLOW NOT A FLOATING-POINT REGISTER 
0 execute OP 1 NOT ON HALF-WORD BOUNDARY 
OP 2 NOT ON HALF-WORD BOUNDARY 
OP 2 NOT ON FULL-WORD BOUNDARY 


OP 2 NOT ON DOUBLE-WORD 
BOUNDARY 


OP 1 NOT EVEN NUMBERED REGISTER 
OP 1 NOT ODD NUMBERED REGISTER 
NONE 


OBJECT 
OPCODE FORMAT | INST. 


TYPE LGTH. 
(BYTES) 


Condition Codes 


Bi IF OPI = OP2, SET TOO 
WF ori <op2,seTTo1 
iF oP! > op2, SET TO 2 
CIF OVERFLOW, SET TO 3 
(J UNCHANGED 





C] EXPONENT OVERFLOW 
C] EXPONENT UNDERFLOW 
CJ FIXED-POINT DIVIDE 

(J FIXED-POINT OVERFLOW 
CJ FLOATING-POINT DIVIDE 
(1 OPERATION 







OOO OOOO 





The compare, short format (CER) instruction causes the full-word contents of the register 
specified by operand 1 (r,) to be algebraically compared with the contents of a full word in 
the register specified by operand 2 (r.). The condition code is set by this instruction. 


Explicit and Implicit Format: 







AOPERATION A OPERAND 


[symbol] 


COMPAR R4,R6 


Operational Considerations: 


= Comparison is accomplished by the rules for normalized fixed-point subtraction. The 
operands are equal when the intermediate sum, including the guard digit, is zero. 


= Operands with zero fractions compare as equal even when their signs or exponents 
are different. 


= The condition code is set: 
— to zero when operand 1 equals operand 2; 
— to 1 when operand 1 is less than operand 2; and 
— to 2 when operand 1 is greater than operand 2. 


Code 3 is not used. 








UP-8913 
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Examples: 
LABEL AOPERATIONA OPERAND 
1 10 16 
COMPAR] CER R4,RO 
COMPAR2 CER R4,R2 
COMPAR3 CER R4 ,R6 


Before execution of the compare, short format (CER) instructions, if we assume values 
of +32 in R4, +3 in RO, +32 in R2, and +33 in R6, then: 


# Example 1 will set a condition code of 2. 
= Example 2 will set a condition code of zero. 


a Example 3 will set a condition code of 1. 
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11.14. DIVIDE, LONG FORMAT (DD) 


ee 
OPCODE FORMAT | INST. 
TYPE LGTH. 


Possible Program Exceptions 


Hi 4ODRESSING WI PROTECTION 

(J DATA (INVALID SIGN/DIGIT) | [] SIGNIFICANCE 

(J DECIMAL Divide W@ SPECIFICATION: 

CJ DECIMAL OVERFLOW NOT A FLOATING-POINT REGISTER 
OC execute OP 1 NOT ON HALF-WORD BOUNDARY 


| mem. | HEX. (BYTES) 


Condition Codes 


CIF RESULT = 0, SET TOO 
Or Resutt <0, Set To1 
Citf RESULT > 0, SET TO 2 
DJF OVERFLOW, SET TO 3 
BB UNCHANGED 





EXPONENT OVERFLOW OP 2 NOT ON HALF-WORD BOUNDARY 

WEEXPONENT UNDERFLOW OP 2 NOT ON FULL-WORD BOUNDARY 

(0 FIXED-POINT DIVIDE OP 2 NOT ON DOUBLE-WORD 

DO FIxXED-POINT OVERFLOW BOUNDARY 

WB FLOATING-POINT DIVIDE OP 1 NOT EVEN NUMBERED REGISTER 

(1 oPpeRATION OP 1 NOT ODD NUMBERED REGISTER 
NONE 






The divide, long format (DD) instruction causes the double-word contents of the operand 1 
(r,) register to be divided by the contents of the double word in storage specified by 
operand 2. The normalized quotient is placed in the register specified by operand 1 (r,). 
Any remainder is not preserved. 


Explicit Format: 





A OPERATION A 







OPERAND 










[symbol] 
DIVLONG 


ry dy (x, ,b,) 
R4,33(R7,R10) 


Implicit Format: 







A OPERATION A OPERAND 


[symbol] 
DIVLONG 


Fla FAR 
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Operational Considerations: 





a Floating-point division consists of exponent subtraction and fraction division. The 
intermediate quotient exponent is obtained by subtracting the exponents of the two 
operands and increasing the difference by 64. 


= Both operands are normalized before division. Consequently, the intermediate 
quotient is correctly normalized or a right shift of one digit position may be required. 
The exponent of the intermediate result is increased by 1 if the shift is necessary. All 
operand 1 (r,) fraction digits are used in forming the quotient, even if the normalized 
operand 1 fraction is larger than the normalized operand 2 fraction. 


= ~§=lIf the final quotient exponent exceeds 127, an exponent overflow exception results. 
The quotient consists of the correct and normalized fraction, a correct sign, and an 
exponent which is 128 less than the correct value. 


= lf the final quotient exponent is less than zero, an exponent underflow condition 
exists. If the exponent underflow mask bit of the current PSW is 1, the quotient has a 
correct and normalized fraction, a correct sign, and an exponent which is 128 greater 
than the correct value. If the exponent underflow mask bit of the current PSW is zero, 
the result is made a true zero. Underflow does not apply to the intermediate result or 
the operands during normalization. An exponent underflow exception causes a 
program interrupt if the exponent underflow mask bit of the current PSW is 1. 





s Attempted division by a divisor with a zero fraction leaves the dividend unchanged, 
and a program exception for floating-point divide occurs. When division of a zero 
dividend is attempted, the quotient fraction is zero. The quotient sign and exponent 
are made zero and give a true zero result. No program exceptions occur. 





Example: 
LABEL AOPERATIONA OPERAND 
1 10 16 
DIVIDLG DD R4,FAM 
FAM DC D'S! 


Before execution of the divide, long format (DD) instruction, if we assume a value of 
+1000 in R4, the contents of R4 and storage area FAM will be: 


R4 before execution: 


Cee ee ee 
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i) FAM before and after execution: 


Coes aS ee ee 


R4 after execution: 


Ba ee eR 
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DDR 





11.15. DIVIDE, LONG FORMAT (DDR) 


ee 
OPCODE FORMAT | INST. 
TYPE LGTH. 


Possible Program Exceptions 


[J ADDRESSING (J PROTECTION 

(J DATA (INVALID SIGN/DIGIT) | [) SIGNIFICANCE 

C0 DECIMAL DiviDE QE SPECIFICATION: 

0 DECIMAL OVERFLOW NOT A FLOATING-POINT REGISTER 

OJ Execute OP 1 NOT ON HALF-WORD BOUNDARY 

Wi EXPONENT OVERFLOW OP 2 NOT ON HALF-WORD BOUNDARY 

Mi EXPONENT UNDERFLOW OP 2 NOT ON FULL-WORD BOUNDARY 

OC FIXED-POINT DIVIDE OP 2 NOT ON DOUBLE-WORD 

OO FIX€D-POINT OVERFLOW BOUNDARY 

i ELOATING-POINT DIVIDE OP 1 NOT EVEN NUMBERED REGISTER 

C oPpERATION OP 1 NOT ODD NUMBERED REGISTER 
NONE 


(BYTES) 





Condition Codes 


Cir RESULT = 0,SET TOO 
CJ iF RESULT <o, SET TO 1 
Oe RESULT >0O, SET TO 2 
CIF OVERFLOW, SET TO 3 
WW UNCHANGED 






The divide, long format (DDR) instruction causes the double-word contents of the operand 
1 (r,) register to be divided by the double-word contents of the operand 2 (r2) register. The 
normalized quotient is placed in the operand 1 (r,) register. Any remainder is not 
preserved. 





Explicit and Implicit Format: 







A OPERATION A OPERAND 


[symbol] 


DIVLONG R2,R6 


Operational Considerations: 


2 Floating-point division consists of exponent subtraction and fraction division. The 
intermediate quotient exponent is obtained by subtracting the exponents of the two 
operands and increasing the difference by 64. 


s Both operands are normalized before division. Consequently, the intermediate 
quotient is correctly normalized or a right shift or one digit position may be required. 
The exponent of the intermediate result is increased by 1 if the shift is necessary. All 
operand 1 (r,) fraction digits are used in forming the quotient even if the normalized 
operand 1 (r,) fraction is larger than the normalized operand 2 (r.) fraction. 


= = If the final quotient exponent exceeds 127, an exponent overflow results. The quotient 
consists of the correct and normalized fraction, a correct sign, and an exponent which 
is 128 less than the correct value. 
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a =lf the final quotient exponent is less than zero, an exponent underflow condition 
exists. If the exponent underflow mask bit of the current PSW is 1, the quotient has a 
correct and normalized fraction, a correct sign, and an exponent which is 128 greater 
than the correct value. If the exponent underflow mask bit of the current PSW is zero, 
the result is made a true zero. Underflow does not apply to the intermediate result or 
the operands during normalization. 


= Attempted division by a divisor with a zero fraction leaves the dividend unchanged, 
and a program exception for floating-point divide occurs. When division of a zero 
dividend is attempted, the quotient fraction is zero. The quotient sign and exponent 
are made zero and give a true zero result. No program exceptions occur. 





Example: 
LABEL AOPERATIONA OPERAND 
1 10 16 
DIVIDLG DDR R2,R6 


Before execution of the divide, long format (DDR) instruction, if we assume values of 
+1000 in R2 and +5 in R6, the contents of R2 and R6 will be: 


R2 before execution: 


Ao eee) ee ee ees ee eee 


R6 before and after execution: 


BEES Dee eee 


R2 after execution: 
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DE 





11.16. DIVIDE, SHORT FORMAT (DE) 


Benne "oo Wi ADDRESSING MB PROTECTION 
ube paeiee (J DATA (INVALID SIGN/DIGIT)| [] SIGNIFICANCE 
| Nem. |HEX. | (BYTES) || LJ] DECIMAL OlviDE W@W SPECIFICATION: 
NOT A FLOATING-POINT REGISTER 
OP 1 NOT ON HALF-WORD BOUNDARY 
OP 2 NOT ON HALF-WORD BOUNDARY 
OP 2 NOT ON FULL-WORD BOUNDARY 


OP 2 NOT ON DOUBLE-WORD 
BOUNDARY 


OP 1 NOT EVEN NUMBERED REGISTER 
OP 1 NOT ODD NUMBERED REGISTER 
NONE 


0 DECIMAL OVERFLOW 
OJ execute 


Mi EXPONENT OVERFLOW 
Condition Codes EXPONENT UNDERFLOW 


BUC RESULR Sacer toa (CL) FIXED-POINT DIVIDE 
Gir RESULT <O SETTO } DD FIXED-POINT OVERFLOW 


Cif RESULT >O, SET TO 2 Wi FLOATING-POINT DIVIDE 
CIF OVERFLOW, SET TO 3 CI oPERATION 
BB UNCHANGED 


OQOO0 O8008 





The divide, short format (DE) instruction causes the full-word contents of the operand 1 (r,) 
register to be divided by the full-word contents of a full word in storage specified by 
operand 2. The normalized quotient is placed in a full word in the operand 1 (r,) register. 
Any remainder is not preserved. @ 





Explicit Format: 











AOPERATION A OPERAND 





LABEL 






rd, (x, ,bo) 


DIVSHORT| DE R4,32(R8,R9) 


Implicit Format: 








AOPERATION A OPERAND 


DIVSHORT| DE 


Operational Considerations: 


= ~§=©6 Floating-point division consists of exponent subtraction and fraction division. The 
intermediate quotient exponent is obtained by subtracting the exponents of the two 
operands and increasing the difference by 64. @ 
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= Both operands are normalized before division. Consequently, the intermediate 
quotient is correctly normalized or a right shift of one digit position may be required. 
The exponent of the intermediate result is increased by 1 if the shift is necessary. All 
operand 1 (r,) fraction digits are used in forming the quotient even if the normalized 
operand 1 (r,) fraction is larger than the normalized operand 2 fraction. 


= §=lIf the final quotient exponent exceeds 127, an exponent overflow exception results. 
The quotient consists of the correct and normalized fraction, a correct sign, and an 
exponent which is 128 less than the correct value. 


a if the final quotient exponent is less than zero, an exponent underflow condition 
exists. If the exponent underflow mask bit of the current PSW is 1, the quotient has a 
correct and normalized fraction, a correct sign, and an exponent which is 128 greater 
than the correct value. If the exponent underflow mask bit of the current PSW is zero, 
the result is made a true zero. Underflow does not apply to the intermediate result or 
the operands during normalization. 


= Attempted division by a divisor with a zero fraction leaves the dividend unchanged 
and a program exception for floating-point divide occurs. When division of a zero 
dividend is attempted, the quotient fraction is zero. The quotient sign and exponent 
are made zero and give a true zero result. No program exceptions occur. 





Example: 
LABEL AOPERATIONA OPERAND 
1 10 16 
DIVIDESH DE R4,FAM 
FAM Dc ETS" 


Before execution of the divide, short format (DE) instruction, if we assume a value of 
+1000 in R4, the contents of R4 and storage area FAM will be: 


R4 before execution: 


FAM before and after execution: 


+1000 


+5 


R4 after execution: . 


c 1 8 +200 
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11.17. DIVIDE, SHORT FORMAT (DER) 


Possible Program Exceptions 


OPCODE OBJECT || (7 ADDRESSING Cl Pdoskerion 
pci dea (J DATA (INVALID SIGN/OIGIT)| [1] SIGNIFICANCE 
(Bytes) {| (J DECIMAL DIVIDE @ SPECIFICATION: 
0D DECIMAL OVERFLOW NOT A FLOATING-POINT REGISTER 


OJ execute OP 1 NOT ON HALF-WORD BOUNDARY 


WB EXPONENT OVERFLOW OP 2 NOT ON HALF-WORD BOUNDARY 
Condition Codes EXPONENT UNDERFLOW OP 2 NOT ON FULL-WORD BOUNDARY 


OC FIXED-POINT DIVIDE OP 2 NOT ON DOUBLE-WORD 

Phig nesucy <oserrot OJ FIXED-POINT OVERFLOW BOUNDARY ; 

Pic aesucr>o.ser rox Ml FLOATING-POINT DIVIDE OP 1 NOT EVEN NUMBERED REGISTER 
Cir OVERFLOW, SET TO3 CO OPERATION OP 1 NOT OOD NUMBERED REGISTER 
BB UNCHANGED NONE 


Clit RESULT = 0,SET TOO 





The divide, short format (DER) instruction causes the full-word contents of the operand 1 
(r;) register to be divided by the full-word contents of the operand 2 (r2) register. The 
normalized quotient is placed in a full word in the operand 1 (r,) register. Any remainder is 
not preserved. 





Explicit and Implicit Format: 







A OPERATION A OPERAND 
[symbol] 


DIVSHORT| DER R4,R6 


Operational Considerations: 


= Floating-point division consists of exponent subtraction and fraction division. The 
intermediate quotient exponent is obtained by subtracting the exponents of the two 
operands and increasing the difference by 64. 


.™ Both operands are normalized before division. Consequently, the intermediate 
quotient is correctly normalized or a right shift of one digit position may be required. 
The exponent of the intermediate result is increased by 1 if the shift is necessary. All 
operand 1 (r,) fraction digits are used in forming the quotient even if the normalized 
operand 1 (r,) fraction is larger than the normalized operand 2 (r.) fraction. 
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= if the final quotient exponent exceeds 127, an exponent overflow exception results. 


The quotient consists of the correct and normalized fraction, a correct sign, and an 
exponent which is 128 less than the correct value. 


If the final quotient exponent is less than zero, an exponent underflow condition 
exists. If the exponent underflow mask bit of the current PSW is 1, the quotient has a 
correct and normalized fraction, a correct sign, and an exponent which is 128 greater 
than the correct value. If the exponent underflow mask bit of the current PSW is zero, 
the result is made a true zero. Underflow does not apply to the intermediate result or 
the operands during normalization. 


Attempted division by a divisor with a zero fraction leaves the dividend unchanged 
and a program exception for floating-point divide occurs. When division of a zero 
dividend is attempted, the quotient fraction is zero. The quotient sign and exponent 
are made zero and give a true zero result. No program exceptions occur. 


Example: 


LABEL AOPERATIONA OPERAND 
1 10 16 





DIVIDESH DER R4,R6 


Before execution of the divide, short format (DER) instruction, if we assume values of 
+1000 in R4 and +5 in R6, the contents of R4 and R6 will be: 


R4 before execution: 


+1000 


R4 after execution: 


+200 


a eR Ee 
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11.18. HALVE, LONG FORMAT (HDR) 


Possible Program Exceptions 


[] ADDRESSING (J PROTECTION 

C DATA (INVALID SIGN/DIG!T) | (] SIGNIFICANCE 

(1) DECIMAL DIVIDE W SPECIFICATION: 

CF DECIMAL OVERFLOW NOT A FLOATING-POINT REGISTER 
0] Execute OP 1 NOT ON HALF-WORD BOUNDARY 


OBJECT 
OPCODE FORMAT | INST. 


TYPE LGTH. 


MNEM. (BYTES) 


Condition Codes 


Clif RESULT = 0, SET TOO 
Cif RESULT <o, SET TO1 
CIF RESULT >0, SET TO 2 
(OIF OVERFLOW, SET TO 3 
MB UNCHANGED 





0 EXPONENT OVERFLOW OP 2 NOT ON HALF-WORD BOUNDARY 
MB EXPONENT UNDERFLOW OP 2 NOT ON FULL-WORD BOUNDARY 
(CD FIXED-POINT DIVIDE OP 2 NOT ON DOUBLE-WORD 


O FIXED-POINT OVERFLOW BOUNDARY 
C] FLOATING-POINT DIVIDE OP 1 NOT EVEN NUMBERED REGISTER 


( oPERATION OP 1 NOT ODD NUMBERED REGISTER 
NONE 







The halve, long format (HDR) instruction causes the double-word contents of the operand 
2 (r2) register to be divided by 2. The normalized quotient is placed in the double-word 
operand 1 (r,) register. 





Explicit and Implicit Format: 







A OPERATION A OPERAND 


[symbol] 


HALVE R4,R6 


Operational Considerations: 


= The fraction of operand 2 (r2) is shifted right one bit position. The least significant bit 
of the fraction is placed into the most significant bit position of the guard digit, and 
the vacated fraction bit position is filled with a zero. The intermediate result is 
normalized and placed in the operand 1 (r,) location. 


= When normalization causes the exponent to become less than zero, an exponent’ 
underflow condition exists. If the exponent underflow mask bit of the current program 
status word (PSW) is 1, the exponent of the result is 128 greater than the correct 
value. If the exponent underflow mask bit of the current PSW is zero, the result is 
made true zero. 


= When the fraction of operand 2 (r2) is zero, the result is made a true zero, a 
normalization is not attempted, and a significance exception does not occur. 
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Example: 
LABEL AOPERATIONA OPERAND 
1 10 16 
HALF HDR R4,R6 


Before execution of the ha/ve, long format (HDR) instruction, if we assume values of 
+0 in R4 and +1000 in R6, the contents of R4 and R6 will be: 


R4 before execution: 


ERED ES Rees ee Ee ee eee 


R6 before and after execution: 


ESR ER Race Re RS Ree 


R4 after execution: 


eee eee ee oe See oe es 
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11.19. HALVE, SHORT FORMAT (HER) 


Possible Program Exceptions 


















eed ( ADDRESSING C0 PROTECTION 
OPCODE | FORMAT | INST. 
wre Kern (DATA (INVALID SIGN/DIGIT) | [] SIGNIFICANCE 
(Bytes) || LJ) DECIMAL DIVIDE WB SPECIFICATION: 


CJ DECIMAL OVERFLOW NOT A FLOATING-POINT REGISTER 

0 execute OP 1 NOT ON HALF-WORD BOUNDARY 

C] EXPONENT OVERFLOW OP 2 NOT ON HALF-WORD BOUNDARY 

W EXPONENT UNDERFLOW OP 2 NOT ON FULL-WORD BOUNDARY 

C] FIXED-POINT DIVIDE OP 2 NOT ON DOUBLE-WORD 

(0 FIXED-POINT OVERFLOW BOUNDARY 

(] FLOATING-POINT DIVIDE OP 1 NOT EVEN NUMBERED REGISTER 

(1 OPERATION OP 1 NOT ODD NUMBERED REGISTER 
NONE 


Condition Codes 


Clit RESULT =0,SETTOO 
Cif Resuct <o,settTo1 
Clif RESULT > 0, SET TO 2 
(JF OVERFLOW, SET TO 3 
BBUNCHANGED 





The halve, short format (HER) instruction causes the full-word contents of the operand 2 
(r2) register to be divided by 2. The normalized quotient is placed in the full word in the 
operand 1 (r,) register. 





Explicit and Implicit Format: 


AOPERATION A OPERAND 





Operational Considerations: 


= ~The fraction of operand 2 (r2) is shifted right one bit position. The least significant bit 
of the fraction is placed into the most significant bit position of the guard digit, and 
the vacated fraction bit position is filled with a zero. The intermediate result is 
normalized and placed in the operand 1 (r,) location. 


= When normalization causes the exponent to become less than zero, an exponent 
underflow condition exists. If the exponent underflow mask bit of the current program 
status word (PSW) is 1, the exponent of the result is 128 greater than the correct 


value. If the exponent underflow mask bit of the current PSW is zero, the result is 
made true zero. 


= When the fraction of operand 2 (r.) is zero, the result is made a true zero, 
normalization is not attempted, and a significance exception does not occur. 
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LABEL AOPERATIONA OPERAND 
1 10 16 
HALF HER R4 RE 


Before execution of the halve, short format (HER) instruction, if we assume values of 
+1000 in R4 and +0 in R6, the contents of R6 and R4 will be: 


R4 before execution: 


& 


R4 after execution: 


a 
[=] 
=] 
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11.20. LOAD COMPLEMENT, LONG FORMAT (LCDR) 











Possible Program Exceptions 
OPCODE OBJECT || [] ADDRESSING C) PROTECTION 
(oaee =a [0 DATA (INVALID SIGN/DIG!T) | [] SIGNIFICANCE 
| MNEM. |HEX, (eyes) |/ C) DECIMAL Divide Ml SPECIFICATION: 


0 DECIMAL OVERFLOW 
0 execute 






NOT A FLOATING-POINT REGISTER 

OP 1 NOT ON HALF-WORD BOUNDARY 
OP 2 NOT ON HALF-WORD BOUNDARY 
OP 2 NOT ON FULL-WORD BOUNDARY 


OP 2 NOT ON DOUBLE-WORD 
BOUNDARY 


OP 1 NOT EVEN NUMBERED REGISTER 
OP 1 NOT ODD NUMBERED REGISTER 
NONE 


Condition Codes 


W@ ir RESULT =0,SET TOO 
Mir REsutt <o, SET TO 1 
Wir RESULT >0o, SET TO2 
CJ1F OVERFLOW, SET TO 3 
DCO UNCHANGED 


OC] EXPONENT OVERFLOW 
C0 ExPONENT UNDERFLOW 
OF FIXED-POINT DIVIDE 

DD FIXED-POINT OVERFLOW 
DO FLOATING-POINT DIVIDE 
DD OPERATION 


OOO OOOOS 





The load complement, long format (LCDR) instruction causes the sign of the double-word 
contents of the operand 2 (r.) register to be reversed. The result is placed in the double 
word in the operand 1 (r,) register. 





Explicit and Implicit Format: 







A OPERATION A OPERAND 


[symbol] 


SIGN R6,R4 


Operational Considerations: 
= The exponent and fraction are not changed. 
gm The contents of operand 2 (r2) remain unchanged. 
= The condition code is set: 
— to zero if result is zero; 
— to 1 if result is less than zero; and 
— to 2 if result is greater than zero. 


Code 3 is not used. 
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Example: 
LABEL AOPERATIONA OPERAND 
1 10 16 
SIGN LCDR R6,R4 


Before execution of the /oad complement, long format (LCDR) instruction, if we 
assume values of +1000 in R4 and +0 in R6, the contents of R6 and R4 will be: 


R6 before execution: 


EER Re eRe ee 


R4 before and after execution: 


Bee Ree RS EEE ee ee 


R6 after execution: 


ERE Ey ee ee Eee 
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11.21. LOAD COMPLEMENT, SHORT FORMAT (LCER) 


eC al 
OPCODE FORMAT | INST. 
TYPE LGTH. 


Possible Program Exceptions 


[ ADDRESSING C] PROTECTION 

CJ DATA (INVALID SIGN/DIGIT)| [] SIGNIFICANCE 

( DECIMAL DIVIDE @ SPECIFICATION: 

OC DecIMAL OVERFLOW NOT A FLOATING-POINT REGISTER 

CO execute OP 1 NOT ON HALF-WORD BOUNDARY 
(EXPONENT OVERFLOW OP 2 NOT ON HALF-WORD BOUNDARY 
(CO EXPONENT UNDERFLOW OP 2 NOT ON FULL-WORD BOUNDARY 
(CO FIXED-POINT DIVIDE OP 2 NOT ON DOUBLE-WORD 


0 FIXED-POINT OVERFLOW BOUNDARY 
CO FLOATING-POINT DIVIDE OP 1 NOT EVEN NUMBERED REGISTER 


C1 OPERATION OP 1 NOT ODD NUMBERED REGISTER 
NONE 


(BYTES) 


LCER ee a 
Condition Codes 


WF RESULT = 0, SET TOO 
Wir Resutt <o, Set To 1 
Wie RESULT >0, SET TO2 
CJIF OVERFLOW, SET TO 3 
(1 UNCHANGED 









The load complement, short format (LCER) instruction causes the sign of the full-word 
contents of the operand 2 (rz) register to be reversed. The result is placed in the full word 
in the operand 1 (r,) register. 





Explicit and Implicit Format: 


A OPERATION A OPERAND 





Operational Considerations: 
= The exponent and fraction are not changed. 
= The contents of operand 2 (rz) remain unchanged. 
= The condition code is set: 
— to zero if result is zero; 
— to 1 if result is less than 0; and 
— to 2 if result is greater than zero. 


Code 3 is not used. 
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Example: 
LABEL AOPERATIONA OPERAND 
1 10 16 
SIGN LCER R6,R4 


Before execution of the /oad complement, short format (LCER) instruction, if we 
assume values of +1000 in R4 and +0 in R6, the contents of R6 and R4 will be: 


R6 before execution: 


R4 before and after execution: 


3 


R6 after execution: 
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11.22. LOAD, LONG FORMAT (LD) 


Possible Program Exceptions 


@ ADDRESSING Wi PROTECTION 

(J DATA (INVALID SIGN/DIGIT)| [] SIGNIFICANCE 

(1 DECIMAL DivIDE @ SPECIFICATION: 

OJ DECIMAL OVERFLOW NOT A FLOATING-POINT REGISTER 
O execute OP 1 NOT ON HALF-WORD BOUNDARY 
(J EXPONENT OVERFLOW OP 2 NOT ON HALF-WORD BOUNDARY 
0D EXPONENT UNDERFLOW OP 2 NOT ON FULL-WORD BOUNDARY 
CD FIXED-POINT DIVIDE OP 2 NOT ON DOUBLE-WORD 


CO FIXED-POINT OVERFLOW BOUNDARY 
(0 FLOATING-POINT DIVIDE OP 1 NOT EVEN NUMBERED REGISTER 


1 oPERATION OP 1 NOT ODD NUMBERED REGISTER 
NONE 









OBJECT 
OPCODE FORMAT | INST. 
TYPE LGTH. 

HEX. (BYTES) 


Condition Codes 


OF RESULT = 0, SET TOO 
Cif RESULT <0, SET TO1 
Die RESULT > 0, SET TO 2 
CJiF OVERFLOW, SET TO 3 
BE UNCHANGED 




































OOU SOO0O8 





The /oad, long format (LD) instruction causes the contents of a double word in storage 
specified by operand 2 to be placed in the double word in the operand 1 (r,) register. 


Explicit Format: 







A OPERATION A OPERAND 


[symbol] 
LOAD 


R4,33(R8,R9) 


Implicit Format: 


AOPERATION A OPERAND 





Operational Consideration: 


= The contents of operand 2 remain unchanged. 
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& Example: 
LABEL AOPERATIONA OPERAND 
1 10 16 
LOAD LD R4 FAM 
FAM oc D'156' 


Before execution of the /oad, long format (LD) instruction, if we assume a value of +0 
in R4, the contents of R4 and main storage area FAM will be: 


R4 before execution: 


RRR ES ES ES eee ee 


FAM before and after execution: 


EAE SER ES Eee Eee eee 


R4 after execution: 


e ERE eae Re Re ec 
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11.23. LOAD, LONG FORMAT (LDR) 


Possible Program Exceptions 


OPCODE OBJECT || [] ADDRESSING CO PROTECTION 
=a bet (J DATA (INVALID SIGN/DIGIT) | [] SIGNIFICANCE 
| mNEM. | HEX. (Bytes) || DJ) OECIMAL DIVIDE SPECIFICATION: 


CJ DECIMAL OVERFLOW NOT A FLOATING-POINT REGISTER 
0 execute OP 1 NOT ON HALF-WORD BOUNDARY 


C0 EXPONENT OVERFLOW OP 2 NOT ON HALF-WORD BOUNDARY 
C) EXPONENT UNDERFLOW OP 2 NOT ON FULL-WORD BOUNDARY 
PIE REGULP SG SEraOG OC FIXED-POINT DIVIDE OP 2 NOT ON DOUBLE-WORD 
Clir RESULT <0, SET TO1 O) FIXED-POINT OVERFLOW BOUNDARY 
Pie accuLe So eertos C FLOATING-POINT DIVIDE OP 1 NOT EVEN NUMBERED REGISTER 
Or OVERFLOW, SET TO3 CO oPERATION OP 1 NOT OOD NUMBERED REGISTER 
BB UNCHANGED NONE 





The /oad, long format (LDR) instruction causes the contents of the double word in the 
operand 2 (r,) register to be placed in the double word in the operand 1 (r,) register. 


Explicit and Implicit Format: 





A OPERATION A OPERAND 





Operational Consideration: 


= The contents of operand 2 (r2) remain unchanged. 


Example: 
LABEL AOPERAT IONA OPERAND 
1 10 16 





LOAD LDR R6,R4 
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& Before execution of the /oad, long format (LDR) instruction, if we assume values of 
+150 in R4 and +0 in R6, the contents of R6 and R4 will be: 


R6 before execution: 


RSPR ee ee ERS a ae 


R4 before and after execution: 


ESRA Ee Cee ES Eee eee ee 


R6 after execution: 
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LE 





11.24. LOAD, SHORT FORMAT (LE) 


Possible Program Exceptions 


@ ADDRESSING W@ PROTECTION 
(1 DATA (INVALID SIGN/DIGIT) | [] SIGNIFICANCE 

(C0 DECIMAL DiviDE WW SPECIFICATION: 

OC DECIMAL OVERFLOW NOT A FLOATING-POINT REGISTER 
O execute OP 1 NOT ON HALF-WORD BOUNDARY 
(C0 €xPONENT OVERFLOW OP 2 NOT ON HALF-WORD BOUNDARY 
C0 EXPONENT UNDERFLOW OP 2 NOT ON FULL-WORD BOUNDARY 
(C FIXED-POINT DIVIDE OP 2 NOT ON DOUBLE-WORD 


0 FIXED-POINT OVERFLOW BOUNDARY 
C] FLOATING-POINT DIVIDE OP 1 NOT EVEN NUMBERED REGISTER 


C1 oPERATION OP 1 NOT OOD NUMBERED REGISTER 
NONE 













OBJECT 
OPCODE FORMAT | INST. 













TYPE LGTH. 
(BYTES) 


Condition Codes 


Clif RESULT = 0, SET TOO 
Olir RESULT <o, SET TO1 
CF RESULT >0O, SET TO 2 
CJ1F OVERFLOW, SET TO 3 
MM UNCHANGED 























OOO OS8O0O8 





The /oad, short format (LE) instruction causes the contents of a full word in storage 
specified by operand 2 to be placed in a full word in the operand 1 (r,) register. 


Expicit Format: 










A OPERATION A 





LABEL OPERAND 






rd, (x, ,b,) 


LOAD R6,33(R8,R9) 


Implicit Format: 


LABEL AOPERATIONA OPERAND 





Operational Consideration: 


= The contents of operand 2 remain unchanged. 
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i ne 


@ Example: 





LABEL AOPERATIONA OPERAND 
| 10 16 

LOAD LE R6,FAM 

FAM DC E'156' 


Before execution of the /oad, short format (LE) instruction, if we assume a value of +0 
in R6, the contents of R6 and main storage area FAM will be: 


R6 before execution: 


& 


FAM before and after execution: 


R6 after execution: 
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LER 





11.25. LOAD, SHORT FORMAT (LER) 


Possible Program Exceptions 


[1] ADDRESSING (] PROTECTION 



















OBJECT 





















OPCODE 
rel eox oes C0 DATA (INVALID SIGN/DIGIT)| 1] SIGNIFICANCE 
T wnem. [HEX, (Bytes) || D) DECIMAL DivIDE Wi SPECIFICATION: 










DJ DECIMAL OVERFLOW 

(J execute 

(J EXPONENT OVERFLOW 
C EXPONENT UNDERFLOW 
OJ FIXED-POINT DIVIDE 

(C) FIxXED-POINT OVERFLOW 
(J FLOATING-POINT DIVIDE 
(0 OPERATION 


NOT A FLOATING-POINT REGISTER 

OP 1 NOT ON HALF-WORD BOUNDARY 
OP 2 NOT ON HALF-WORD BOUNDARY 
OP 2 NOT ON FULL-WORD BOUNDARY 


OP 2 NOT ON DOUBLE-WORD 
BOUNDARY 


oP 1 NOT EVEN NUMBERED REGISTER 
OP 1 NOT ODD NUMBERED REGISTER 
NONE 


| ten jae | vn | 2 | 
Condition Codes 


OIF RESULT = 0, SET TOO 
OF RESULT <0, SET TO1 
Cite RESULT >0, SET TO 2 
CIF OVERFLOW, SET TO 3 
GE UNCHANGED 







OOO OOOO 


The /oad, short format (LER) instruction causes the contents of a full word in the operand 
2 (r2) register to be placed in a full word in the operand 1 (r,) register. 


Explicit and Implicit Format: 








AOPERATION A OPERAND 


[symbol] 


LOAD R6,R4 


Operational Consideration: 


= The contents of operand 2 (r.) remain unchanged. 


Example: 
LABEL AOPERATIONA OPERAND 
1 10 16 





LOAD LER R6,R4 
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Before execution of the /oad, short format (LER) instruction, if we assume values of 
+150 in R4 and +0 in R6, the contents of R6 and R4 will be: 


R6 before execution: 


R6 after execution: 
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11.26. LOAD NEGATIVE, LONG FORMAT (LNDR) 


Possible Program Exceptions 
ae 
ADDRESSING CJ PROTECTION 
OPCODE FORMAT | INST. OC 
pati conte CO DATA UNVALID SIGN/DIGIT) | [] SIGNIFICANCE 


(Bytes) || (J DECIMAL DiviDE @ SPECIFICATION: 

NOT A FLOATING-POINT REGISTER 
OP 1 NOT ON HALF-WORD BOUNDARY 
OP 2 NOT ON HALF-WORD BOUNDARY 
OP 2 NOT ON FULL-WORD BOUNDARY 


OP 2 NOT ON DOUBLE-WORD 
BOUNDARY 


OP 1 NOT EVEN NUMBERED REGISTER 
OP 1 NOT ODD NUMBERED REGISTER 


0 DECIMAL OVERFLOW 
OJ execute 


CJ EXPONENT OVERFLOW 
(0 EXPONENT UNDERFLOW 
M@ iF RESULT = 0, SET TOO ELSE Or CINT BIvIDE 
Bir RESULT <0, SETTO1 OC FIXED-POINT OVERFLOW 
Coir RESULT > 0, SET TO2 [LD FLOATING-POINT DIVIDE 


Cif OVERFLOW, SET TO 3 (0 OPERATION 
(J UNCHANGED 


a 
O 
O 
O 
O 
O 
O 
O 


NONE 





The /oad negative, long format (LNDR) instruction causes the sign of the double word in 
the operand 2 (r,) register to be made negative. The result is placed in the double-word 
register specified by operand 1 (r,). 





Explicit and Implicit Format: 







A OPERATION A OPERAND 


[symbol] 


LOAD R2,R6 


Operational Considerations: 
= Operand 2 (r.) is made negative even if the fraction is zero. 
= The exponent and fraction are not changed. 
a The contents of operand 2 (r.) remain unchanged. 
= The condition code is set: 
— to zero if result is zero; and 
— to 1 if result is less than zero. 


Codes 2 and 3 are not used. 
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@ Example: 
LABEL AOPERATIONA OPERAND 
1 10 16 
LOAD LNDR R2,R6 


Before execution of the /oad negative, long format (LNDR) instruction, if we assume 
values of +150 in R6 and +0 in R2, the contents of R2 and R6 will be: 


R2 before execution: 


eo PN eae a | a co | ae | to 


R6 before and after execution: 


Ear Ee Ee 


R2 after execution: 


@ Pires CES See ee 
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11.27. LOAD NEGATIVE, SHORT FORMAT (LNER) 


OBJECT || > ADDRESSING CO PROTECTION 
ROBE eed CO DATA INVALID SIGN/DIGIT) | C) SIGNIFICANCE 
(BYTES) Oo DECIMAL DIVIDE | SPECIFICATION: 
0 DECIMAL OVERFLOW NOT A FLOATING-POINT REGISTER 


LNER Pai} mr | 2 | C) Execute OP 1 NOT ON HALF-WORD BOUNDARY 
0 EXPONENT OVERFLOW OP 2 NOT ON HALF-WORD BOUNDARY 
Condition Codes 


OC EXPONENT UNDERFLOW OP 2 NOT ON FULL-WORD BOUNDARY 
Micncsuceoeerioe OC FIXED-POINT DIVIDE OP 2 NOT ON DOUBLE-WORD 
Wir RESULT <0, SETTO1 DD F1XED-POINT OVERFLOW BOUNDARY 
CIF RESULT >0, SET TO2 


C] FLOATING-POINT DIVIDE OP 1 NOT EVEN NUMBERED REGISTER 
CIIF OVERFLOW, SET TO 3 OC OPERATION oP 1 NOT ODD NUMBERED REGISTER 
CT) UNCHANGED 


NONE 














OPCODE | FORMAT 





The /oad negative, short format (LNER) instruction causes the sign of a full word in the 
operand 2 (r.) register to be made negative. The result is placed in a full word in the 
register specified by operand 1 (r,). 


Explicit and Implicit Format: 





A OPERATION A OPERAND 





Operational Considerations: 
= Operand 2 (r.) is made negative even if the fraction is zero. 
= The exponent and fraction are not changed. 
= The contents of operand 2 (r.) remain unchanged. 
= ~The condition code is set: 
— to zero if result is zero; and 
— to 1 if result is less than zero. 


Codes 2 and 3 are not used. 
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Example: 
LABEL AOPERATIONA OPERAND 
] 10 16 
LOADNEG LNER R6,R4 


Before execution of the /oad negative, short format (LNER) instruction, if we assume. 
values of +150 in R4 and +0 in R6, the contents of R6 and R4 will be: 


R6 before execution: 


S 


R4 before and after execution: 


R6 after execution: 
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11.28. LOAD POSITIVE, LONG FORMAT (LPDR) 


orpcopE | format er ( ADDRESSING C PROTECTION 
eps | eT (1) DATA (INVALID SIGN/DIGIT) | [] SIGNIFICANCE 
MNEM. HEX, (Bytes) || () DECIMAL DIVIDE Wi SPECIFICATION: 
C2 DECIMAL OVERFLOW NOT A FLOATING-POINT REGISTER 


CJ Execute OP 1 NOT ON HALF-WORD BOUNDARY 


OO EXPONENT OVERFLOW OP 2 NOT ON HALF-WORD BOUNDARY 
Condition Codes C) EXPONENT UNDERFLOW OP 2 NOT ON FULL-WORD BOUNDARY 


Mie nesucas0 ey 100 C] FIXED-POINT DIVIDE OP 2 NOT ON DOUBLE-WORD 
Or ResuLt <0, SET TO1 (C0 FIx€D-POINT OVERFLOW BOUNDARY 

; oO ING-POINT DIVIDE OP 1 NOT EVEN NUMBERED REGISTER 
Gif RESULT >0, SET TO 2 FLOAT 


CF OVERFLOW, SET TO 3 Cl oPpERATION OP 1 NOT ODD NUMBERED REGISTER 
[CJ UNCHANGED NONE 





The /oad positive, long format (LPDR) instruction causes the sign of the double word in the 
operand 2 (r.) register to be positive, and the result is placed in the double word of the 
operand 1 (r,) register. 


Explicit and Implicit Format: 








A OPERATION A OPERAND 


[symbol] 


LOADN R4,R6 


Operational Considerations: 
= The exponent and fraction are not changed. 
= The contents of operand 2 (r2) remain unchanged. 
ws The condition code is set: 
— to zero if result is zero; and 
— to 2 if result is greater than zero. 


Codes 1 and 3 are not used. 
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Example: 
LABEL AOPERAT IONS OPERAND 
| 10 16 
LOADPOS LPDR R6,R4 


Before execution of the /oad positive, long format (LPDR) instruction, if we assume 
value of —150 in R4 and +0 in R6, the contents of R6 and R4 will be: 


R6 before execution: ™ 


Pee eee |e fe ee] eee ees oe ee 


R4 before and after execution: 


sas] 9 oe yeh fe coal [teat | orl oJ 


R6 after execution: 


ARES ERE Ee Eee Ee cE 
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11.29. LOAD POSITIVE, SHORT FORMAT (LPER) 


Possible Program Exceptions 

































ee (] ADDRESSING CJ) PROTECTION 
OPCODE FORMAT | INST. 
TYPE LGTH. (0 DATA (INVALID SIGN/DIGIT) | (] SIGNIFICANCE 
MNEM. ieytes) || DJ) DECIMAL DIVIDE W@W SPECIFICATION: 










0 DECIMAL OVERFLOW 

OD Execute 

(0 EXPONENT OVERFLOW 
0 ExPONENT UNDERFLOW 
(1 FIXED-POINT DIVIDE 

CJ FIxXED-POINT OVERFLOW 
C0 FLOATING-POINT DIVIDE 
(J OPERATION 


NOT A FLOATING-POINT REGISTER 

OP 1 NOT ON HALF-WORD BOUNDARY 
OP 2 NOT ON HALF-WORD BOUNDARY 
OP 2 NOT ON FULL-WORD BOUNDARY 


OP 2 NOT ON DOUBLE-WORD 
BOUNDARY 


OP 1 NOT EVEN NUMBERED REGISTER 
OP 1 NOT ODD NUMBERED REGISTER 
NONE 


iren [so | am | 2 
Condition Codes 


@ iF RESULT = 0,SET TOO 
DJF RESULT <0, SET TO1 
Mir RESULT >0, SET TO2 
OF OVERFLOW, SET TO 3 
(J UNCHANGED 














OOO OOOO 





The /oad positive, short format (LPER) instruction causes the sign of a full word in the 
- operand 2 (rz) register to be positive. The result is placed in a full word of the operand 1 
(r,) register. 





Explicit and Implicit Format: 


A OPERATION A OPERAND 





Operational Considerations: 
= The exponent and fraction are not changed. 
= The contents of operand 2 (r2) remain unchanged. 
@ The condition code is set: 
— to zero if result is zero; and 
— to 2 if result is greater than zero. 


Codes 1 and 3 are not used. 
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Example: 
LABEL AOPERATIONA OPERAND 
1 10 16 
LOADPOS LPER R6,R4 


Before execution of the /oad positive, short format (LPER) instruction, if we assume 
values of —150 in R4 and +0 in R6, the contents of R6 and R4 will be: 


R6 before execution: 


R6 after execution: 
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11.30. LOAD AND TEST, LONG FORMAT (LTDR) 


Possible Program Exceptions 
ee (0 ADDRESSING C) PROTECTION 
OPCODE FORMAT | INST. C] siGniricance 
Syne Cenru: (J DATA (INVALID SIGN/DIGIT) S| 


rane Pe 
OJ DECIMAL OVERFLOW 
iron [z [we | 2 _|IGexccun 


(Bytes) || DJ) DECIMAL DIVIDE W@ SPECIFICATION: 

NOT A FLOATING-POINT REGISTER 
OP 1 NOT ON HALF-WORD BOUNDARY 
OP 2 NOT ON HALF-WORD BOUNDARY 
OP 2 NOT ON FULL-WORD BOUNDARY 


OP 2 NOT ON DOUBLE-WORD 
BOUNDARY 


OP 1 NOT EVEN NUMBERED REGISTER 
OP 1 NOT ODD NUMBERED REGISTER 


OJ EXPONENT OVERFLOW 
C1 EXPONENT UNDERFLOW 
@ iF RESULT = 0, SET TOO ELRESED POINT DIVIDE 
Mie RESULT <0, SETTO1 (0 F1xED-POINT OVERFLOW 
@ iF RESULT >O0, SET TO 2 0 FLOATING-POINT DIVIDE 


CIF OVERFLOW, SET TO 3 0 OPERATION 
CJ UNCHANGED 


OOO ooooe 


2 
ie) 
z 
m 





The load and test, long format (LTDR) instruction causes the double-word contents of 
the operand 2 (r.) register to be placed in the double-word operand 1 (r,) register. The 
condition code is set by this instruction. 





Explicit and Implicit Format: 


A OPERATION A OPERAND 





Operational Considerations: 
= The contents of operand 2 (r.) remain unchanged. 


= When the same register is specified by operand 1 (r,) and operand 2 (r.), the 
operation is equivalent to a test without data movement. 


a The condition code is set: 
— to zero if result is zero; 
— to 1 if result is less than zero; and 


— to 2 if result is greater than zero. 





Code 3 is not used. 


UP-8913 
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Example: 
LABEL AgpeRATIONA OPERAND 
1 10 16 
TEST LTDR R2,R6 


Before execution of the /oad and test, long format (LTDR) instruction, if we 
assume values of +150 in R6 and +0 in R2, the contents of R6 and R2 will be: 


R2 before execution: 


Re ee ee ee 


R6 before and after execution: 


R2 after execution: 


' 
EVESES CRP Ee Eee eR 


The condition code is set to 2 because the result is greater than zero. 
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11.31. LOAD AND TEST, SHORT FORMAT (LTER) 


Possible Program Exceptions 


OBJECT || [ADDRESSING C1 PROTECTION 


OPCODE FORMAT }| INST 
ID SIG \ IGNIFICANCE 
VEE “arEs (10 DATA (INVALID SIGN/DIGIT)| [] SIGNIFICANC 


| mine. [HEX,| (Bytes) {| (J) DECIMAL ODlvIDE WE SPECIFICATION: 
CO DECIMAL OVERFLOW NOT A FLOATING-POINT REGISTER 


0 execute 


OP 1 NOT ON HALF-WORD BOUNDARY 
OP 2 NOT ON HALF-WORD BOUNDARY 
OP 2 NOT ON FULL-WORD BOUNDARY 
OP 2 NOT ON DOUBLE-WORD 
BOUNDARY 
OP 1 NOT EVEN NUMBERED REGISTER 
OP 1 NOT ODD NUMBERED REGISTER 
NONE 


OJ EXPONENT OVERFLOW 
@ iF ResuLt = 0,setT TOO C) FIXEO-POINT DIVIDE 
WF RESULT <0, SET TO 1 (0 FIXED-POINT OVERFLOW 
Wir RESULT >0O, SET TO2 CO FLOATING-POINT DIVIDE 


CIF OVERFLOW, SET TO 3 (10 OPERATION 
OCU UNCHANGED 


OOO OOOO 





The load and test, short format (LTER) instruction causes the contents of a full word 
in the operand 2 (r.) register to be placed in a full word in the operand 1 (r,) 
register. The condition code is set by this instruction. 





Explicit and Implicit Format: 


A OPERATION A OPERAND 





Operational Considerations: 
= The contents of operand 2 (r,) remain unchanged. 


= When the same register is specified by operand 1 (r,) and operand 2 (r,), the 
operation is equivalent to a test without data movement. 


a The condition code is set: 
— to zero if result is zero; 
— to 1 if result is less than zero; and 


— to 2. if result is greater than zero. 





Code 3 is not used. 
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LABEL AOPERATIONA OPERAND 
1 10 16 
TEST LTER R6,R4 


Before execution of the load and test, short format (LTER) instruction, if we 
assume values of +150 in R4 and +0 in R6, the contents of R4 and R6 will be: 


R6 before execution: 


+ 
o 


R4 before and after execution: 


+ 
—_ 
a 
oO 


R6 after execution: 


+ 
a 
qn 
Oo 


The condition code is set to 2 because the result is greater than zero. 
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11.32. MULTIPLY, LONG FORMAT (MD) 
INST. 


Possible Program Exceptions 
OPCODE | FORMAT 
TYPE LGTH. 


a ADDRESSING B PROTECTION 
O DATA (INVALID SIGN/DIGIT) O SIGNIFICANCE 


(J DECIMAL Div!DE @ specification: 
Condition Codes 


(C1) DECIMAL OVERFLOW NOT A FLOATING-POINT REGISTER 
OO Execute OP 1 NOT ON HALF-WORD BOUNDARY 
EXPONENT OVERFLOW OP 2 NOT ON HALF-WORD BOUNDARY 
WB EXPONENT UNDERFLOW OP 2 NOT ON FULL-WORD BOUNDARY 

PIie REsuL? <5 cer Too C FIXED-POINT DIVIDE OP 2 NOT ON DOUBLE-WORD 

Clif RESULT <O, SET TO1 

CliF RESULT >0, SET TO2 

CF OVERFLOW, SET TO 3 

GB UNCHANGED 






0 FIxXED-POINT OVERFLOW BOUNDARY 
(0 FLOATING-POINT DIVIDE OP 1 NOT EVEN NUMBERED REGISTER 


CI OPERATION OP 1 NOT OOD NUMBERED REGISTER 
NONE 





OOO gOoog8 


The multiply, long format (MD) instruction causes the contents of the double word in 
the operand 1 (r,) register to be multipled by the contents of a double word in main 
storage specified by operand 2. The normalized product is placed in the double word 
of the operand 1 (r,) register. 





Explicit Format: 








A OPERATION A OPERAND 


[symbol] 
MULT 


rd, (x,b,) 
R4,32(R9,R10) 


Implicit Format: 






A OPERATION A OPERAND 


14 18g (Xp) 
R4,FAM 


Operational Considerations: 
# Floating-point multiplication consists of exponent addition and __ fraction 


multiplication. The exponent of the intermediate product is obtained by adding the & 
exponents of the two operands and reducing the sum by 64. 
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= Both operands are normalized before multiplication and the intermediate product 
is normalized after multiplication. The intermediate product fraction is truncated to 
14 digits and a guard digit before normalization. 


= If the exponent of the final product exceeds 127, an exponent overflow condition 
exists. The resultant floating-point number consists of a correct and normalized 
fraction, a correct sign, and an exponent which is 128 less than the correct 
value. The overflow condition does not occur for an intermediate product 
exponent exceeding 127 if the final exponent is brought within range during 
normalization. 


$ 

= If the final product exponent is less than zero, an exponent underflow condition 
exists. If the exponent underflow mask bit (38) of the current PSW is 1, the 
resultant floating-point number has a correct and normalized fraction, a correct 
sign, and an exponent which is 128 greater than the correct value. If the 
exponent underflow mask bit of the current PSW is zero, the result is made a 
true zero. When an underflow characteristic becomes less than zero during 
normalization before multiplication, an underflow exception is not recognized. 


= = When all digits of the intermediate product are zero, the result is made a true 
zero. 


= When the resulting fraction is zero, a program exception for exponent underflow 
or overflow does not occur. 





Example: 
LABEL AOPERATIONA OPERAND 
1 10 16 
MULTLG MD R4 FAM 
FAM DC D'5g' 


Before execution of the multiply, long format (MD) instruction, if we assume a 
value of —100 in R4, the contents of R4 and main storage area FAM will be: 


R4 before execution: 


FAM before and after execution: 


Ss rg Zh Ae se vA Oe a 0. [a ae 


R4 after execution: 
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11.33. MULTIPLY, LONG FORMAT (MDR) 


Possible Program Exceptions 


(J ADDRESSING C0 PROTECTION 

(J DATA (INVALID SIGN/DIGIT) CO SIGNIFICANCE 

OJ DECIMAL DIVIDE a SPECIFICATION: 

C1 DECIMAL OVERFLOW NOT A FLOATING-POINT REGISTER 
0 ExecuTE OP 1 NOT ON HALF-WORD BOUNDARY 


OBJECT 
OPCODE FORMAT | INST. 


LGTH. 
(BYTES) 


Condition Codes 


Or RESULT =0,SET TOO 
Clit RESULT <0, SET TO1 
OCF RESULT > 0, SET TO 2 
OIF OVERFLOW, SET TO 3 
BB UNCHANGED 





@ EXPONENT OVERFLOW OP 2 NOT ON HALF-WORD BOUNDARY 
@ EXPONENT UNDERFLOW OP 2 NOT ON FULL-WORD BOUNDARY 
0 FIXED-POINT DIVIDE OP 2 NOT ON DOUBLE-WORD 


0 FIXED-POINT OVERFLOW BOUNDARY 
(CO FLOATING-POINT DIVIDE OP 1 NOT EVEN NUMBERED REGISTER 


C1 oPERATION OP 1 NOT OOD NUMBERED REGISTER 
NONE 






The multiply, long format (MDR) instruction causes the contents of the double word in 
the operand 1 (r,) register to be multiplied by the contents of the double word in the 
operand 2 (r.) register. The normalized product is placed in the double word of the 
operand 1 (r,) register. 





Explicit and Implicit Format: 





A OPERATION A OPERAND 







[symbol] 


MULT R4,R6 


Operational Considerations: 


= Floating-point multiplication consists of exponent addition and fraction 
multiplication. The exponent of the intermediate product is obtained by adding the 
exponents of the two operands and reducing the sum of 64. 


= Both operands are normalized before multiplication and the intermediate product 
is normalized after multiplication. The intermediate. product fraction is truncated to 
14 digits and a guard digit before normalization. 





UP-8913 SPERRY UNIVAC 0S/3 11-71 
ASSEMBLER 





= If the exponent of the final product exceeds 127, an exponent overflow condition 
exists. The resultant floating-point number consists of a correct and normalized 
fraction, a correct sign, and an exponent which is 128 less than the correct 
value. The overflow condition does not occur for an intermediate product 
exponent exceeding 127 if the final exponent is brought within range during 
normalization. 


m if the final product exponent is less than zero, an exponent underflow condition 
exists. If the exponent underflow mask bit (38) of the current PSW is 1, the 
resultant floating-point number has a correct and normalized fraction, a correct 
sign, and an exponent which is 128 greater than the correct value. If the 
exponent underflow mask bit of the current PSW is zero, the result is made a 
true zero. When an underflow characteristic becomes less than zero during 
normalization before multiplication, an underflow exception is not recognized. 


= When all digits of the intermediate product are zero, the result is made a true 
zero. 


= When the resulting fraction is zero, a program exception for exponent underflow 
or overflow does not occur. 





Example: 
LABEL AOPERATIONA OPERAND 
| 10 16 
MULTREG MDR R4 RE 


Before execution of the multiply, long format (MDR) instruction if we assume 
values of —100 in R4 and +50 in R6, the contents of R4 and R6 will be: 


R4 before execution: 


R6 before and after execution: 


R4 after execution: 


pe aa eee ee eee eee 
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11.34. MULTIPLY, SHORT FORMAT (ME) 


General 





OBJECT 
INST. 
y LGTH. 


(BYTES) 


Condition Codes 


Clif RESULT = 0, SET TOO 
Ole resutt <o, set to1 
Cif RESULT >0O, SET TO 2 
(CItF OVERFLOW, SET TO3 
BBUNCHANGED 


fB ADDRESSING 

(J DATA (INVALID SIGN/DIGIT) 
(J DECIMAL DIVIDE 

OC DECIMAL OVERFLOW 

0 execute 

WB EXPONENT OVERFLOW 

BB EXPONENT UNDERFLOW 

(1 FIXED-POINT DIVIDE 

0 FIXED-POINT OVERFLOW 

(C0 FLOATING-POINT DIVIDE 

(CO OPERATION 

























OOO O80O8 


Possible Program Exceptions 


HB PROTECTION 
C] SIGNIFICANCE 
WB SPECIFICATION: 


NONE 


11-72 
Update B 


NOT A FLOATING-POINT REGISTER 

OP 1 NOT ON HALF-WORD BOUNDARY 
OP 2 NOT ON HALF-WORD BOUNDARY 
OP 2 NOT ON FULL-WORD BOUNDARY 


OP 2 NOT ON DOUBLE-WORD 
BOUNDARY 


OP 1 NOT EVEN NUMBERED REGISTER 
OP 1 NOT ODD NUMBERED REGISTER 







The multiply, short format (ME) instruction causes the contents of a full word in the 
operand 1 (r,) register to be multiplied by the contents of a full word in main storage 
specified by operand 2. The normalized product is placed in a full word of the 


operand 1 (r,) register. 


Explicit Format: 











LABEL A OPERATION A 


r, d(x, ,b,) 
R6,32(R8,R12) 


Implicit Format: 


A OPERATION A 


OPERAND 






OPERAND 





Operational Considerations: 


= Floating-point multiplication consists of 


exponent 


addition and _ fraction 


multiplication. The exponent of the intermediate product is obtained by adding the 
exponents of the two operands and reducing the sum by 64. 











@ 
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7 Both operands are normalized before multiplication and the intermediate product 
is normalized after multiplication. The intermediate product fraction is truncated to 
14 digits, the two least significant digits of which are zero, before normalization. 

= §6If the exponent of the final product exceeds 127, an exponent overflow condition 
exists. The resultant floating-point number consists of a correct and normalized 
fraction, a correct sign, and an exponent which is 128 less than the correct 
value. The overflow condition does not occur for an intermediate product 
exponent exceeding 127 if the final exponent is brought within range during 
normalization. 

= If the final product exponent is less than zero, an exponent underflow condition 
exists. If the exponent underflow mask bit (38) of the current PSW is 1, the 
resultant floating-point number has a correct and normalized fraction, a correct 
sign, and an exponent which is 128 greater than the correct value. If the 
exponent underflow mask bit of the current PSW is zero, the result is made a 
true zero. When an underflow characteristic becomes less than zero during 
normalization before multiplication, an underflow exception is not recognized. 

= When all digits of the intermediate product are zero, the result is made a true 
zero. 

= When the resulting fraction is zero, a program exception exponent underflow or 
overflow does not occur. 

Example: 
LABEL AOPERATIONA OPERAND 
] 10 16 
MULT ME R6,FAM 
FAM DC E'56' 


Before execution of the multiply, short format (ME) instruction, if we assume a 
value of —100 in R6, the contents of R6 and main storage area FAM will be: 


R6 before execution: 


FAM before and after execution: 


Rae Eee eee 


R6 after execution: 
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11.35. MULTIPLY, SHORT FORMAT (MER) 


Possible Program Exceptions 


[ ADDRESSING (1 PROTECTION 







OBJECT 











OPCODE 
eatin ee C0 DATA UINVALID SIGN/DIGIT)| [J SIGNIFICANCE 
(aytes) |} C Decimal DiviDE BE SrecibicATiON: 


CO DECIMAL OVERFLOW 

OO execute 

G@ EXPONENT OVERFLOW 
Ml ExXPONENT UNDERFLOW 
C1 FIXED-POINT DIVIDE 

01 FIxXED-POINT OVERFLOW 
0 FLOATING-POINT DIVIDE 
O oPpERATION 


NOT A FLOATING-POINT REGISTER 

OP 1 NOT ON HALF-WORD BOUNDARY 
OP 2 NOT ON HALF-WORD BOUNDARY 
OP 2 NOT ON FULL-WORD BOUNDARY 


OP 2 NOT ON DOUBLE-WORD 
BOUNDARY 


OP 1 NOT EVEN NUMBERED REGISTER 
oP 1 NOT ODD NUMBERED REGISTER 
NONE 


Condition Codes 


LJ iF RESULT = 0,SET TOO 
Clif RESULT <0, SET TO 1 
Clif RESULT >0, SET TO2 
CIF OVERFLOW, SET TO 3 
WUNCHANGED 








« 
O 
O 
O 
O 
O 
0 
O 





The multiply, short format (MER) instruction causes the contents of a full word in the 
operand 1 (r,) register to be multiplied by the contents of a full word in the operand 
2 (rz) register. The normalized product is placed in a full word in the operand 1 (r,) 
register. 


Explicit and Implicit Format: 








A OPERATION A OPERAND 


[symbol] 
MULT 


rl, 
R6,R4 


Operational Considerations: 


= Floating-point multiplication consists of exponent addition and _ fraction 
multiplication. The exponent of the intermediate product is obtained by adding the 
exponents of the two operands and reducing the sum by 64. 


a Both operands are normalized before multiplication and the intermediate product 
is normalized after multiplication. The intermediate product fraction is truncated to 
14 digits, the two least significant digits of which are zero, before normalization. 


= If the exponent of the final product exceeds 127, an exponent overflow condition 
exists. The resultant floating-point number consists of a correct and normalized 
fraction, a correct sign, and an exponent which is 128 less than the correct 
value. The overflow condition does not occur for an intermediate product 
exponent exceeding 127 if the final exponent is brought within range during 
normalization. 
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= If the final product exponent is less than zero, an exponent underflow condition 
exists. If the exponent. underflow mask bit (38) of the current PSW is 1, the 
resultant floating-point number has a correct and normalized fraction, a correct 
sign, and an exponent which is 128 greater than the correct value. If the 
exponent underflow mask bit of the current PSW is zero, the result is made a 
true zero. When an underflow characteristic becomes less than zero during 
normalization before multiplication, an underflow exception is not recognized. 
= = When all digits of the intermediate product are zero, the result is made a true 
zero. 
a : 
= When the resulting fraction is zero, a program exception for exponent underflow 
or overflow does not occur. 
Example: 
LABEL AOPERATIONA OPERAND 
| 10 16 
MULT MER R6,R4 


Before execution of the multiply, short format (MER) instruction, if we assume 
values of —100 in R6 and +50 in R4, the contents of R6 and R4 will be: 


R6 before execution: 


R6 after execution: 
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11.36. SUBTRACT NORMALIZED, LONG FORMAT (SD) 


Possible Program Exceptions 


Ml ADDRESSING Mi PROTECTION 

(I DATA (INVALID SIGN/DIGIT)| I SIGNIFICANCE 
C0 DECIMAL DIVIDE W@ SPECIFICATION: 
DC DECIMAL OVERFLOW 
O execute 


a ae 
OPCODE FORMAT | INST. 
TYPE LGTH. 


(BYTES) 
NOT A FLOATING-POINT REGISTER 


OP 1 NOT ON HALF-WORD BOUNDARY 
OP 2 NOT ON HALF-WORD BOUNDARY 
OP 2 NOT ON FULL-WORD BOUNDARY 
OP 2 NOT ON DOUBLE-WORD 
BOUNDARY 
OP 1 NOT EVEN NUMBERED REGISTER 
OP 1 NOT ODD NUMBERED REGISTER 
NONE 





@ EXPONENT OVERFLOW 
M@ ExPONENT UNDERFLOW 
CD FIXED-POINT DIVIDE 

0 FIXED-POINT OVERFLOW 
OC FLOATING-POINT DIVIDE 
CO oPERATION 


Condition Codes 


M@iF RESULT =0,SET TOO 
Mir Resutt <0, Set T01 
Wir RESULT >0O, SET TO 2 
CJIF OVERFLOW, SET TO 3 
(UNCHANGED 






OOO gwOo08 






The subtract normalized, long format (SD) instruction causes the contents of a double 
word in main storage, specified by operand 2, to be algebraically subtracted from the 
contents of the double-word register specified by operand 1 (r,). The normalized 
difference is placed in the operand 1 (r,) register. 





Explicit Format: 






A OPERATION A OPERAND 









[symbol] 
SUB 


rid (x, By) 
R4,32(R7,R8) 


Implicit Format: 


A OPERATION A OPERAND 
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| & Operational Considerations: 


I] The execution of the SD instruction is identical to that of the AD instruction 
(11.2), except that the sign of operand 2 is reversed before addition. 


= The condition code is set: 
— to zero if result fraction is zero; 
— to 1 if result fraction is less than zero; and 
— to 2 if result fraction i greater than zero. 


Code 3 is not used. 








Example: 
LABEL AOPERATIONA OPERAND 
1 10 16 
SUBLONG SD R4,FAM 
FAM DC D'166' 
& Before execution of the subtract normalized, long format (SD) instruction, if we 
assume a value of +250 in R4, the contents of R4 and main storage area FAM 
will be: 


R4 before execution: 


FAM before and after execution: 


ESA ts ERA eRe eee es 


R4 after execution: 
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11.37. SUBTRACT NORMALIZED, LONG FORMAT (SDR) 


Possible Program Exceptions 


(J ADDRESSING (PROTECTION 

(0 DATA (INVALID SIGN/DIGIT)| Ml SIGNIFICANCE 

(DECIMAL DivIDE W greciFicaTION: 

C] DECIMAL OVERFLOW NOT A FLOATING-POINT REGISTER 

(] execute OP 1 NOT ON HALF-WORD BOUNDARY 
EXPONENT OVERFLOW OP 2 NOT ON HALF-WORD BOUNDARY 
@ EXPONENT UNDERFLOW OP 2 NOT ON FULL-WORD BOUNDARY 
C1 FIXED-POINT DIVIDE OP 2 NOT ON DOUBLE-WORD 


OO FIXED-POINT OVERFLOW BOUNDARY 
C FLOATING-POINT DIVIDE OP 1 NOT EVEN NUMBERED REGISTER 


C1] operation OP 1 NOT OOD NUMBERED REGISTER 
NONE 














OBJECT 
OPCODE FORMAT | INST. 











TYPE LGTH. 
(BYTES) 


Condition Codes 


MB if RESULT = 0,SET TOO 
Mir Resutt <o,settTo1 
Wirt RESULT > oO, SET TO 2 
CIF OVERFLOW, SET TO 3 
CIUNCHANGED 













OOO OOOO 





The subtract normalized, long format (SDR) instruction causes the contents of the 
double-word register, specified by operand 2 (r,) to be algebraically subtracted from 
the contents of the double-word register, specified by operand 1 (r,). The normalized 
difference is placed in the operand 1 (r,) register. 





Explicit and Implicit Format: 


AOPERATIONA OPERAND 





Operational Considerations: 


=» The execution of the SDR instruction is identical to that of the ADR instruction 
(11.3), except that the sign of operand 2 (r.) is reversed before addition. 


= The condition code is set: 
— to zero if result fraction is zero; 
— to 1 if result fraction is less than zero; and 
— to 2 if result fraction is greater than zero. 


Code 3 is not used. 
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Example: 
LABEL AOPERATIONA OPERAND 
1 10 16 
SUBTR SOR R6,R4 


Before execution of the subtract normalized, long format (SDR) instruction, if we 
assume values of +250 in R6 and +100 in R4, the contents of R6 and R4 will 


be: 


a 
R6 before execution: 


R4 before and after execution: 


EP ERE ee eee ee eS Ree eee 


R6 after execution: 


PaE ESA ERE eA RRR 
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11.38. SUBTRACT NORMALIZED, SHORT FORMAT (SE) 


Possible Program Exceptions 


M@ ADDRESSING PROTECTION 

(0 DATA (INVALID SIGN/DIGIT)| I SIGNIFICANCE 

C1 DECIMAL DiviDE WB SPECIFICATION: 

CJ DECIMAL OVERFLOW NOT A FLOATING-POINT REGISTER 
OP 1 NOT ON HALF-WORD BOUNDARY 
OP 2 NOT ON HALF-WORD BOUNDARY 
OP 2 NOT ON FULL-WORD BOUNDARY 


OP 2 NOT ON DOUBLE-WORD 
BOUNDARY 


OP T NOT EVEN NUMBERED REGISTER 
OP 1 NOT ODD NUMBERED REGISTER 


OBJECT 
OPCODE FORMAT | INST. 


TYPE LGTH. 
(BYTES) 


Condition Codes 


Mir RESULT = 0, SET TOO 
Wie Resuct <o, set To 1 
Wir RESULT >0, SET TO2 
OJ1F OVERFLOW, SET TO 3 
OC UNCHANGED 





O execute 


WE EXPONENT OVERFLOW 
WM ExPONENT UNDERFLOW 
CO FIXED-POINT DIVIDE 

CO FIXED-POINT OVERFLOW 
(J FLOATING-POINT DIVIDE 
C OPERATION 







OOO O8008 


2 
ie) 
2 
m 





The subtract normalized, short format (SE) instruction causes the contents of a full 
word in main storage, specified by operand 2, to be algebraically subtracted from a 
full word in the register specified by operand 1 (r,). The normalized difference is 
placed in the operand 1 (r,) register. 





Explicit Format: 






A OPERATION A OPERAND 






R2,32(R9,R10) 
Implicit Format: 
LABEL A OPERATION A OPERAND 
[symbol] 4 Sq (x, ) 
SUB R2,FAM 
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@ Operational Considerations: 


= The execution of the SE instruction is identical to that of the AE instruction 
(11.4), except that the sign of operand 2 is reversed before addition. 


a The condition code is set: 


— to zero if result fraction is zero; 





— to 1 if result fraction is less than zero; and 
— to 2 if result fraction is greater than zero. 


Code 3 is not used. 





Example: 
LABEL AOPERATIONA OPERAND 
1 10 16 
SUBSHORT SE R2 ,FAM 
FAM DC E'166' 
@ Before execution of the subtract normalized, short format (SE) instruction, if we 
assume a value of +250 in R2, the contents of R2 and main storage area FAM 
will be: 


R2 before execution: 


R2 after execution: 
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11.39. SUBTRACT NORMALIZED, SHORT FORMAT (SER) 


Possible Program Exceptions 


OBJECT 


ADDRESSING OC PROTECTION 
OPCODE FORMAT | INST. O 


C0 DATA (INVALID SIGN/DIGIT)| I SIGNIFICANCE 

(CD DECIMAL Divide @ sPeciFicaTtion: 

0 DECIMAL OVERFLOW NOT A FLOATING-POINT REGISTER 

OO execute OP 1 NOT ON HALF-WORD BOUNDARY 


TYPE LGTH. 
(BYTES) 


Condition Codes 


@ iF RESULT =0,SET TOO 
Wir Resuct <o, set To1 
Wit RESULT > 0, SET TO 2 
CF OVERFLOW, SET TO 3 
(CO UNCHANGED 





Wi EEXPONENT OVERFLOW OP 2 NOT ON HALF-WORD BOUNDARY 
@ EXPONENT UNDERFLOW OP 2 NOT ON FULL-WORD BOUNDARY 
O FIXED-POINT DIVIDE OP 2 NOT ON DOUBLE-WORD 


oO FIXED-POINT OVERFLOW BOUNDARY 
0 FLOATING-POINT DIVIDE OP 1 NOT EVEN NUMBERED REGISTER 


C0 operation OP 1 NOT ODD NUMBERED REGISTER 
NONE 






The subtract normalized, short format (SER) instruction causes the contents of a full 
word in the operand 2 (r.) register to be algebraically subtracted from a full word in 
the operand 1 (r,). The normalized difference is placed in a full word in the operand 
1 (r,) register. 





Explicit and Implicit Format: 


A OPERATION A OPERAND 





Operational Considerations: 


m The execution of the SER instruction is identical to that of the AER instruction 
(11.5), except that the sign of operand 2 is reversed before addition. 


= The condition code is set: 
— to zero if result fraction is zero; 
— to 1 if result fraction is less than zero; and 
— to 2 if result fraction is greater than zero. 


Code 3 is not used. 
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Example: 
LABEL AOPERATIONA OPERAND 
] 10 16 
SUB SER R2,R4 


Before execution of the subtract normalized, short format (SER) instruction, if we 


assume values of +250 in R2 and +100 in R4, the contents of R2 and R4 will 
be: 


R2 before execution: 


+ 
mR 
QQ 
o 


R4 before and after execution: 


R2 after execution: 


+150 
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11.40. STORE, LONG FORMAT (STD) 


Possible Program Exceptions 


HM ADDRESSING Wi PROTECTION 








OBJECT 











OPCODE 
pe ide Hee (0 DATA INVALID SIGN/DIGIT)| [] SIGNIFICANCE 
NER. (Bytes) || DJ DECIMAL DivIDE Wl SPECIFICATION: 


NOT A FLOATING-POINT REGISTER 

OP 1 NOT ON HALF-WORD BOUNDARY 
OP 2 NOT ON HALF-WORD BOUNDARY 
OP 2 NOT ON FULL-WORD BOUNDARY 


OP 2 NOT ON DOUBLE-WORD 
BOUNDARY 


OP 1 NOT EVEN NUMBERED REGISTER 
OP 1 NOT ODD NUMBERED REGISTER 
NONE 


OJ DECIMAL OVERFLOW 

OO execute 

(0 EXPONENT OVERFLOW 
1 EXPONENT UNDERFLOW 
C1 FIX€D-POINT DIVIDE 

CO] FIxED-POINT OVERFLOW 
(C] FLOATING-POINT DIVIDE 
(J OPERATION 


| sto} so] nx | 4 | 
Condition Codes 


OJiF RESULT = 0,SET TOO 
Clie RESULT <o, SET TO1 
Dif RESULT >0O, SET TO 2 
(J tF OVERFLOW, SET TO 3 
MUNCHANGED 








a 
O 
O 
O 
a 
O 
O 
O 





The store, long format (STD) instruction causes the contents of the register, specified 
by operand 1 (r,), to be placed in a double word in main storage, specified by 
operand 2. 


Explicit Format: 





A OPERATION A 





LABEL OPERAND 


[symbol] 
STORE 


rod, (x,,by) 
R4,32(R5,R6) 


Implicit Format: 







A OPERATION A OPERAND 


Fy Sq (x) 
R4,FAM 


Operational Consideration: 


= The contents of the operand 1 (r,) register remain unchanged. 
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& Example: 





LABEL AOPERATIONA OPERAND 
1 10 16 

STORELG STD R4 FAM 

FAM DC D'g' 


Before execution of the stog, /ong format (STD) instruction, if we assume a value 
of +500 in R4, the contents of R4 and main storage area FAM will be: 


FAM before execution: 


REE ERE MEE a eRe EL EERE 


R4 before and after execution: 


| 


FAM after execution: 


ERs ESLER RSE eee ee ee 
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11.41. STORE, SHORT FORMAT (STE) 


Possible Program Exceptions 
OPCODE FORMAT 
TYPE LGTH. 


Wl ADDRESSING Wi PROTECTION 
(C0 DATA (INVALID SIGN/DIGIT) | [1] SIGNIFICANCE 
[se |m[ me [| «| 


CJ DECIMAL DivIDE BB SPECIFICATION: 
Condition Codes 


[J DECIMAL OVERFLOW NOT A FLOATING-POINT REGISTER 
OO Execute OP 1 NOT ON HALF-WORD BOUNDARY 
(0 EXPONENT OVERFLOW OP 2 NOT ON HALF-WORD BOUNDARY 
(C) EXPONENT UNDERFLOW OP 2 NOT ON FULL-WORD BOUNDARY 

MicRecULES Ger aes CD Ftx€D-POINT DIVIDE OP 2 NOT ON DOUBLE-WORD 

Clie Resutt <o,setto1 

Cte RESULT > 0, SET TO2 

OJiF OVERFLOW, SET TO 3 

WB UNCHANGED 



















Sea... aoe 
INST. 




































0 FIxXED-POINT OVERFLOW | BOUNDARY 
CO FLOATING-POINT DIVIDE OP 1 NOT EVEN NUMBERED REGISTER 


C0 operation OP 1 NOT ODD NUMBERED REGISTER 
NONE 





OOO O8oog 





The store, short format (STE) instruction causes the contents of a full word in the 
register, specified by operand 1 (r,), to be placed in a full word in main storage, 
specified by operand 2. 


Explicit Format: 










A OPERATION A OPERAND 


[symbol] 
STORE 


rd, (x,,b,) 
R4,32(R5,R6) 


Implicit Format: 







A OPERATION A OPERAND 





[symbol] 
STORE 


14 0Sq (XQ) 
R4,FAM 


Operational Consideration: 


s The contents of the operand 1 (r,) register remain unchanged. 
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Example: 
LABEL AOPERATIONA OPERAND 
1 10 16 
STORE STE R4 , FAM 
FAM DC E'p' 


Before execution of the store, short format (STE) instruction, if we assume a 
value of +500 in R4, the, contents of R4 and main storage FAM will be: 


FAM before execution: 


FAM after execution: 
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tc 





SU 






























aaa eae 


11.42. SUBTRACT UNNORMALIZED, SHORT FORMAT (SU) 
INST. 


Possible Program Exceptions 
OPCODE FORMAT 
TYPE LGTH. 


§ ADDRESSING @ PROTECTION 
(J DATA (INVALID SIGN/DIGIT) | MH SIGNIFICANCE 


(0 DECIMAL DIVIDE Wi SPECIFICATION: 
Condition Codes 


O00 DECIMAL OVERFLOW NOT A FLOATING-POINT REGISTER 
OO Execute OP 1 NOT ON HALF-WORD BOUNDARY 
@ EXPONENT OVERFLOW OP 2 NOT ON HALF-WORD BOUNDARY 
CO ExPONENT UNDERFLOW OP 2 NOT ON FULL-WORD BOUNDARY 
Mirecuireo cae C FIXED-POINT DIVIDE OP 2 NOT ON DOUBLE-WORD 
Wir Resuct <o, set to 1 
Wir RESULT >0, SET TO 2 
OCF OVERFLOW, SET TO 3 
CO UNCHANGED 
































C0 FIxED-POINT OVERFLOW BOUNDARY 
(0 FLOATING-POINT DIVIDE 
(0 OPERATION 


OP 1 NOT EVEN NUMBERED REGISTER 
OP 1 NOT ODD NUMBERED REGISTER 






OOO O8DOOG 


2 
le} 
z 
m 





The subtract unnormalized, short format (SU) instruction causes the contents of a full 
word in main storage specified by operand 2 to be algebraically subtracted from the 
contents of a full word in the register specified by operand 1 (r,). The difference is 
placed in a full word in the operand 1 (r,) register. 





Explicit Format: 






A OPERATION A OPERAND 









[symbol] 
SUB 


rd, (x, ,b,) 
R6,32(R7,R9) 


Implicit Format: 


A OPERATION A OPERAND 
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@ Operational Considerations: 


= The execution of the SU instruction is identical to that of the AU instruction 
(11.6), except that the sign is reversed before addition. 


= The condition code is set: 
— to zero if result fraction is zero; 
— to 1 if result fraction is less than zero; and 
— to 2 if result fraction is greater than zero. 


Code 3 is not used. 








Example: 
LABEL AOPERATIONA OPERAND 
1 10 16 
SUBUNNOR SU R6,FAM 
FAM OC E'96G' 
® Before execution of the subtract unnormalized, short format (SU) instruction, if we 
assume a value of +1000 in R6, the contents of R6 and main storage area FAM 
will be: 


R6 before execution: 
PPP EP TS 


FAM before and after execution: 


+1000 


R6 after execution: 
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11.43. SUBTRACT UNNORMALIZED, SHORT FORMAT (SUR) 


Possible Program Exceptions 


(J ADDRESSING 0 PROTECTION 

(0 DATA UNVALID SIGN/DIGIT)] I SIGNIFICANCE 

(J DECIMAL DIvIDE @ sPECIFICATION: 

(CJ DECIMAL OVERFLOW NOT A FLOATING-POINT REGISTER 
OO execute OP 1 NOT ON HALF-WORD BOUNDARY 
OP 2 NOT ON HALF-WORD BOUNDARY 
OP 2 NOT ON FULL-WORD BOUNDARY 


OP 2 NOT ON DOUBLE-WORD 
BOUNDARY 


OP 1 NOT EVEN NUMBERED REGISTER 
OP 1 NOT ODD NUMBERED REGISTER 
NONE 


OBJECT 
OPCODE FORMAT ] INST. 


TYPE LGTH. 
(BYTES) 


Condition Codes 


Wir ResuLt = 0,seT TOO 
Wire resutt<o,setto1 
Wir RESULT >0, SET TO2 
Cte OVERFLOW, SET TO3 
CU UNCHANGED 





Wi EXPONENT OVERFLOW 
1 EXPONENT UNDERFLOW 
CD Fix€D-POINT DIVIDE 

0 FIxXeD-POINT OVERFLOW 
DC FLOATING-POINT DIVIDE 
(D OPERATION 






O00 OOOO8 


The subtract unnormalized, short format (SUR) instruction causes the contents of a 
full word in the operand 2 (r.) register to be algebraically subtracted from a full word 
in the operand 1 (r,) register. The difference is placed in a full word in the operand 1 
(r,) register. 





Explicit and Implicit Format: 







A OPERATION A OPERAND 


[symbol] 
SUB 


R6,R4 
Operational Considerations: 


a The execution of the SUR instruction is identical to that of the AUR instruction 
(11.7), except that the sign is reversed before addition. 


= The condition code is set: 
— to zero if result fraction is zero; 
— to 1 if result fraction is less than zero; and 
— to 2 if result fraction is greater than zero. 


Code 3 is not used. 








UP-8913 
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Example: 
LABEL AOPERATIONA OPERAND 
I 10 16 
SUBSHORT SUR R6,R4 


Before execution of the subtract unnormalized, short format (SUR) instruction, if 


we assume values of +1000 in R6 and +900 in R4, the contents of R6 and R4 
will be: 


R6 before execution: 


R6 after execution: 
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11.44. SUBTRACT UNNORMALIZED, LONG FORMAT (SW) 


aed 
OPCODE FORMAT | INST. 
TYPE LGTH. 


Possible Program Exceptions 


ADDRESSING @ PROTECTION 

(] DATA INVALID SIGN/DIGIT) | [i SIGNIFICANCE 

[1] DECIMAL DIVIDE WE SPECIFICATION: 

C1) DECIMAL OVERFLOW NOT A FLOATING-POINT REGISTER 
1 execute OP 1 NOT ON HALF-WORD BOUNDARY 
EXPONENT OVERFLOW OP 2 NOT ON HALF-WORD BOUNDARY 
(1 EXPONENT UNDERFLOW OP 2 NOT ON FULL-WORD BOUNDARY 
(J FIXED-POINT DIVIDE OP 2 NOT ON DOUBLE-WORD 


DO FIXED-POINT OVERFLOW BOUNDARY 
CF] FLOATING-POINT DIVIDE OP 1 NOT EVEN NUMBERED REGISTER 


CJ oPpERATION OP 1 NOT ODD NUMBERED REGISTER 


























Condition Codes 


Gir REsuLtT=0,set too 









Wir Resuct <o, set TO 1 
Wit RESULT >0O, SET TO 2 
CJ 1F OVERFLOW, SET TO3 
C(O UNCHANGED 






OOO gsOOo0Og 


2 
2) 
z 
m 





The subtract unnormalized, long format (SW) instruction causes the contents of a 
double word in main storage specified by operand 2 to be algebraically subtracted 
from the contents of the double word in the register specified by operand 1 (r,). The 
difference is placed in the double-word operand 1 (r,) register. 





Explicit Format: 






AOPERATION A OPERAND 






v, id, (x, ib, ) 
R4,32(R5,R9) 


Implicit Format: 





A OPERATION A OPERAND 
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Operational Considerations: 


m The execution of the SW instruction is identical to that of the AW instruction 
(11.8), except that the sign is reversed before addition. 


= The condition code is set: 
— to zero if result fraction is zero; 
— to 1 if result fraction is less than zero; and 
— to 2 if result fraction is greater than zero. 


Code 3 is not used. 


Example: 
LABEL AQPERATIONA OPERAND 
1 10 16 
ase eee Se ae Be ea ne hE eon reac 
SUBUNNOR SW R4, FAM 
FAM De D'9gg' 


Before execution of the subtract unnormalized, long format (SW) instruction, if we 
assume a value of +1000 in R4, the contents of R4 and main storage area FAM 
will be: 


R4 before execution: 


RES Ee ee a 


FAM before and after execution: 


EE Eee cae ee Eee)... 


R4. after execution: 
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11.45. SUBTRACT UNNORMALIZED, LONG FORMAT (SWR) 


General 


OBJECT 
OPCODE FORMAT } INST. 


Possible Program Exceptions 


[J ADDRESSING (1) PROTECTION 

(0 DATA UNVALID SIGN/DIGIT) | Hl SIGNIFICANCE 

(J DECIMAL DiviDE Wl SPECIFICATION: 

CJ DECIMAL OVERFLOW NOT A FLOATING-POINT REGISTER 
execute OP 1 NOT ON HALF-WORD BOUNDARY 
@ EXPONENT OVERFLOW OP 2 NOT ON HALF-WORD BOUNDARY 
(] EXPONENT UNDERFLOW OP 2 NOT ON FULL-WORD BOUNDARY 
(0 FIXED-POINT DIVIDE OP 2 NOT ON DOUBLE-WORD 

0 FIXED-POINT OVERFLOW BOUNDARY 

C0 FLOATING-POINT DIVIDE OP 1 NOT EVEN NUMBERED REGISTER 
(C0 oPpeRATION OP 1 NOT ODD NUMBERED REGISTER 
NONE 


TYPE LGTH. 
(BYTES) 


Condition Codes 


Wir RESULT =0,SET TOO 
Mir RESULT <0, SET TO1 
Wir RESULT > 0, SET TO2 
CIF OVERFLOW, SET TO 3 
DD UNCHANGED 









OOO OOOO 





The subtract unnormalized, long format (SWR) instruction causes the contents of the 
double word in the operand 2 (r.) register to be algebraically subtracted from the 
double-word contents of the operand 1 (r,) register. The difference is placed in the 
double-word operand 1 (r,) register. 





Explicit and Implicit Format: 







A OPERATION A OPERAND 


[symbol] 


SUB R4,R6 


Operational Considerations: 


= The execution of the SWR instruction is identical to that of the AWR instruction 
(11.9), except that the sign is reversed before addition. 


= = =6©The condition code is set: 
— to zero if result fraction is zero; 
— to 1 if result fraction is less than zero; and 
— to 2 if result fraction is greater than zero. 


Code 3 is not used. 
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Example: 
LABEL AOPERATIONA OPERAND 
i 10 16 
SUBLONG SWR R4 ,R6 


Before execution of the subtract unnormalized, long format (SWR) instruction, if 


we assume values of +1000 in R4 and +900 in R6, the contents of R4 and R6 
will be: 


R4 before execution: 


BREA ESSS eS ERE 


R6 before and after execution: 


PRESETS eee Ce eae ee 


R4 after execution: 


Sea ee Ee ee 
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12. Logical Instructions 


12.1. THE USE OF LOGICAL INSTRUCTIONS 


All operations performed by logical instructions are executed according to the rules of 
logic. Unlike decimal and fixed-point binary instructions, logical instructions disregard 
arithmetic signs. Most of these instructions manipulate data bit by bit and operate from 
left to right. 
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12.2. ADD LOGICAL (AL) 


Possible Program Exceptions 


orcove | conmat re ADDRESSING WB PROTECTION 
eee | eer (0 DATA (INVALID SIGN/DIGIT) | [1] SIGNIFICANCE 
(BYTES) |} LJ DECIMAL DIVIDE @ SPECIFICATION: 
CZ Decimat ovERFLOW NOT A FLOATING-POINT REGISTER 
CO execute OP 1 NOT ON HALF-WORD BOUNDARY 
OP 2 NOT ON HALF-WORD BOUNDARY 
OP 2 NOT ON FULL-WORD BOUNDARY 


OP 2 NOT ON DOUBLE-WORD 
BOUNDARY 


OP 1 NOT EVEN NUMBERED REGISTER 
OP 1 NOT ODD NUMBERED REGISTER 
NONE 


(0 EXPONENT OVERFLOW 
Condition Codes 0 EXPONENT UNDERFLOW 


ser co C0 FIxXED-POINT DIVIDE 
® ser ed C0 FIxXE0-POINT OVERFLOW 
WM settro2 (0 FLOATING-POINT DIVIDE 


@ setto3 (] OPERATION 
SEE OPER. CONSIDERATIONS 





OOO O-wooo0 


The add logical (AL) instruction logically adds the content of operand 2 to the content of 
the operand 1 register and places the sum in operand 1. 


Explicit Format: 













LABEL A OPERATION A OPERAND 


[symbol] 


Implicit Format: 








AOPERATION A 





LABEL OPERAND 







[symbol] 
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@ Operational Considerations: 


= Any of the general registers (0 through 15) can be used as operand 1. 





= ©The main storage location you specify in operand 2 must refer to a main storage area 
that is on a full-word boundary. Operand 2 is not changed by the execution of this 
instruction. 


# The addition is performed by logically adding the 32 bits of operand 2 to the 32 bits of 
operand 1. 


= Neither operand has a sign bit. 

“ The condition code of the program status word (PSW) is set as follows: 
— to O if result is O (no carry of most significant bit); 
— to 1 if result is not O (no carry of most significant bit); 
— to 2 if result is O (carry of most significant bit); or 


— to 3 if result is not O (carry of most significant bit). 


®& Example: 





LABEL AOPERAT IONS OPERAND 
] 10 16 
L 3,HEXVALU 
AL 3, FULLWORD 
DS OF 
HEXVALU DC X'$9GGG19' 
FULLWORD DC X'$6GBB79C ' 
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In this example, the main storage content of HEXVALU is placed into register 3. The 
AL instruction logically adds the full-word content of main storage location 
FULLWORD to the content of register 3 and places the sum in register 3. 


Register 3 before execution of AL instruction: 






0000! 0000} 0000!0000] 0000 ;0000}0001) 1001] binary 


FULLWORD before execution of AL instruction: 


0000; 0000 0000! 0000 000010111 1001! 1100 
1 | 
BOGOGEoOR 


Register 3 after execution of AL instruction: 






binary 





hex 


binary 





wines ae Toe Ta TEN a ee 
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ALR 


12.3. ADD LOGICAL (ALR) 


Possible Program Exceptions 















opcode | rormat ——___ (] ADDRESSING C2 PROTECTION 
vee | ceru, || PATA INVALID SIGN/DIGIT)} [] SIGNIFICANCE 
| vem. |HEX, (sytes) || CQ O&CIMAL DIVIDE C sPEcIFICATION: 


CJ DECIMAL OVERFLOW 

(1 Execute 

CD EXPONENT OVERFLOW 
CO EXPONENT UNDERFLOW 
( FIXED-POINT DIVIDE 

0) FIXED-POINT OVERFLOW 
(J FLOATING-POINT DIVIDE 
CL] OPERATION 


NOT A FLOATING-POINT REGISTER 

OP 1 NOT ON HALF-WORD BOUNDARY 
OP 2 NOT ON HALF-WORD BOUNDARY 
OP 2 NOT ON FULL-WORD BOUNDARY 


OP 2 NOT ON DOUBLE-WORD 
BOUNDARY 


OP 1 NOT EVEN NUMBERED REGISTER 
OP 1 NOT OOD NUMBERED REGISTER 


Pau [ef ae | 2 | 
Condition Codes 


M@ set too 
@ serto1 
®@ setto2 
HM setrto3 
SEE OPER. CONSIDERATIONS 





Boo oooo00 


2 
° 
2 
m 


The add /ogical (ALR) instruction logically adds the content of the operand 1 register to the 
content of the operand 2 register and places the sum in operand 1. 


Explicit and Implicit Format: 





A OPERATIONA OPERAND 


Operational Considerations: 
= Any of the general registers (O through 15) can be used as operands 1 and 2. 
= @The addition is performed by logically adding the 32 bits of operand 2 to operand 1. 
= Neither operand has a sign bit. 
= The condition code of the program status word (PSW) is set as follows: 
— to O if result is O (no carry of most significant bit); 
— to 1 if result is not O (no carry of most significant bit); 
— to 2 if result is O (carry of most significant bit); or 


— to 3 if result is not O (carry of most significant bit). 
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Example: 
LABEL AOPERAT IONA OPERAND 
1 10 16 
L 3,VALUI 
L k ,VALU2 
ALR 3,4 
> DS OF 
VALU] DC X'$969GG19' 
VALU2 oc X'$$6GG79C ' 


In this example, the hexadecimal contents of main storage locations VALU1 and VALU2 
are placed in registers 3 and 4, respectively. Then, the contents of registers 3 and 4 are 
added and the sum placed in register 3. 


Register 3 before execution of ALR instruction: 














0000! 0000 }0000 ! 0000 0000!0111 100111100 
pofofotofoj7leic| 


Register 3 after execution of ALR instruction: 


0000! 0000] 0000! 0000} 000010111 }1011;0101 









binary 


hex 
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12.4. AND (N) 


General 






















CL) DECIMAL OVERFLOW 
OJ Execute 

CJ EXPONENT OVERFLOW 
(C] EXPONENT UNDERFLOW 


Possible Program Exceptions 





OPCODE OBJECT || ADDRESSING PROTECTION 
ope hare [] DATA (INVALID SIGN/DIGIT) | [] SIGNIFICANCE 
MNEM. |HEX. (Bytes) || (J DECIMAL DiviDE @ SPECIFICATION: 







12-7, 
eds be ( 


T 








NOT A FLOATING-POINT REGISTER 

OP 1 NOT ON HALF-WORD BOUNDARY 
OP 2 NOT ON HALF-WORD BOUNDARY 
OP 2 NOT ON FULL-WORD BOUNDARY 


Condition Codes 


WM iF RESULT = 0,SET TOO 
Wie RESULT #0, SET TO1 
Cte RESULT >O, SET TO 2 
(CJIF OVERFLOW, SET TO 3 
CJ UNCHANGED 





















OC FIXED-POINT DIVIDE 

(J FixED-POINT OVERFLOW 
() FLOATING-POINT DIVIDE 
0 OPERATION 


OP 2 NOT ON DOUBLE-WORD 
BOUNDARY 


OP 1 NOT EVEN NUMBERED REGISTER 
OP 1 NOT ODD NUMBERED REGISTER 
NONE 


OOO O80O00 


The and (N) instruction performs a logical AND operation on the contents of the operand 1 
register and the contents of the full word in operand 2. The result is placed in the operand 
1 register. 


Explicit Format: 






A OPERATIONA OPERAND 


[symbol] 


Implicit Format: 






A OPERATION A OPERAND 


[symbol] 


When the N instruction is executed, a logical AND operation is performed on a bit in 
operand 1 and a bit in operand 2. The result of the AND operation replaces the bit just 
accessed in operand 1. This instruction operates from left to right starting with the logical 
AND operations of bit O in both operands up to and including the logical AND operation of 
bit 31 in both operands. 
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The N instruction is used to turn off selected bits in the receiving field. The procedure is 
shown in the following truth table: 








When coding patterns used as operands in AND instructions, code a 0 in all bit positions 
in operand 2 that correspond to bit positions in operand 1 that you want to set to off (0), 
and a 1 in all bit positions in operand 2 that correspond to bit positions in operand 1 that 
you want to remain the same. 


After the N instruction is executed, the condition code is set to O if the result is all O's; or 
the condition code is set to 1 if the result is all 1’s or a combination of 1's and O’s. 


Operational Considerations: 


a Any of the general registers (O through 15) can be used as operand 1. 





= Operand 2 must be defined as either a full word or aligned on a full-word boundary. 
= The logical AND operation executes upon all 32 bit positions of operands 1 and 2. 


= A zero in a bit position in operand 2 sets its corresponding bit position in operand 1 to 
0. 


« A 1 ina bit position in operand 2 allows its corresponding bit position in operand 1 to 
remain the same. 


8 The condition code is set accordingly. 





Example: 
LABEL AOPERATIONA OPERAND 
1 10 16 
L 8 ,HEXVALUE 
N 8, ANDPATRN 
DS GF 
ANDPATRN DC X' PAOOAOFF 





HEXVALUE DC X'GBFAG670' 
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Register 8 before execution of N instruction: 


a 
refetelelefe bbe 


ANDPATRN before and after execution of N instruction: 


or av 
Pefefefelele tele 


Register 8 after execution of N instruction: 


Eo 
nooooooo 
—-—e 


only bits actually changed 






binary 






hex 





binary 


hex 








binary 


hex 





In this example, the hexadecimal value in HEXVALUE is loaded into register 8. Then a 
logical AND operation is performed on the hexadecimal pattern in ANDPATRN (operand 2) 
and the contents of register 8. Ones in bit positions 24 through 31 of ANDPATRN allow 
the corresponding bit positions in register 8 to remain the same. Zeros in bit positions O 
through 23 of ANDPATRN set the corresponding bit positions in register 8 to O. As the 
high order four bit positions of byte 2 in register 8 are all 1’s, they are set to O; and as the 
remaining bit positions are already O, they remain O. The condition code is set to 1 


because the result is a combination of 1’s and O's. 
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NC 





12.5. AND (NC) 


General 


OBJECT 
INST. 
LGTH. 
(BYTES) 


Condition Codes 


MB iF RESULT = 0, SET TOO 
Wie RESsuLT #0, SET TO1 
Oe RESULT >0O, SET TO 2 
Ott OVERFLOW, SET TO 3 
(CJ UNCHANGED 


Possible Program Exceptions 


MM ADDRESSING @ PROTECTION 
(1 DATA (INVALID SIGN/DIGIT) | [] SIGNIFICANCE 

[DECIMAL DiviDE CD SPECIFICATION: 

C] DECIMAL OVERFLOW NOT A FLOATING-POINT REGISTER 

CO execute OP 1 NOT ON HALF-WORD BOUNDARY 
(C1 EXPONENT OVERFLOW OP 2 NOT ON HALF-WORD BOUNDARY 
(C0 EXPONENT UNDERFLOW OP 2 NOT ON FULL-WORD BOUNDARY 
C1 FIxXED-POINT DIVIDE OP 2 NOT ON DOUBLE-WORD 


DC FIXED-POINT OVERFLOW BOUNDARY 
(0 FLOATING-POINT DIVIDE OP 1 NOT EVEN NUMBERED REGISTER 


(0 OPERATION OP 1 NOT ODD NUMBERED REGISTER 
NONE 






































OPCODE | FORMAT 
TYPE 



















DOO OooOo00 


The and (NC) instruction performs a logical AND operation on the contents of operand 1 
and the contents of operand 2 which are both located in main storage. The result is placed 
in operand 1. 





Explicit Format: 








LABEL A OPERATION A OPERAND 





[symbol] 





d, (I,b, ),d, (b,) 


Implicit Format: 








A OPERATION A 





LABEL OPERAND 


When the NC instruction is executed, a logical AND operation is performed on a bit in 
operand 1 and a bit in operand 2. The result of the AND operation replaces the bit 
accessed in operand 1. This instruction operates from left to right. The length of operand 
1, whether implied or explicit, determines the length of operand 2. Therefore, when the 
NC instruction is executed, the lengths of operands 1 and 2 are the same. 
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@ The NC instruction is used to turn off selected bits in the receiving field. The procedure is 
shown in the following truth table: 


Result 
Operand 1 Operand 2 (Operand 1) 


When coding patterns used as operands in AND instructions, code a 0 in all bit positions 
in operand 2 that correspond to bit positions in operand 1 that you want to set to off (0), 
and a 1 in all bit positions in operand 2 that correspond to bit positions in operand 1 that 
you want to remain the same. 











After the NC instruction is executed, the condition code is set to O if the resuit is all O’s; or 
the condition code is set to 1 if the result is all 1’s or a combination of 1’s and O’s. 


Operational Considerations: 
= Operands 1 and 2 must be main storage locations. 


& = The length of operand 1, whether implied or explicit, determines the length of 
operand 2. 


= A zero in a bit position in operand 2 sets its corresponding bit position in operand 1 to 
O. 


= A 1 ina bit position in operand 2 allows its corresponding bit position in operand 1 to 
remain the same. 


a = =6The condition code is set accordingly. 


= §=€«Operands 1 and 2 can have overlapping bytes. 





Example: 
LABEL AOPERATIONA OPERAND 
1 10 16 
NC LOCAT],LOCAT2 
LOCATI DC PL2'-217' 


e LOCAT2 oC X'FFFC! 








EEE 
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LOCAT1 before execution of NC instruction: 


Cc 
Ce fs[e [eo] mts 


LOCAT2 before and after execution of NC instruction: 


binary 


binary 


hex 





In this example, LOCAT1 is defined as a negative packed decimal number and LOCAT2 is 
defined as a field containing a hexadecimal value. A logical AND operation is performed on 
the contents of LOCAT1 and LOCAT2. The result is placed in LOCAT1. The 1’s in bit 
positions O through 13 of LOCAT2 allow the corresponding bit positions in LOCAT1 to 
remain the same. Zeros in bit positions 14 and 15 of LOCAT2 set the corresponding bit 
positions in LOCAT1 to O. Because the low order bit position of LOCAT1 is 1, it is set to O; 
and the bit position adjacent to the low order bit position remains O, since it is already O. 
The condition code is set to 1 because the result is a combination of 1’s and O’s. Note the 
sign value is changed from negative to positive. 
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NI 


12.6. AND (NI) 


General 


OBJECT 
OPCODE FORMAT | INST. 


Possible Program Exceptions 


Wl ADDRESSING @ PROTECTION 

(J DATA (INVALID SIGN/DIGIT)| [] SIGNIFICANCE 

(J DECIMAL DIVIDE Cl SPECIFICATION: 

C DECIMAL OVERFLOW NOT A FLOATING-POINT REGISTER 

O Execute OP 1 NOT ON HALF-WORD BOUNDARY 
OC EXPONENT OVERFLOW OP 2 NOT ON HALF-WORD BOUNDARY 
C) EXPONENT UNDERFLOW OP 2 NOT ON FULL-WORD BOUNDARY 
Ci FIXED-POINT DIVIDE OP 2 NOT.ON DOUBLE-WORD 


OJ FIXED-POINT OVERFLOW BOUNDARY 
CD FLOATING-POINT DIVIDE OP 1 NOT EVEN NUMBERED REGISTER 


C] oPERATION OP 1 NOT ODD NUMBERED REGISTER 


TYPE LGTH. 
(BYTES) 


Condition Codes 


M iF RESULT = 0,SET TOO 
Mi if RESULT 40, SET TO1 
CIF RESULT >0, SET TO 2 
CJIF OVERFLOW, SET TO 3 
CJ UNCHANGED 










QO 
O) 
C) 
O 
OQ 
O 
O 
0 


NONE 





The and (Nl) instruction performs a logical AND operation on the contents of operand 1 
located in main storage and the one byte of immediate data in operand 2. The result is 
placed in operand 1. 


Explicit Format: 






AOPERATION A OPERAND 


[symbol] 





Implicit Format: 






A OPERATION A 


OPERAND 


[symbol] 


When the NI instruction is executed, a logical AND operation is performed on a bit in 
operand 1 and a bit in operand 2. The result of the AND operation replaces the bit just 
accessed in operand 1. This instruction operates from left to right. The length of operand 1 
can vary but the length of operand 2 is always one byte. Although operands 1 and 2 may 
have differing lengths, only one byte in operand 1 is used in conjunction with the one byte 
of immediate data in operand 2. The result replaces the one byte in operand 1 that was 
just accessed. If you do not specify the exact byte in operand 1 you want used in the 
execution with the one byte of data in operand 2, the first byte of operand 1 is used. 
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The NI instruction is used to turn off selected bits in the receiving field. The procedure is © 
shown in the following truth table: 


Result 
Operand 1 {| Operand 2 (Operand 1) 





When coding patterns used as operands in AND instructions, code a O in alt bit positions 
in operand 2 that correspond to bit positions in operand 1 that you want to set to off (0), 
and a 1 in all bit positions in operand 2 that correspond to bit positions in operand 1 that 
you want to remain the same. 


After the NI instruction is executed, the condition code is set to O if the result is all O's, or 
the condition code is set to 1 if the result is all 1’s or a combination of 1’s and O's. 


Operational Considerations: 
= Operand 1 must be a main storage location. 


= Operand 2 must be a 1-byte, self-defining term. 





= The length of operand 1 can vary. 


= <A zero ina bit position in operand 2 sets its corresponding bit position in operand 1 to 
0. 


= A 1 ina bit position in operand 2 allows its corresponding bit position in operand 1 to 
remain the same. 


# The condition code is set accordingly. 


= You can specify the exact byte in operand 1 you want used in the execution with the 
one byte in operand 2 through relative addressing. 


Example: 
LABEL AOPERATIONA ' OPERAND 
1 10 16 





Hi RESULT+1,B' 1DGGIG11 


. 
. 


RESULT DE BL2'OABBITITIGTIBIIBS 
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RESULT before execution of NI instruction: 


poaeiene +4 


0000 (1111/011011100 





binary 





hex 


ee 15 


Operand 2 before and after execution of NI instruction: 


1000 |1011 binary 


RESULT after execution of NI instruction: 


RESULT +1 
tas 


0000 !11111 10000 11000 
es 
0 78 15 











binary 


hex 


In this example, the content. of RESULT is a 2-byte binary string of O’s and 1’s and the 
immediate operand 2 is a 1-byte binary string of O’s and 1's. A logical AND operation is 
performed on the contents of the second byte of RESULT and the one byte in operand 2. 
The result replaces the second byte of RESULT. The 1’s in bit positions 0, 4, 6, and 7 of 
the immediate operand allow the corresponding bit positions in the second byte of RESULT 

- to remain the same. Zeros in bit positions 1, 2, 3, and 5 of the immediate operand set the 
corresponding bit positions in the second byte of RESULT to O. As a result, the second byte 
of RESULT has been changed from a hexadecimal 6C to a hexadecimal 08. 
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NR 





12.7. AND (NR) 


Possible Program Exceptions 


(J ADDRESSING CJ PROTECTION 








OBJECT 











sein ecco Rese (0 DATA (INVALID SIGN/DIGIT) | [] SIGNIFICANCE 
(Bytes) || DJ DECIMAL DiviDE CO SPECIFICATION: 
CJ DECIMAL OVERFLOW 
O execute 


NOT A FLOATING-POINT REGISTER 

OP 1 NOT ON HALF-WORD BOUNDARY 
OP 2 NOT ON HALF-WORD BOUNDARY 
OP 2 NOT ON FULL-WORD BOUNDARY 


OP 2 NOT ON DOUBLE-WORD 
BOUNDARY 


OP 1 NOT EVEN NUMBERED REGISTER 
OP 1 NOT ODD NUMBERED REGISTER 
NONE 


Condition Codes 


@ ir Resutt=0,set Too 
Wie Resutt <o, set to1 
OClif RESULT > 0, SET TO 2 
OF OVERFLOW, SET TO 3 
CJ UNCHANGED 







(J EXPONENT OVERFLOW 
C0 EXPONENT UNDERFLOW 
OD FIXED-POINT DIVIDE 

C1 FIxXeED-POINT OVERFLOW 
(CO FLOATING-POINT DIVIDE 
[J OPERATION 





g@OO OOO00 





The and (NR) instruction performs a logical AND operation on the contents of the operand 
1 and operand 2 registers. The result is placed in the operand 1 register. 


Explicit and Implicit Format: 









A OPERATION A OPERAND 


When the NR instruction is executed, a logical AND operation is performed on a bit in the 
operand 1 register and a bit in the operand 2 register. The result replaces the bit accessed 
in operand 1. This instruction operates from left to right starting with the logical AND 
operation of bit O in both registers up to and including the logical AND operation of bit 31 
in both registers. 


The NR instruction is used to turn off selected bits in the receiving field. The procedure is 
shown in the following truth table: 


Result 
Operand 1| Operand 2 (Operand 1) 
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When coding patterns used as operands in AND instructions, code O's in all bit positions 
in operand 2 that correspond to bit positions in operand 1 that you want to set to off (0), 
and a 1 in all bit positions in operand 2 that correspond to bit positions in operand 1 that 
you want to remain the same. 


After the NR instruction is executed, the condition code is set to O if the result is all O's, or 
the condition code is set to 1 if the result is all 1’s or a combination of 1’s and O’s. 


Operational Considerations: 
= Any of the general registers (0 through 15) can be used as operands 1 and 2. 


= The logical AND operation executes upon all 32 bit positions of the operand 1 and 2 
registers. 


= A zero in a bit position in operand 2 sets its corresponding bit position in operand 1 to 
0. 


= @A 1 ina bit position in operand 2 allows its corresponding bit position in operand 1 to 
remain the same. 


= The condition code is set accordingly. 





Example: 
LABEL AOPERATIONA OPERAND 
l 10 16 
LM 5,6, INFOIN 
NR 5,6 
DS OF 
INFOIN DC X' FFCCBBAA' 
DC X'CCBBEEDD' 


Register 5 before execution of NR instruction: 


1100 1100/1011 1011 1010 ;1010 


Register 6 before and after execution of NR instruction: 






binary 






hex 
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Register 5 after execution of NR instruction: 


1100 11100 {1000 | 1000 | 1010 {1010/1000 ;1000 


In this example, the LM instruction loads the two consecutive hexadecimal values aligned 
on a full-word boundary in main storage into registers 5 and 6. Then, a logical AND 
operation is performed on all 32 bits of registers 5 and 6. The result replaces register 5. 
The 1’s*in respective bit positions in register 6 allow the corresponding bit positions in 
register 5 to remain the same. The zeros in the remaining bit positions in register 6 set 
the corresponding bit positions in register 5 to O. in effect, the content of register 5 is 
completely changed. 
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CL 


12.8. COMPARE LOGICAL (CL) 


Possible Program Exceptions 


IB ADDRESSING Wi PROTECTION 

(0 DATA (INVALID SIGN/DIGIT) | [J SIGNIFICANCE 

(1 DECIMAL DivIDE @ sPeciFICATION: 

(J DECIMAL OVERFLOW NOT A FLOATING-POINT REGISTER 

0 execute OP 1 NOT ON HALF-WORD BOUNDARY 
(] EXPONENT OVERFLOW OP 2 NOT ON HALF-WORD BOUNDARY 
(1 EXPONENT UNDERFLOW OP 2 NOT ON FULL-WORD BOUNDARY 
C FIXED-POINT DIVIDE OP 2 NOT ON DOUBLE-WORD 

CJ FIxED-POINT OVERFLOW BOUNDARY 

(J FLOATING-POINT DIVIDE OP 1 NOT EVEN NUMBERED REGISTER 
(J OPERATION OP 1 NOT ODD NUMBERED REGISTER 

NONE 





OBJECT 
OPCODE FORMAT | INST. 











TYPE LGTH. 
(BYTES) 


Condition Codes 


@ irr, = oPERAND2,SET TOO 
Wir tr, <OPERAND 2,SET TO 1 
Wir r, > OPERAND 2, SET TO 2 
CJ tf OVERFLOW, SET TO3 

(UNCHANGED 




















OOO O#8O000 





The compare logical (CL) instruction logically compares the contents of the operand 1 
register to the full word in operand 2. The result of the comparison determines the setting 
of the condition code, bits 34 and 35 of the PSW. (See 8.1.) 


Explicit Format: 





A OPERATION A OPERAND 






[symbol] 


Implicit Format: 






A OPERATION A OPERAND 





[symbol] TS (x,) 


Both operands 1 and 2 are considered unsigned binary values with all codes valid. That is, 
the comparison takes place regardless of data format. This instruction operates from left to 
right starting with the logical comparison of bit O in both operands and ending as soon as 
an inequality is reached, or the logical comparison of bit 31 in both operands is reached. 
After execution of the CL instruction, the condition code is set: 

To O if operand 1 = operand 2 

To 1 if operand 1 < operand 2 


To 2 if operand 1 > operand 2 
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Usually, a conditional branch instruction tests the resulting condition code for an equal to, 
less than, or greater than condition. If the condition is met, a branch takes place 
accordingly. If not, the program continues processing as shown in the following coding 
instruction. 





Operational Considerations: 

a Any of the general registers (O through 15) can be used as operand 1. 

= Operand 2 must either be defined as a full word or aligned on a full-word boundary. 
= Both operands 1 and 2 are considered unsigned binary values. 

= The condition code is set accordingly. 

= Condition code 3 is not used. 


= = =©Operands 1 and 2 remain unchanged after execution of this instruction. 








Example: 
LABEL AOPERATIONA OPERAND 
1 10 16 
SR Ad 
& 8,=F'75! 
CL 8, FULVAL 
BH LOOP | 
ST 8, LOW 
LOOP | AR 4,8 
FULVAL DC F'64! 
LOW DS F 


Register 5 before and after execution of CL instruction. 


0000 10000 ; 0000 |0000 |0000 {0000 {0100 ;1011 











binary 


hex 
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@ FULVAL before and after execution of CL instruction: 


0000 10000 | 0000 10000 }0000 ; 0000 |0100 10000 


In this example, register 4 is cleared to O and the full-word value coded as a literal is 
loaded into register 8. Then the content of register 8 is logically compared to the full-word 
value in FULVAL. As the content of register 8 is greater than the content of FULVAL, the 
condition code is set to 2 and the branch to the instruction labeled LOOP1 takes place. If 
the result of the comparison was other than a greater than condition, no branch takes 
place and the ST instruction following the branch instruction is executed. 
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CLC 


12.9. COMPARE LOGICAL CHARACTERS (CLC) 


Possible Program Exceptions 


ADDRESSING Wi PROTECTION 

(J DATA (INVALID SIGN/DIGIT) | [1] SIGNIFICANCE 

(J DECIMAL DiviDE OO SPECIFICATION: 

© DECIMAL OVERFLOW NOT A FLOATING-POINT REGISTER 
1 execute OP 1 NOT ON HALF-WORD BOUNDARY 
C0 EXPONENT OVERFLOW OP 2 NOT ON HALF-WORD BOUNDARY 
XC) EXPONENT UNDERFLOW OP 2 NOT ON FULL-WORD BOUNDARY 
[) FIXED-POINT DIVIDE OP 2 NOT ON DOUBLE-WORD 


C1 F1x€D-POINT OVERFLOW BOUNDARY 
CO FLOATING-POINT DIVIDE OP 1 NOT EVEN NUMBERED REGISTER 


CJ OPERATION OP 1 NOT CODD NUMBERED REGISTER 
NONE 


OBJECT 
OPCODE FORMAT | INST. 


TYPE LGTH. 
(BYTES) 


Condition Codes 


Wir opi =0Pp2,s—ET TOO 
Wir op1 <op2,setto1 
Wir opi > op2, set To 2 
CF OVERFLOW, SET TO3 
(DI UNCHANGED 









Oo 
O 
Oo 
O 
O 
2) 
Oo 
O 





The compare logical characters (CLC) instruction logically compares the contents of 
operand 1 located in main storage to the contents of operand 2 located in main storage. 
The result of the comparison determines the setting of the condition code, bits 34 and 35 
of the PSW. (See 8.1.) 


Explicit Format: 






A OPERATION A OPERAND 





[symbol] d, (I,b, ),d, (b,) 


Implicit Format: 






OPERAND 


A OPERATION A 


[symbol] 


Both operands 1 and 2 are considered unsigned binary values with all codes valid. That is, 
the comparison takes place regardless of data format. This instruction operates from left to 
right starting with the logical comparison of bit O in both operands and ending as soon as 
an inequality is reached (or the end of the field is reached). The length of operand 1, 
whether implied or explicit, determines the length of operand 2. Therefore, when the CLC 
instruction is executed, the length of operands 1 and 2 are the same. 
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After execution of the CLC instruction, the condition code is set: 

To O if operand 1 = operand 2 

To 1 if operand 1 < operand 2 

To 2 if operand 1 > operand 2 
Usually, a conditional branch instruction tests the resulting condition code for an equal to, 
less than, or greater than condition. If the condition is met, a branch takes place 
accordingly. If not, the program continues processing as shown in the following coding 
instruction. 
Operational Considerations: 
= Operands 1 and 2 must be located in main storage. 


= Both operands 1 and 2 are considered unsigned binary values. 


= The length of operand 1, whether implied or explicit, determines the length of 
operand 2. 


= The condition code is set accordingly. 
= Operands 1 and 2 remain unchanged after the execution of this instruction. 


a Condition code 3 is not used. 


Example: 
LABEL AOPERATIONA OPERAND 
1 10 16 
ee ee ee ee aE eee 
CLC MONTH] (8) , MONTH2 
BE ADRTN 
MVC MONTH! (8) ,MONTH2 
ADRTN AP TOTAL ,MTD 
MONTH] DC CL8' NOVEMBER! 
MONTH2 DC CL8' DECEMBER! 
TOTAL DC PL3'28966' 


MTD DC P'52h! 
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MONTH1 before and after execution of CLC instruction: 





E 


M B 
1100 10101 | 1101 10100 {1100 ;0010 }1100;0101 110111003] 
efefefeleb fete lete 








N oO Vv 
















MONTH2 before and after execution of CLC instruction: 


D Cc E M 


E 

E B E 
1100] 0100} 1100); 0101 | 1100[0011 | 1100 10101 | 1101 ;0100 }1100 10010 110010101 
efefetefete [ets fete let [ele 


In this example, the content of MONTH1 is logically compared to the content of MONTH2. 
Since the content of MONTH1 (its binary value) is greater than the contents of MONTH2, the 
condition code is set to 2. The following branch instruction tests for an equal to condition 
(condition code of 0). Because that condition does not exist, no branch is taken, the MVC 
instruction following the BE branch instruction is executed, and the program continues 
processing. 
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CLCL 


12.10. COMPARE LOGICAL CHARACTERS LONG (CLCL) 





OBJECT 
INST. 
LGTH. 


cect [or] rR | 2 | 


Condition Codes 


WM iF op1=o0P2,SETTOO 


Ml ADDRESSING 
(1 DATA (INVALID SIGN/DIGIT) 
(CJ DECIMAL DIVIDE 

CZ DECIMAL OVERFLOW 

0 Execute 

CJ EXPONENT OVERFLOW 

(0 EXPONENT UNDERFLOW 

(J FIXED-POINT DIVIDE 

CO) FIxXeD-POINT OVERFLOW 

C FLOATING-POINT DIVIDE 

CJ OPERATION 







OPCODE 


FORMAT 
TYPE 





Mir op1<op2,settTo1 
Wirf oPp1> op 2,seETTO2 
DJF OVERFLOW, SET TO3 






Possible Program Exceptions 


@ PROTECTION 
OD SIGNIFICANCE 
WE SPECIFICATION: 



















NOT A FLOATING-POINT REGISTER 

OP 1 NOT ON HALF-WORD BOUNDARY 
OP 2 NOT ON HALF-WORD BOUNDARY 
OP 2 NOT ON FULL-WORD BOUNDARY 


OP 2 NOT ON DOUBLE-WORD 
BOUNDARY 


OP 1 NOT EVEN NUMBERED REGISTER 
OP 2 NOT EVEN NUMBERED REGISTER 


Det Beeee 





CO UNCHANGED 





NONE 





The compare logical characters long (CLCL) instruction logically compares operands 1 and 
2, both of which are areas in main storage, and sets the condition code according to the 
result. The two operands need not be the same length. If they are not, a padding character 
specified by operand 2 is used to extend the shorter operand; this character takes part in 
the comparison. 


Explicit and Implicit Formats: 









A OPERATION A OPERAND 


[symbol] 


The CLCL instruction uses two even-odd register pairs to specify the operands to be 


compared: 

) 7{8 

o————9 woe eae 
o————14 iia oe 


pad byte Operand 2 length 


Operand 1 31 


even-numbered register 








odd-numbered register 


Operand 2 


even-numbered register 


odd-numbered register 
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In action, the CLC instruction logically compares the byte at the operand 1 address with 
- the byte at the operand 2 address. If the bytes are equal, the next bytes in both main 
storage areas are compared. This process continues byte by byte, proceeding left to right, 
until either an inequality is found or until the longer of the two operands has been 
completely scanned and the two operands found equal. For comparison purposes all codes 
and digits are considered valid. If an inequality is found, the condition code is set 
accordingly and the instruction terminates. 


If one operand is shorter than the other, comparison proceeds as previously described until 
all of the shorter operand has been scanned (up to which point the two operands must 
have been equal). Beyond this point, comparison continues between the remaining bytes 
of the longer operand and a single pad byte that you specify in bits O—7 of the odd- 
numbered register in operand 2. Comparison ends when an inequality is found or when all 
remaining bytes have been scanned and found equal to the pad byte. 


When at least one operand exceeds 256 bytes in length, the CLCL instruction breaks 
execution down into units of operation, each of which compares 256 bytes. Interruptions 
are allowed between units; the CLCL instruction always responds by updating its registers 
so that execution can resume exactly where it left off. 


If execution of the CLCL instruction ends because of an inequality, the operand registers 
contain information about the operation as follows: 


= Odd-numbered register, both operands: 


Contain their original operand lengths reduced by the number of equal bytes scanned. 
If the pad byte is being used at the time, the length of the shorter operand is 0. 


® Even-numbered registers, both operands: 
Contain their original addresses increased the same number of bytes by which their 
corresponding length registers are reduced. For operands that are equal (the pad byte 
included if used), both length registers have a zero value when execution finishes. 

Programming Considerations: 

« Both r,; andr, must be specified as even registers. 

= When operand lengths differ, padding always occurs no matter which register pair 
specifies the shorter operand. Nevertheless, the pad byte must be specified when 
needed in the high order byte of the operand 2 odd-numbered register. 

a lf the contents of the r,; and rz registers are identical, condition code O is set. 

s One or both operands can have zero length. If only one operand has it, all 


comparisons take place between the other operand and the pad byte. If both lengths 
are 0, condition code O is set and the instruction terminates. 
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Condition Code: 

After execution of the CLCL instruction, the condition code is set: 

= to O if the two operands are equal, or if both operand lengths are zero; 
= to 1 if operand 1 is less than operand 2; or 

= to 2 if operand 1 is greater than operand 2. 


Condition code 3 is not used. 





Example: 
LABEL AOPERATIONA OPERAND 
1 10 16 
] s 
2. 
3. 
4, 
5. 
6. 
CHARI Dc CL7'7890018' 
CHAR2 DC CL2'78! 
DS OF 
PADBYTE DC XL4'FGGOOGGG' 


In this example, a 7-byte area in main storage starting at CHAR1 is compared to a 2-byte 
area, also in main storage, starting at CHAR2. The starting addresses for the two operands 
are loaded in registers 2 and 8. The respective operand lengths are loaded in registers 3 
and 9. At line 5, a logical OR operation on register 9 moves the pad byte FO into the high 
order (leftmost) eight bits of register 9. At line 6, the CLCL instruction is executed. When 
execution begins, the registers and main storage used are as follows (assuming CHAR1 to 
be at location 100): 


Register 2 Register 3 
Register 8 00000107 Register 9 


pad byte 


100 104 
phat: 6] ei | fem en 
107 
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Comparison proceeds as follows: 





direction of scan ———————> 


100 104 
om [Fle [ele lela [a 


comparison stops, 
condition code=2 






107 


ove [evr 


pad byte 
from register 9 


After the first two comparisons, all bytes are equal and the instruction runs out of operand 
2 (CHAR2) data. This causes all further comparisons to be made using the pad byte 
contained in register 9, which is the odd-numbered register of operand 2. The next three 
bytes of CHAR1 are found to be equal to the pad byte. However, the byte at operand 1 
location CHAR1+5 is greater than the pad byte, so the condition code is set to 2 and CLCL 
execution stops there. 


The CLCL registers, after execution is finished, contain: 


Register 2 00000105 Register 3 
Register 8 00000109 Register 9 


Notice that register 2 gives the exact location of the operand 1 byte that caused the 
inequality. 








e 
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12.11. COMPARE LOGICAL IMMEDIATE (CLI) 


OBJECT |) my ADDRESSING Ml PROTECTION 
ae (1 DATA (INVALID SIGN/DIGIT)| [) SIGNIFICANCE 
(BYTES) || DJ DECIMAL DIVIDE CO sPeciFicaTion: 
0 DECIMAL OVERFLOW NOT A FLOATING-POINT REGISTER 


OC] execute OP 1 NOT ON HALF-WORD BOUNDARY 
Condition Codes 


C] EXPONENT OVERFLOW OP 2 NOT ON HALF-WORD BOUNDARY 
W@iF OPERAND 1 = in, SET TOO 













OPCODE | FORMAT 
TYPE 





OO EXPONENT UNDERFLOW OP 2 NOT ON FULL-WORD BOUNDARY 

CO FIXED-POINT DIVIDE OP 2 NOT ON DOUBLE-WORD 

C0 FIXED-POINT OVERFLOW BOUNDARY 

1 FLOATING-POINT DIVIDE OP 1 NOT EVEN NUMBERED REGISTER 

C1] OPERATION OP 1 NOT ODD NUMBERED REGISTER 
NONE 


Wif oPERAND 1 <i,, SETTO1 
BB iF OPERAND 1 >'iz. SET TO2 
Cle OVERFLOW, SET TO3 

CO UNCHANGED 





The compare logical immediate (CLI) instruction logically compares the content of operand 
1 located in main storage to the 1-byte immediate data of operand 2. The result of the 
comparison determines the setting of the condition code, bits 34 and 35 of the PSW. (See 
8.1.) 


Explicit Format: 






A OPERATION A OPERAND 


[symbol] d, (b, ),i, 


Implicit Format: 






A OPERATION A OPERAND 






[symbol] 


Both operands 1 and 2 are considered unsigned binary values with all codes valid. That 
is, the comparison takes place regardless of data format. The length of operand 1 can vary 
in length but the length of operand 2 is always one byte. Although the lengths of operands 
1 and 2 differ, only one byte of operand 1 is compared to the one byte of immediate data 
in operand 2. If you don’t specify the exact byte in operand 1 you want logically compared 
to the one byte of data in operand 2, the first byte of operand 1 is used. This instruction 
operates from left to right starting with the logical comparison of bit O of the byte specified 
in operand 1 and bit O of operand 2, and ending as soon as an inequality is found, or the 
logical comparison of bit 7 of the byte specified in operand 1 and operand 2 is reached. 
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After the execution of the CLI instruction, the condition code is set: 





To O if operand 1 = operand 2 

To 1 if operand 1 < operand 2 

To 2 if operand 1 > operand 2 
Usually, a conditional branch instruction tests the condition code for an equal to, less 
than, or greater than condition. If that condition is met, the branch takes place. If not, no 
branch takes place and the program continues processing as shown in the following 
- coding instruction. 
Operational Considerations: 
= Operand 1 must be located in main storage. 


= Operand 2 must be a 1-byte self-defining term. 


= You can specify the exact byte in operand 1 that you want logically compared to the 
one byte in operand 2 through relative addressing. 


= Operands 1 and 2 remain unchanged after the execution of this instruction. 





= The condition code is set accordingly. 
= The length of operand 1 can vary. 


zt Condition code 3 is not used. 





Example: 
LABEL AOPERATIONA OPERAND 
] 10 16 
CLI STORAGE+1 ,X'F7! 
BE EQUALITY 
PACK STORAGEP (2) , STORAGE (3) 
EQUALITY MVC BUF (1) ,STORAGE+1 
BUF DC CL2'¢' 
STORAGE DC X'F6F7F2! 


STORAGEP. DC PL2'@' 
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STORAGE before and after execution of CLI instruction: 


STORAGE + 1 


aie a 
Byte to be compared 
with operand 2 


Operand 2 immediate before and after execution of CLI instruction: 


Fe l7 hex 


In this example, the second byte in STORAGE is compared to the 1-byte immediate data in 
operand 2. As the content of the second byte of STORAGE is equal to operand 2, the 
condition code is set to O, and the branch to the instruction labeled EQUALITY takes place. 
If the result of the comparison is not equal, no branch takes place, the PACK instruction 
following the branch instruction is executed, and the program continues processing. 


Example: 
LABEL AOPERATIONA OPERAND 
1 10 16 
LA 8,526 
CLI AREA,C'T! 
BE TOOLRTN 
MVI HOLD,C'T' 
TOOLRTN S 8,=F'1! 
AREA DC CL3'TI2' 


HOLD DC cLi' ' 
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AREA before and after execution of CLI instruction: 


fete fets [ete 
ai 


Byte to be compared 
with operand 2 






binary 


hex 





Operand 2 immediate before and after execution of CLI instruction: 


1110 [0011 binary 


In this example, register 8 is loaded with a value of 526. Then the contents of the first 
byte of AREA is logically compared to operand 2. Because no one byte is specified in 
AREA, the first byte is used. As the content of byte 1 of AREA is equal to the content of 
operand 2, the condition code is set to O, and the branch to the instruction labeled 
TOOLRTN takes place. If the result of the comparison is not equal, no branch takes place, 
the MVI instruction following the branch instruction is executed, and the program 
continues processing. 





Example: 
LABEL AOPERATIONA OPERAND 
1 10 16, 
LM 3,4,LOADREG 
CLI NUMIN,X'CT! 
BE STOCKNO 
MVI NEWHOLD,NUMIN 
STOCKNO AR 3,4 
NEWHOLD OC cLi! ! 
NUMIN DC CL4'A256! 
LOADREG DC F'S264! 


DC Fe? 
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& NUMIN before and after execution of the CLI instruction: 


1100 0001 









1100 | 0001 


In this example, two consecutive full words in main storage are loaded into registers 3 and 
4. The first byte of NUMIN is logically compared to the 1-byte immediate in operand 2. 
Because no one byte is specified in NUMIN, the first byte is moved. As the content of byte 
1 of NUMIN is equal to the content of operand 2, the condition code is set to O, and the 
branch to the instruction labeled STOCKNO takes place. If the result of the comparison is 
not equal, no branch takes place, the MVI instruction following the branch instruction is 
executed, and the program continues processing. 
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CLIS 





12.12. COMPARE LOGICAL IMMEDIATE AND SKIP (CLIS) 


Possible Program Exceptions 


@ ADDRESSING CO SIGNIFICANCE 














OBJECT 





























OPCODE | FORMAT | INST. [ DATA (INVALID SIGN/DIGIT) | wy speciFiCATION: 
TYPE LGTH. 
(BYTES) ( DECIMAL DIVIDE NOT A FLOATING-POINT REGISTER 


CJ DECIMAL OVERFLOW 

DO execute 

DC EXPONENT OVERFLOW 
(C2 EXPONENT UNDERFLOW 
C0 FIXED-POINT DIVIDE 

OC FIXED-POINT OVERFLOW 
CO FLOATING-POINT DIVIDE 
(0 OPERATION 
ff PROTECTION 


OP 1 NOT ON HALF-WORD BOUNDARY 
OP 2 NOT ON HALF-WORD BOUNDARY 
OP 2 NOT ON FULL-WORD BOUNDARY 


OP 2 NOT ON DOUBLE-WORD 
BOUNDARY 


OP 1 NOT EVEN NUMBERED REGISTER 
OP 1 NOT ODD NUMBERED REGISTER 


LOW-ORDER BIT OF OP 4 
DISPLACEMENT MUST BE ZERO 


Fen [Rex 
cus [er] sm | 6 | 
Condition Codes 


@ iF op 2=0P3,SsETTOO 

Wir op 2<0p3,sSetTo1 
iF oP 2>0P3,SET TO2 
OJ1F OVERFLOw, SET TO3 
(J UNCHANGED 









MOO ooood 





The compare logical immediate and skip (CLIS) instruction logically compares a byte in 
main storage, addressed by operand 1, with a byte of immediate data in operand 2, setting 
the condition code accordingly. A 4-bit mask that you specify in operand 3 uses the 
condition code to determine if program control goes to the next sequential instruction or 
branches to another location in the program. That location is specified by operand 4 as an 
offset from the instruction immediately following the CLIS instruction. 





Explicit. Format: 







A OPERATION A OPERAND 


Implicit Format: 








A OPERATION A 





LABEL OPERAND 
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The CLIS instruction operates much like a combined COMPARE LOGICAL IMMEDIATE and 
BRANCH ON CONDITION instruction. It compares the byte in main storage addressed by 
operand 1 to operand 2, a byte of immediate data. This comparison sets the condition code 
to 0, 1, or 2. At this point, the instruction calls on a 4-bit mask, specified by m3, to 
determine where program control goes. Each bit in the mask corresponds to a condition 
code as follows: 


Mask Value 
Object bit position 


Condition code 





If a condition code is set and the mask bit corresponding to that code has a value of 1, 
program control branches to the address specified in the operand 4 displacement. If the 
mask bit has a O value, program control unconditionally passes to the next sequential 
instruction. 


When a condition code mask bit is set to 1, the CLIS instruction algebraically adds the 12- 
bit displacement value contained in operand 4 to the value of the current program status 
word (PSW), effectively causing a branch to the new address..The displacement can be 
positive or negative, signifying, respectively, a branch forward or backward. The sign of the 
displacement is determined by its high order (leftmost) bit: O for positive, 1 for negative. 
Addition of the displacement to the current PSW takes place using the rules of twos 
complement arithmetic. 


You can specify the m, mask either with an absolute value or by coding. an extended 
mnemonic in place of CLIS in your assembler source program. The assembler provides six 
of these mnemonics for the CLIS instruction: all assemble into CLIS object instructions but 
each generates a different m3; mask value as shown in the following list. 


Branch if operand 1 is greater than operand 2 
Branch if operand 1 is less than operand 2 


Branch if operand 1 is equal to operand 2 


Branch if operand 1 is not greater than operand 2 


Branch if operand 1 is not less than operand 2 


Branch if operand 1 is not equal to operand 2 
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When using an extended mnemonic you use only three operands: the operand 1 address, 
the operand 2 immediate byte, and the operand 4 displacement, in that order. 


You can specify the displacement value yourself or you can let the assembler do it for 
you: 


= You can code the displacement as an absolute expression. In this case the 
assembler inserts the expression, unchanged, into the displacement field. 


= You can code the displacement as a relocatable expression. In this case the 
assembler simulates a branch to the specified location by calculating its offset from 
the address of the instruction immediately following CLIS and inserting the offset in 
the displacement field. 


Operational Considerations: 
a The displacement field can range from —2048 decimal bytes to +2046 bytes. 


= §€6The displacement must always be an even number of bytes because destination 
instructions must always lie on a half-word boundary. 


= A mask of 0 (0000,) causes the instruction always to branch to the next sequential 
instruction regardless of. the condition code set. Likewise, a displacement value of O 
causes an unconditional branch to the next instruction. 





= A mask of 15 (1111,) causes the CLIS instruction always to branch to the instruction 
specified by the displacement field. 


= You must specify both the mask and the immediate byte as self-defining terms. 
Condition Code: 

After execution of the CLIS instruction, the condition code is set: 

= to O if the operand 1 byte is equal to the i, byte; 

= to 1 if the operand 1 byte is less than the i, byte; or 

= to 2 if the operand 1 byte is greater than the i, byte. 


Condition code 3 is not used. 
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Example: 

LABEL AOPERATIONA OPE RAND ADDRESS 

1 10 16 
1. PACK PACKSTR(3) , CHARSTR+1 (5) 060180 
25 CLIS CHARSTR,X' 66! ,7,POS 006106 
3. | NEG NI PACKSTR+2,X'FD! GBG1GC 
k, B COMSTEP 060119 
5.] POS NI PACKSTR+2,X'FC! 060114 
6.|COMSTEP 9866118 

CHARSTR ~=—DC CL6'-44931! 

PACKSTR DS CL3 


In this example, a 5-byte EBCDIC number at CHARSTR is packed into a 3-byte number at 
PACKSTR, and the leading sign of CHARSTR is attached to PACKSTR. The object code 
addresses of the instructions are shown in the right margin in the preceding example. 
Before execution of the CLIS instruction in line 2, CHARSTR and PACKSTR contain: 


- 4 4 0 3 1 


own [o [eT [@ [5] al 


In the PACK operation, PACKSTR becomes an unsigned positive number; its actual sign is 
subsequently set by the CLIS instruction which: 


= compares the first byte of CHARSTR against an immediate byte, X‘60’ (EBCDIC minus 
sign); 


= sets up a branch to location POS if conditions are met, by adding the displacement 
between the next sequential instruction (at NEG) and POS (114—10C=8 bytes) to the 
current PSW; and 


= meets those conditions, causing the branch, if condition codes 1, 2, or 3 are set (mask 
value 44+2+1=7). 
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in action, the CLIS instruction finds CHARSTR equal to X’60’, setting condition code O. @ 
Since the mask bit for condition code O is not set, program control passes to the next 
sequential instruction, which is a NI instruction at location NEG that, in effect, attaches a 

packed negative sign to PACKSTR: 


racesn [wo [10] 


If CHARSTR were anything but X’60’, program control would pass to location POS, which 
attaches a packed positive sign to PACKSTR. 
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CLM 


12.13. COMPARE LOGICAL CHARACTERS UNDER MASK (CLM) 


Possible Program Exceptions 


By ADDRESSING Mi PROTECTION 











OBJECT 






OPCODE 
ae pedals oe (0 DATA (INVALID SIGN/DIGIT)| [1] SIGNIFICANCE 
| mnem. [HEX. | (BYTES) || J DECIMAL DIVIDE C SPECIFICATION: 


C1 DECIMAL OVERFLOW NOT A FLOATING-POINT REGISTER 
C) Execute OP 1 NOT ON HALF-WORD BOUNDARY 
CD EXPONENT OVERFLOW OP 2 NOT ON HALF-WORD BOUNDARY 
(0 EXPONENT UNDERFLOW OP 2 NOT ON FULL-WORD BOUNDARY 
0 FIXED-POINT DIVIDE OP 2 NOT ON DOUBLE-WORD 


OC FIXED-POINT OVERFLOW BOUNDARY 
CO FLOATING-POINT DIVIDE OP 1 NOT EVEN NUMBERED REGISTER 


CO operation OP 1 NOT ODD NUMBERED REGISTER 
NONE 


Pom [eof as | + | 
Condition Codes 


WM if op 1=0P 2,SsETTOO 

@ if op1<op2,setTo1. 
Wir orp1>op2,set To2 
(C1F OVERFLOW, SET TO3 
(CO UNCHANGED 





The compare logical characters under mask (CLM) instruction compares some or all of the 
bytes within the operand 1 register with a main storage location starting at the second 
operand address. The bytes to be compared are determined by a mask derived from 
operand 3. The condition code is set according to the result. 


Explicit Format: 






A OPERATION A OPERAND 


[symbo!] r, m3,d, (b,) 


Implicit Format: 





A OPERATION A OPERAND 
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The CLM instruction compares all or part of operand 1 with contiguous main storage data 
starting at the operand 2 address. The main storage bytes to be compared are contiguous, 
but you can select the bytes to be compared using a 4-bit mask (m3) defined by operand 3. 
Each bit in the mask corresponds to a byte within the operands. If a bit equals 1 its byte 
participates in the comparison; if the bit equals O its byte does not participate. The mask 
value of the bits and their corresponding bytes are as follows: 





Mask value 


Object code bit 





Byte (left to right) 


Thus, a mask value of 10 (8+2) specifies that the first and third bytes of the register are to 
take part in the comparison. The number of bytes in the operand 2 field equals the number 
of 1-bits in the mask. In operation, the leftmost register byte whose mask bit equals 1 is 
logically compared to the byte addressed by operand 2. Then, the next byte within the 
register having a mask bit of 1 is compared to the main storage byte immediately following 
the one used in the preceding comparison. This process is repeated for all 1-bits within 
the mask. Each comparison treats its bytes as unsigned binary data, the comparisons 
proceeding from left to right. 


Operational Considerations: 





= The operand 3 mask must be a self-defining term ranging from O to 15. 

= With a mask of 15 (1111,), the CLM instruction acts like a COMPARE instruction, 
comparing all four bytes within the operand 1 register to four bytes in main storage. 
The only difference between the two instructions is that the four bytes addressed by 
CLM need not reside on a full-word boundary. 

Condition Code: 

After execution of CLM, the condition code is set: 


= to O if the mask is all O’s or if the selected bytes are equal; 


= to 1 if the selected bytes of operand 1 are less than the corresponding bytes of 
operand 2; or 


= to 2 if the selected bytes of operand 1 are greater than the corresponding bytes of 
operand 2. 


Condition code 3 is not set. 
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Example: 
LABEL AOPERATIONA OPERAND 
1 10 16 
1. L 7,FWORD 
2. CLM 7,11, COMPMASK 
DS OF 
FWORD DC XL4'4F99782F! 
COMPMASK DC XL3'4F883E'! 


In this example, register 7 is compared to three bytes in main storage starting at 
COMPMASK. At the beginning of the CLM instruction, register 7 and COMPMASK have 
the following contents: 


Register 7 4F90782F 
COMPMASK 4 


The CLM instruction has a mask of 11 that causes the instruction to operate as follows: 


i|| 


Mask bit 1 0 1 1 (11) 
woot [oe [oo [we [>| 
Select bytes compare compare 


compare 


compare 





COMPMASK CcC=1 


The mask bits cause the CLM instruction to compare the first, third, and fourth bytes of 
register 7 with the three bytes at COMPMASK. The first operand 2 byte equals the first 
operand 1 byte; therefore, no conclusions can yet be drawn. However, the second operand 
2 byte (88) exceeds the second operand 1 byte (78), thus making the entire quantity at 
COMPMASK greater than the selected bytes in register 7. As a result, CLM sets the 
condtion code to 1. 
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CLR 





12.14. COMPARE LOGICAL (CLR) 


Possible Program Exceptions 


[J ADDRESSING (J PROTECTION 

[J DATA (INVALID SIGN/DIGIT) | [) SIGNIFICANCE 

(0 DECIMAL DIVIDE CJ SPECIFICATION: 

C] DECIMAL OVERFLOW NOT A FLOATING-POINT REGISTER 
OO execute OP 1 NOT ON HALF-WORD BOUNDARY 
(] EXPONENT OVERFLOW OP 2 NOT ON HALF-WORD BOUNDARY 
CJ EXPONENT UNDERFLOW OP 2 NOT ON FULL-WORD BOUNDARY 
CD FIXED-POINT DIVIDE OP 2 NOT ON DOUBLE-WORD 


OC F1xXED-POINT OVERFLOW BOUNDARY 
C] FLOATING-POINT DIVIDE OP 1 NOT EVEN NUMBERED REGISTER 


CO oPERATION OP 1 NOT ODD NUMBERED REGISTER 
NONE 









OBJECT 
OPCODE FORMAT | INST. 
TYPE LGTH. 

















anew [nex (eyes) 
pun [is] me | 2 | 


Condition Codes 
















@irr,=r,,setTtoo 
12 

Wire. <r,,seTtToi 

@ir vy > 15, SET TO 2 

(J1F OVERFLOW, SET TO 3 

(CJ UNCHANGED 

















BOO OooOo00 





The compare logical (CLR) instruction logically compares the content of the operand 1 
register to the content of the operand 2 register. The result of the comparison determines 
the setting of the condition code, bits 34 and 35 of the PSW. (See 8.1.) 





Explicit and Implicit Format: 






A OPERATION A OPERAND 


[symbol] 


Both operands 1 and 2 are considered unsigned binary values with all codes valid. That 
is, the Comparison takes place regardless of data format. This instruction operates from 
left to right starting with the logical comparison of bit O in both operands and ending as 
soon as an inequality is found, or the logical comparison of bit 31 in both operands is 
reached. 


After execution of the CLR instruction, the condition code is set: 

To O if operand 1 = operand 2 

To 1 if operand 1 < operand 2 

To 2 if operand 1 > operand 2 
Usually, a conditional branch instruction tests the resulting condition code for an equal to, 
less than, or greater than condition. If the condition is met, a branch takes place 


accordingly. If not, the program continues processing as shown in the following coding & 
instruction. 
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@ Operational Considerations: 


= Any of the general registers (0 through 15) can be used as operands 1 and 2. 


Both operands 1 and 2 are considered unsigned binary values. 
= The condition code is set accordingly. 
@ Operands 1 and 2 remain unchanged after the execution of this instruction. 


= Condition code 3 is not used. 





Example: 
LABEL AOPERATIONA OPERAND 
1 10 16 
SR 7,7 
L 5,=F'1250' 
A 7,=F'875' 
COMPARE CR 557 
BH ADD2 
CVD 7, DBLWD 
e B END 
ADD2 AH 7 =H! 375! 
B COMPARE 
END MVC BUF , DBLWD+5 
DBLWD DS D 
BUF DC PL3'@' 


In this example, register 7 is cleared to O. A full word containing the decimal value 1250 
is loaded into register 5. Another full word containing the decimal value 875 is added to 
register 7. Then the content of register 5 is logically compared to the content of register 7. 
Since the content of register 5 is greater than the content of register 7, the condition code 
is set to 2, and the branch to the instruction labeled ADD2 takes place. There, a half word 
containing the decimal value 375 is added to register 7. An unconditional branch to the 
instruction labeled COMPARE takes place and registers 5 and 7 are logically compared 
again. This time, the content of register 5 is equal to the content of register 7. Because an 
equal to condition exists, the condition code is set to 0, and no branch takes place. The 
CVD instruction following the branch instruction is executed and the program continues 
processing. 
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12.15. COMPARE AND SWAP UNDER MASK (CSM) 


Possible Program Exceptions 
ce eee WM ADDRESSING W@ PROTECTION 
OPCODE FORMAT | INST. 
een Cerd C1 DATA (INVALID SIGN/DIGIT)}| [] SIGNIFICANCE 


| mem. |HEX. | (Bytes) || CL] DECIMAL DiviDE Wi SPECIFICATION: 
C DECIMAL OVERFLOW NOT A FLOATING-POINT REGISTER 


OP 1 NOT ON HALF-WORD BOUNDARY 
OP 2 NOT ON HALF-WORD BOUNDARY 
OP 2 NOT ON FULL-WORD BOUNDARY 


OP 2 NOT ON DOUBLE-WORD 
BOUNDARY 


OP 1 NOT EVEN NUMBERED REGISTER 
OP 3 NOT EVEN NUMBERED REGISTER 
NONE 


D0 EXPONENT OVERFLOW 
Condition Codes ( EXPONENT UNDERFLOW 


@icoPi-ors ser io0 C FIXED-POINT DIVIDE 
@ it op1< op2,serto1 0 FIxED-POINT OVERFLOW 
W@i-orp1> op2,seETToO2 [] FLOATING-POINT DIVIDE 


(CJ1F OVERFLOW, SET TO 3 C] OPERATION 
(CO UNCHANGED 


OS® OwoO00 





The compare and swap under mask (CSM) instruction logically compares a full word of 
main storage addressed by operand 2 with some or all of the odd-numbered register of an 
even-odd register pair specified by operand 1. If the two operands are not equal the 
condition code is set and execution ends there. If the two operands are equal the condition 
code is set, and then the instruction replaces some or all of the operand 2 field with data 
contained in the odd-numbered register of an even-odd register pair specified by operand 
3. You select the bits to be compared using a 32-bit mask in the even-numbered register 
of operand 1. You select the operand 2 bits to be replaced using a 32-bit mask in the 
even-numbered register of operand 3. 





Explicit Format: 






A OPERATION A OPERAND 


[symbol] 


Implicit Format: 







A OPERATION A OPERAND 


[symbol] 
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@ The CSM instruction acts basically like a sequence of the COMPARE, BRANCH ON 
CONDITION, and STORE instructions. What separates the CSM instruction from the 
sequence is the use of 32-bit register masks in both the comparison and replacement 
steps. The comparison step uses an even-odd register pair, the even-numbered member of 
which is specified as operand 1. Within this pair, the odd-numbered register provides the 
data to be logically compared against the operand 2 full word, and the even-numbered 
register determines, using a combination of O and 1 bits, which bits actually take part in 
the comparison. Only operand 2 bits whose corresponding bits in the mask are 1 take part. 
A zero bit in the mask causes its corresponding bit to be ignored, to have no effect on the 
result of the comparison. Thus, an operand 1 mask containing FFOOOOO0,, causes 
comparison to take place as follows: 


F F 0 0 (¢) 0 0 0 


Operand 1 comparison register C ¢| 2000 01xx | 2000. 900°] 210000 000%] 


Py XXXX sox | 3000 00% XXXX XXXX 








Operand 2 full word 


condition 
code 
set 


® 
With this mask, comparison takes place using only the first byte of operands 1 and 3. The 
operands as a whole may be unequal, but in this instance equality is determined solely by 
comparing their respective first bytes. All signs and codes are considered valid for 


comparison purposes. The comparison step sets the condition code, which remains 
unchanged for the remainder of the instruction. 


If the masked operand 1 register does not equal the corresponding data in the operand 2 
full word, the CSM instruction terminates and control passes to the next instruction in 
sequence. If the operands are equal, the instruction proceeds to its second step, using 
another even-odd register pair, the even-numbered member of which is specified as 
operand 3. The odd-numbered register makes available 32 bits of data for replacement of 
data in the operand 2 full word. The bits that the instruction actually replaces are 
determined by the mask contained in the even-numbered register. If a mask bit position 
has a value of 1, the corresponding bit in the operand 3 odd-numbered register replaces 
the corresponding bit in the operand 2 full word. If a mask bit position has a value of 0, its 
corresponding bit in operand 2 remains unchanged. Thus, an operand 3 mask of 
OOFFFFFF,, causes bit replacement to take place as follows: 
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0 0 0 0 0 0 F F 


0000 0000 0000 0000 0000 O000 1111 1111 


Operand 3 replacement data 





Operand 2 full word 


The condition code is set according to the result of the comparison step and remains 
unchanged through the rest of the instruction. 


Operational Considerations: 
# Both r, and r; must be even-numbered registers. 
= Operand 2 must reside on a full-word boundary. 


= An operand 1 mask of zero (OOO00000,,) sets the condition code to 0 and causes bit 
replacement to take place according to the operand 3 registers. 


= Using r, and rz; masks of FFFFFFFF,, causes CSM to act like a COMPARE-BRANCH 
ON CONDITION-STORE instruction sequence in that it deals with whole registers 
without masking out any bits. @ 





Condition Code: 
After execution of the CSM instruction, the condition code is set: 


s to O if the masked bits of the operand 1 odd-numbered register equal their 
corresponding operand 2 bits (causing operand 3 bit replacement to take place); 


= to 1 if.the masked operand 1 data is less than the operand 2 data (preventing operand 
3 bit replacement); or 


= to 2 if the masked operand 1 data is greater than the operand 2 data (preventing 
operand 3 bit replacement). 





UP-8913 SPERRY UNIVAC OS/3 12-47 





Example: 
LABEL AOPERATIONA OPERAND 
1 10 16 
1 ° 
2. 
3. 
h, 
FWORD1 DC Fi-2! 
FWORD2 DC Filmy! F 
EX1 pc XL8'OFOFOFOFFFFFFFFE ! 
DC XL8'FOFGFOFOEEEEEEEE! 
EX2 DC XL8' GOO8O0O8FFFFFFFF! 
DC XL8'FOFGFOFADDDDDDDD! 


In this example, two CSM instructions both use full-word FWORD1 as the main storage 
operand 2. After the LM instruction in line 1 is executed, registers 2 through 5 and 
FWORD1 have the following contents: 


Register 2 OFOFOFOF Register 3 FFFFFF Fer 
Register 4 FOFOFOFO Register 5 
FWORD1 FFFFFFFE 


When the CSM instruction in line 2 is executed, it first uses the even-numbered operand 
1 register, register 2, to mask a comparison between register 3 and FWORD1. 





Register 2 OFOFOFOF 
Register 3 F 
FWORD1 


Only the shaded data shown takes part in the comparison. Although three of the four half 
bytes thus compared are equal, the low order half byte of FWORD1 is less than its 
corresponding register 3 half byte. This result sets the condition code to 2 and terminates 
CSM at once, leaving FWORD1 unchanged. 


Next, the LM instruction at line 3 loads the following data into registers 2 through 5: 


Register 2 00080008 Register 3 FFFFFFFF 
Register 4 FOFOFOFO Register 5 DDDDDDDD 
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Upon execution of the CSM instruction in line 4, the register 2 mask governs comparison 
of register 3 with FWORD2 as follows: 


ie) 0 0 8 0 0 0 8 


Register 2 0000 0000 0000 4000 0000 0000 0000 






Register 3 1111 1111 #1111 


FWORD2 14440199901999 $411 1997-919990-9991 a1 


As a result of the operand 1 mask, only shaded bits 12 and 28 are compared. Because all 
bits involved are equal, the condition code is set to O and CSM execution continues with 


the bit replacement step. In that step, the operand 3 mask in register 4 governs bit 
replacement from register 5 to FWORD2 as follows: 


Register 4 


Register 5 


FWORD2 





As a result of the mask, every other half byte in FWORD2 is replaced by its corresponding 
-half byte in register 5. The condition code remains set to O. 
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12.16. EXCLUSIVE OR (X) 


Possible Program Exceptions 


OBJECT 
ADDRESSING Hi PROTECTION 
OPCODE FORMAT | INST. a 
a VEE eres [I] DATA UNVALID SIGN/DIGIT)| [J SIGNIFICANCE 
NEN: (Bytes) || (J DECIMAL DIVIDE W@ SPECIFICATION: 
CO DECIMAL OveRFLOW NOT A FLOATING-POINT REGISTER 


CJ execute OP 1 NOT ON HALF-WORD BOUNDARY 


CL] EXPONENT OVERFLOW OP 2 NOT ON HALF-WORD BOUNDARY 
Condition Codes CD EXPONENT UNDERFLOW 


OP 2 NOT ON FULL-WORD BOUNDARY 
Mie REcULT eo SET 16 CO FIXED-POINT DIVIDE OP 2 NOT ON DOUBLE-WORD 
W ic ReEsuLT #0, SET TO? OC FIXED-POINT OVERFLOW BOUNDARY 

Cif RESULT > 0, SET TO 2 (J FLOATING-POINT DIVIDE OP 1 NOT EVEN NUMBERED REGISTER 
CF OVERFLOW, SET TO3 (] OPERATION OP 1 NOT ODD NUMBERED REGISTER 
[CI UNCHANGED 


NONE 





O 
O 
O 
a 
O 
O 
O 
O 


The exclusive or (X) instruction performs an exclusive OR operation on the content of the 
operand 1 register and the full word in operand 2. The result is placed in operand 1 and 
also determines the setting of the condition code, bits 34 and 35 of the PSW. (See 8.1.) 


Explicit Format: 









A OPERATION A OPERAND 


[symbol] r, d,(x,,b,) 


Implicit Format: 





A OPERATION A OPERAND 


When the X instruction is executed, an exclusive OR operation is performed on a bit in 
operand 1 and a bit in operand 2. The result of the exclusive OR operation replaces the bit 
just accessed in operand 1. This instruction operates from left to right starting with the 
exclusive OR operation of bit O in both operands up to and including the exclusive OR 
operation of bit 31 in both operands. 
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The X instruction is used to modify bits in the receiving field. The procedure is shown in 


the following truth table: 
Result 
0 


1 
0 
1 











== 0O0 


When coding patterns are used as operands in exclusive OR instructions, the following 
codes are set: 


= Qin all bit positions in operand 2 that correspond to bit positions in operand 1 that 
you want to remain the same. 


= 1 in all bit positions in operand 2 that correspond to bit positions containing O’s in 
operand 1 that you want set to 1. 


2 1 in all bit positions in operand 2 that correspond to bit positions containing 1's in 
operand 1 that you want set to O. 


After the X instruction is executed, the condition code is set as follows: 





To O if result is all O’s. 
To 1 if result is a combination of 1's and O's. 
Operational Considerations: 
= Any of the general registers (O through 15) can be used as operand 1. 
= Operand 2 must be either defined as a full word or aligned on a full-word boundary. 
a The condition code is set accordingly. 


a Condition codes 2 and 3 are not used. 
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Example: 
LABEL AOPERATIONA OPERAND 
] 10 16 
L 6,VAL 
X 6,XPATTERN 
DS OF 
VAL DC X'PABSCAF2! 
XPATTERN DNC X'SABSCSBD' 


Register 6 before execution of X instruction: 






0000 | 0000 | 0000 | 0000; 1100 ,1010 411110010 binary 






XPATTERN before and after execution of X instruction: 













0000 !0000 {0000 10000] 1100 10101 | 0000: 1101 binary 
Register 6 after execution of X instruction: 
0000 0000 |0000 {0000/0000 |1111 ravi] binary 


12-51 
Update B 


In this example, the content of VAL is loaded into register 6. Then the exclusive OR 
operation is performed on the contents of register 6 and the contents of XPATTERN. The 
resultant modified binary string is placed in register 6. Since the result is a combination of 
O’s and 1‘s, the condition code is set to 1. 
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12.17. EXCLUSIVE OR (XC) 


Possible Program Exceptions 


OBJECT || gy ADDRESSING Mi PROTECTION 
OPCODE | FoRmAT | INST. 0 
TYPE LGTH. (1 DATA (INVALID SIGN/DIGIT) SIGNIFICANCE 
HEX (eytes) || CD) DECIMAL DIVIDE CO sPEciFICATION: 
OC] DECIMAL OVERFLOW NOT A FLOATING-POINT REGISTER 


OO execute OP 1 NOT ON HALF-WORD BOUNDARY 


OC EXPONENT OVERFLOW OP 2 NOT ON HALF-WORD BOUNDARY 
Condition Codes (0 EXPONENT UNDERFLOW 


OP 2 NOT ON FULL-WORD BOUNDARY 
CO FIXED-POINT DIVIDE OP 2 NOT ON DOUBLE-WORD 

He actus ce Er Od C0 FIXED-POINT OVERFLOW BOUNDARY 

Clit RESULT >O, SET TO2 C0 FLOATING-POINT DIVIDE 


OP 1 NOT EVEN NUMBERED REGISTER 
LIF OVERFLOW, SET TO 3 C0 oPeRATION OF Or Op ON CMEEREO aes 
[LI UNCHANGED 


O 
O 
O 
C) 
C 
0 
O 
O 


NONE 





The exclusive or (XC) instruction performs an exclusive OR operation on the contents of 
operand 1 and operand 2, both located in main storage. The result is placed in operand 1 
and also determines the setting of the condition code, bits 34 and 35 of the PSW. (See 
8.1.) 





Explicit Format: 






A OPERATION A OPERAND 





[symbol] d, (Ib, ),d, (b,) 


Implicit Format: 








A OPERATION A 





LABEL 


OPERAND 


When the XC instruction is executed, an exclusive OR operation is performed on a bit in 
operand 1 and a bit in operand 2. The result of the exclusive OR operation replaces the bit 
accessed in operand 1. This instruction operates from left to right. The length of operand 
1, whether implied or explicit, determines the length of operand 2. Therefore, when the XC 
instruction is executed, the lengths of operands 1 and 2 are the same. 
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The XC instruction is used to modify bits in the receiving field. The procedure is shown in 
the following truth table: 


eee 
Operand 1 Operand 2 eee 1) 


1 i 
0 1 
1 @) 


When coding patterns are used as operands in exclusive OR instructions, the following 
codes are set: 










io) 


# 0 in all bit positions in operand 2 that correspond to bit positions in operand 1 that 
you want to remain the same. 


# 1 in all bit positions in operand 2 that correspond to bit positions containing O's in 
operand 1 that you want set to 1. 


= 1 in all bit positions in operand 2 that correspond to bit positions containing 1‘s in 
operand 1 that you want set to O. 


After the XC instruction is executed, the condition code is set as follows: 
To O if result is all O's. 
To 1 if result is a combination of 1’s and O's. 

Operational Considerations: 

= Operands 1 and 2 must be located in main storage. 

= The condition code is set accordingly. 


= Operands 1 and 2 can have overlapping bytes. 





Example: 
LABEL AOPERATIONA OPERAND 
1 10 16 
XC A,B 
XC BA 
A DC BL1'G6G11611' 
B DC BL1'66018861' 





UP-8913 SPERRY UNIVAC OS/3 12-54 


ASSEMBLER 


A before execution of first XC instruction: 


000111011 binary 


hex 


B before and after execution of first XC instruction: 


: 
: 


binary 


hex 


A after execution of first XC instruction: 


0000 | 1010 binary 


hex 


B before execution of second XC instruction: 


0001 10001 binary 


hex 


A before and after execution of second XC instruction: 


000011010 binary 


hex 


B after execution of second XC instruction: 


000111011 binary 


hex 


In this example, the exclusive OR operation is performed on the contents of A and B. The 
resultant modified binary string of 1’s and O's is placed in A. Then another exclusive OR 
operation is performed on the contents of B and A (now modified). That resultant modified 
binary string of 1’s and O’s is placed in B. Note that the sequence of executions of the 
exclusive OR operation on A and B, then B and A, results in A containing the resultant 
modified binary string and B containing the original contents of A. Note that the original 
contents of A is saved without use of another area in main storage. 
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Xl 







aes. See 


12.18. EXCLUSIVE OR (XI) 
INST. 


Possible Program Exceptions 
OPCODE FORMAT 
TYPE LGTH. 


8 ADDRESSING a] PROTECTION 
oO DATA (INVALID SIGN/DIGIT) O SIGNIFICANCE 


(CD DECIMAL Div!DE (] SPECIFICATION: 
Condition Codes 


2 DECIMAL OVERFLOW NOT A FLOATING-POINT REGISTER 
WM irf RESULT = 0, SET TOO 






O execute OP 1 NOT ON HALF-WORD BOUNDARY 

CO EXPONENT OVERFLOW OP 2 NOT ON HALF-WORD BOUNDARY 

0 EXPONENT UNDERFLOW OP 2 NOT ON FULL-WORD BOUNDARY 

C0 FIXED-POINT DIVIDE OP 2 NOT ON DOUBLE-WORD 

C0 FIxXE0-POINT OVERFLOW BOUNDARY 

C1 ELOATING-POINT DIVIDE OP 1 NOT EVEN NUMBERED REGISTER 

(] oPERATION OP 1 NOT ODD NUMBERED REGISTER 
NONE 


@ if RESULT #0, SET TO1 
Clit RESULT >0, SET TO 2 
(C1F OVERFLOW, SET TO 3 
(CI UNCHANGED 





The exc/usive or (X\|) instruction performs an exclusive OR operation on the contents of 
one byte of operand 1 located in main storage and the one byte of immediate data in 
operand 2. The result is placed in operand 1 and also determines the setting of the 
condition code, bits 34 and 35 of the PSW. (See 8.1.) 


Explicit Format: 






A OPERATION A OPERAND 


[symbol] 


Implicit Format: 





A OPERATION A 


OPERAND 


When the XI instruction is executed, an exclusive OR operation is performed on a bit in 
operand 1 and a bit in operand 2. The result of the exclusive OR operation replaces the bit 
accessed in operand 1. This instruction operates from left to right. The length of operand 1 
can vary but the length of operand 2 is always one byte. Although operands 1 and 2 may 
have differing lengths, only one byte in operand 1 is used in the exclusive OR operation. 
The result replaces the one byte in operand 1 that was accessed. If you do not specify the 
exact byte in operand 1 you want used in the exclusive OR operation, the first byte of 
operand 1 is used. 
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The XI instruction is used to modify bits in the receiving field. The procedure is shown in 
the following truth table: 


Result 





1 
0 


When coding patterns are used as operands in exclusive OR instructions, the following 
codes are set: 





# 0 in all bit positions in operand 2 that correspond to bit positions in operand 1 that 
you want to remain the same. 


= 1 in all bit positions in operand 2 that correspond to bit positions containing O’s in 
operand 1 that you want set to 1. 


a 1 in all bit positions in operand 2 that correspond to bit positions containing 1’s in 
operand 1 that you want set to O. 


After the XI instruction is executed, the condition code is set as follows: 





To O if result is all O's. 

To 1 if result is a combination of 1’s and O's. 
Operational Considerations: 
= Operand 1 must be a main storage location. 
= = Operand 2 must be a 1-byte self-defining term. 
= The length of operand 1 can vary. 
s The condition code is set accordingly. 


= You can specify the exact byte in operand 1 you want used with the one byte in 
operand 2 through relative addressing. 
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Example: 

LABEL AOPERATIONA ee OPERAND 
l 10 16 : 

CLC 1 TEMNO(1) ,STNDNO 

BE SWTCHON 
SWTCHON XI ITEMNO+1,'@1! 

MVC PROCESS, ! TEMNO 
ITEMNO DC X' F268! 
STNDNO NC X'F2! 
PROCESS DS CL2 


iITEMNO before execution of XI instruction: 


1111|0010|0000 | 0000 
Pee ee 


Operand 2 immediate before and after execution of XI instruction: 











binary 


hex 


hex 


0000! 0001 binary 


ITEMNO after execution of XI instruction: 


binary 





In this example, the first byte of ITEMNO is logically compared to the content of STNDNO. 
Since they compare equally, the condition code is set to O and the branch to the 
instruction labeled SWTCHON takes place. There, the exclusive OR operation is performed 
on the first byte of ITEMNO and the one byte of data in operand 2. The result replaces the 
first byte in ITEMNO. The only change to the content of ITEMNO is the setting of the low 
order bit. This is an example of how the XI instruction can be used in setting programmed 
binary bit switches that are useful in testing for existing conditions within the logic of the 
program. 
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XR 





12.19. EXCLUSIVE OR (XR) 


Possible Program Exceptions 
OBJECT || (7 ADDRESSING CO] PROTECTION 
OPCODE | FORMAT | INST. 
N/DIGIT SIGNIFICANCE 
Ema caret (0 DATA (INVALID SIGN/ 40 


| Mnem. [HEX.| (Bytes) || CD) DECIMAL DiviDE () SPECIFICATION: 
D0 DECIMAL OVERFLOW NOT A FLOATING-POINT REGISTER 
pm [fae [2 |loesecre 


OP 1 NOT ON HALF-WORD BOUNDARY 
OP 2 NOT ON HALF-WORD BOUNDARY 
OP 2 NOT ON FULL-WORD BOUNDARY 


OP 2 NOT ON DOUBLE-WORD 
BOUNDARY 


OP 1 NOT EVEN NUMBERED REGISTER 
OP 1 NOT ODD NUMBERED REGISTER 
NONE 


CO) ExPONENT OVERFLOW 
Condition Codes C1 EXPONENT UNDERFLOW 


Mir RESULT = 0,SET TOO Bee ee rot eeIvine 
M@ ie wesuct to. ser7104 C F1x€D-POINT OVERFLOW 


Clif RESULT >0, SET TO2 DC FLOATING-POINT DIVIDE 
DIF OVERFLOW, SET TO 3 DD OPERATION 
CI UNCHANGED 





@OoO ooooo 


The exclusive or (OR) instruction performs an exclusive OR operation on the contents of 
the operand 1 register and operand 2 register. The result is placed in the operand 1 
register and also determines the setting of the condition code, bits 34 and 35 of the PSW. 
(See 8.1.) 





Explicit and Implicit Format: 






A OPERATION A OPERAND 


{symbol] 


When the XR instruction is executed, an exclusive OR operation is performed on a bit in 
the operands of 1 and 2 registers. The result of the exclusive OR operation replaces the bit 
just accessed in operand 1. This instruction operates from left to right starting with the 
execution of the exclusive OR operation on bit O in both registers up to and including bit 
31 in both registers. 


The XR instruction is used to modify bits in the receiving field. The procedure is shown in 
the following truth table: 


Result 
Operand 1 Operand 2 (Operand 1) 
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When coding patterns are used as operands in exclusive OR instructions, the following 
codes are set: 


= 0 in all bit positions in operand 2 that correspond to bit positions in operand 1 that 
you want to remain the same. 


# 1 in all bit positions in operand 2 that correspond to bit positions containing O's in 
operand 1 that you want set to 1. 


= 1 in all bit positions in operand 2 that correspond to bit positions containing 1's in 
operand 1 that you want set to O. 


After the XR instruction is executed, the condition code is set as follows: 
To O if result is all O's. 
To 1 if result is a combination of 1’s and O's. 
Operational! Considerations: 
= Any of the general registers (0 through 15) can be used as operands 1 and 2. 


# The condition code is set accordingly. 





Example: 
LABEL AOPERATIONA OPERAND 
1 10 16 
SR 4k 
L 7, CONTENTS 
A 7,=F'25! 
CVD 7, DBLWD 
MVC AREA, DBLWD+5 
XR 7,7 
CONTENTS DC F'S9' 
DBLWD DS D 


AREA DS PL3 
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Register 7 before execution of XR instruction: 


0000 10000 | 0000 | 0000 | 0000 ; 0000 }0011 10010 


Register 7 after execution of XR instruction: 


0000 {0000 | 0000 | 0000 | 0000 10000 | 0000 }0000 


In this example, the full word in CONTENTS is loaded into register 7. A full word 
containing the decimal value of 25 is added to register 7, and that result is converted into 
its decimal equivalent and placed in DBLWD in main storage. Then the content of the last 
three bytes of DBLWD are moved into a smaller field, and the exclusive OR operation is 
performed on the contents of register 7 and itself. The result is a field of O's. This is 
another method of clearing a field to O's. 









—jen 
—pe 






binary 


hex 
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ic 


12.20. INSERT CHARACTER (IC) 


OBJECT |! gy ADDRESSING M@ PROTECTION 
















OPCODE | FORMAT | INST. 
Sone LGTH (J DATA (INVALID SIGN/DIGIT) | [1] SIGNIFICANCE 
MNEM. (BYTES) [] DECIMAL DIVIDE CO SPECIFICATION: 


[} DECIMAL OVERFLOW 

OC) Execute 

(] EXPONENT OVERFLOW 
CO EXPONENT UNDERFLOW 
OC FIXED-POINT DIVIDE 

0 FIxED-POINT OVERFLOW 
CO FLOATING-POINT DIVIDE 
C] OPERATION 


NOT A FLOATING-POINT REGISTER 

OP 1 NOT ON HALF-WORD BOUNDARY 
OP 2 NOT ON HALF-WORD BOUNDARY 
OP 2 NOT ON FULL-WORD BOUNDARY 


OP 2 NOT ON DOUBLE-WORD 
BOUNDARY 


OP 1 NOT EVEN NUMBERED REGISTER 
OP 1 NOT ODD NUMBERED REGISTER 
NONE 


Condition Codes 


Clif RESULT = 0,SET TOO 


Ole RESULT <0, SET TO1 
DF RESULT > 0, SET TO 2 
OCJtF OVERFLOW, SET TO3 
ME UNCHANGED 


OOO OOO00 





The insert character (IC) instruction places one byte of data from operand 2 into the 
rightmost byte of the operand 1 register. 


Explicit Format: 








LABEL A OPERATION A 





OPERAND 






[symbol] rd, (x, ,b,) 


Implicit Format: 






A OPERATION A OPERAND 





[symbol] r, 85 (X,) 


The data in operand 2 can be defined in any format. The length of operand 2 can vary but 
the length of operand 1 is always four bytes. Although operands 1 and 2 can have 
differing or equal lengths, only one byte of operand 2 is inserted into the rightmost byte of 
the operand 1 register. The remaining three bytes of operand 1 remain the same. If you do 
not specify the exact byte in operand 2 you want inserted into operand 1, the first byte of 
operand 2 is used. 
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Operational Considerations: 





= §=6Any of the general registers (0 through 15) can be used as operand 1. 
= §=«The length of operand 2 can vary. 


= You can specify the exact byte in operand 2 you want inserted into the rightmost byte 
of operand 1 through relative addressing. 


= = =§=The condition code remains unchanged. 








Example: 
LABEL AOPERATIONA OPERAND 
1 10 16 
L 4 HEXVAL 
CLC HEXVAL+3(1) ,NEWVAL 
BNE INSERT 
INSERT IC k ,NEWVAL 
DS OF 
HEXVAL DC X'BBBG64A2 ' 
NEWVAL DC X' Fu! 


Register 4 before execution of IC instruction: 


HEXVAL+3 










0000 | 0000} 0000! 0000 | 0110 ;0100 1010 ,0010 binary 
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@ NEWVAL before and after execution of IC instruction: 


Register 4 after execution of instruction: 





0000 | 0000 | 0000 ; 0000 |0110 ;0100 {1111 rece binary 
hex 


In this example, the content of HEXVAL is loaded into register 4. Then the fourth byte of 
HEXVAL is logically compared to the one byte in NEWVAL. Since the content of 
HEXVAL+3 is greater than NEWVAL, the condition code is set to 2 and the branch to the 
instruction labeled INSERT takes place because a not equal to condition exists. There, the 
1-byte field in NEWVAL is inserted into the rightmost byte of register 4. 





eee 
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ICM 


12.21. 


General 




































0 DECIMAL OVERFLOW 

OJ execute 

CO] EXPONENT OVERFLOW 
CO ExPONENT UNDERFLOW 
CO FIXED-POINT DIVIDE 

DD FixED-POINT OVERFLOW 
CO FLOATING-POINT DIVIDE 
(1D OPERATION 


Condition Codes 


Mset too 
MBsertro1 
Mserto2 
CISettTo3 
CO UNCHANGED 









OBJECT 
ADDRESSING 
OPCODE | FORMAT | INST. a 
SAKE etn (J DATA (INVALID SIGN/DIGIT) 
(Bytes) || LD) DECIMAL DivIDE 


12-64 
Update B 


INSERT CHARACTERS UNDER MASK (ICM) 


Possible Program Exceptions 


W PROTECTION 

CJ SIGNIFICANCE 

(C1 SPECIFICATION: 

NOT A FLOATING-POINT REGISTER 
OP 1 NOT ON HALF-WORD BOUNDARY 
OP 2 NOT ON HALF-WORD BOUNDARY 
OP 2 NOT ON FULL-WORD BOUNDARY 


OP 2 NOT ON DOUBLE-WORD 
BOUNDARY 


OP 1 NOT EVEN NUMBERED REGISTER 
OP 1 NOT ODD NUMBERED REGISTER 
NONE 



























Doe Obloood 


The insert characters under mask (ICM) instruction inserts contiguous bytes from storage 
starting at the operand 2 address into the operand 1 register, according to a pattern 


determined by a 4-bit mask in operand 3. 


Explicit Format: 






LABEL A OPERATION A 


[symbol] 


Implicit Format: 










AOPERATION A 


[symbol] 


OPERAND 


r,.m,,d, (b,) 


OPERAND 
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The ICM instruction replaces any or all bytes within the operand 1 register with bytes 
located at the operand 2 address in main storage. The bytes to be replaced are determined 
by the 4-bit operand 3 mask, in which each bit corresponds to a byte within the register 
into which data is to be inserted: 


Mask value 
Object code bit 


Register byte (left to right) 





Thus, a mask value of 9 (8+1) replaces the two end bytes in the register while a value of 6 
(4+2) replaces the two middle bytes. 


The number of bytes in operand 2 equals the number of bits in the operand 3 mask. In 

operation, the first byte at operand 2 is inserted into the leftmost byte of the register for 

which a 1 bit exists in the mask. The process continues from left to right within the mask, 

the storage field of operand 2, and the operand 1 register. Bytes within the register whose 

mask bits equal O are left unchanged. 

Operational Considerations: 

=  Operand 3 must be a self-defining term between O and 15. 

= Operand 2 need not reside on a full-word boundary. 

= For a mask of 15 (1111,), the ICM instruction acts like a combination of a LOAD 
instruction and a LOAD AND TEST instruction, moving four bytes from storage into all 
four bytes of the operand 1 register and setting the condition code according to the 
result. 

Condition Code: 

After execution of the ICM instruction, the condition code is set: 


= to O if the operand 3 mask is zero, or if all bits inserted are zero; 


= to 1 if the high order bit of operand 2 is 1 (making operand 2 algebraically negative); 
or , 


= to 2 if the high order bit of operand 2 is O (making operand 2 algebraically positive). 


Condition code 3 is not used. Note that the condition code is set according to operand 2, 
not operand 1. 


UP-8913 
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Example: 
LABEL AOPERATIONA OPERAND 
1 10 16 
1. L 5,=F'-1! 
2. ICM 5,5,MASKBYTE 
MASKBYTE DC XL2'6g11! 


In this example, the LOAD instruction in line 1 puts a value of —1 into register 5: 


Register 5 FFFFFFFF 


The ICM instruction at line 2, using a mask of 5 and main storage starting at location 
MASKBYTE, operates on register 5 as follows: 


Mask bits 0 1 0 1 (5) 
no no 
change change 
insert insert 
character character 
Register 5 
MASKBYTE 





The first and third bits of the mask are O; therefore, the first and third bytes of register 5 
remain unchanged. But the second mask bit is 1, so the byte at MASKBYTE is inserted 
into the second byte of the register. Likewise, the fourth mask bit is 1, so the fourth byte 
of register 5 is replaced by the byte at MASKBYTE+1. 
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12.22. LOAD ADDRESS (LA) 


OBJECT || [J ADDRESSING C] PROTECTION 
















OPCODE | corm INST. 
ab ba ee (J BATA (INVALID SIGN/OIGIT)| [] SIGNIFICANCE 
MNEM. (Bytes) || ) DECIMAL DiviDE C] sPECIFICATION: 





LD DECIMAL OVERFLOW 

CO Execute 

(1 EXPONENT OVERFLOW 
(1) EXPONENT UNDERFLOW 
(CO FIXED-POINT DIVIDE 

(CD FIXED-POINT OVERFLOW 
(CO FLOATING-POINT DIVIDE 
1] OPERATION 


NOT A FLOATING-POINT REGISTER 

OP 1 NOT ON HALF-WORD BOUNDARY 
OP 2 NOT ON HALF-WORD BOUNDARY 
OP 2 NOT ON FULL-WORD BOUNDARY 


OP 2 NOT ON DOUBLE-WORD 
BOUNDARY 


OP 1 NOT EVEN NUMBERED REGISTER 
OP 1 NOT ODD NUMBERED REGISTER 
NONE 


rc 
5 


Condition Codes 


Clif RESULT = 0,SET TOO 
Or Resutt<0,s—T To1 
(Clif RESULT > 0, SET TO 2 
(iF OVERFLOW, SET TO 3 
BB UNCHANGED 







C) 
O 
O 
| 
O 
O 
O 
a 





The /oad address (LA) instruction places the address of the main storage location of 
operand 2 into bit positions 8 through 31 (rightmost 3 bytes) of the operand 1 register. Bits 
O through 7 (leftmost byte) of the operand 1 register are set to O’s. 


Explicit Format: 






A OPERATION A OPERAND 





[symbol] r, d(x, ,b,) 


Implicit Format: 






A OPERATION A 


OPERAND 


[symbol] 


Operand 2 can be any byte in main storage and does not have to be aligned on a full-word 
boundary. Operand 2 can also be a self-defining term. The three rightmost bytes of 
operand 1 are filled and the leftmost byte of operand 1 is set to O's. 

Operational Considerations: 


Any of the general registers (0 through 15) can be used as operand 1. 


= §8©Any of the general registers (1 through 15) can be used as operand 2. These registers 
are used as self-defining terms. 


= Operand 2 can be any label in main storage. 











eee eee 
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Example: 
LABEL AOPERATIONA OPERAND 
1 10 16 
eae Ne ear ee ae a Pe eB OD cares NT a Sy ee a ar 
SR 4k 
LA 6 ,CARDIN+38 
ZAP WKLYHRS ,=P 'g! 
ADDLOOP PACK 6(3,6) ,6(3,6) 
AP WKLYHRS , (3,6) 
A 4 ,CONI 
A 6 ,CON3 
c 4 ,CON7 
BL ADDLOOP 
CARDIN DS CL8¢ 
WKLYHRS DS PL3 
CON] DC F'y! 
CON3 DC F'3! 
CON7 DC F'7! 


In this example, register 4 is cleared to 0. Then, the LA instruction loads the address of 
CARDIN+38 into register 6. The ZAP instruction sets the field labeled WKLYHRS to a 

= packed field of O’s. Since the address of the byte located at card column 39 is in register 
6, the PACK instruction packs the 3-byte field (defined in explicit format) into itself. Note 
that there is a displacement value of O. Therefore, the base address is not modified 
through displacement values. The 3-byte packed field is now added to WKLYHRS which 
will eventually contain the total number of hours an employee works in one week. A full 
word containing the decimal value of 1 is added to register 4 each time a 3-byte field is 
packed and added to WKLYHRS. Register 4 acts as a counter to keep track of the number 
of times the ADDLOOP routine has been executed. A full word containing the decimal 
value of 3 is added to register 6 modifying the address by increasing it 3 bytes each time 
the A instruction is executed. This allows the successive fields on the input card to be 
processed. Then, the content of register 4 is compared to the decimal value of 7 in CON7. 
The branch if low (BL) instruction tests the condition code for a less than condition. Since 
the content of register 4 is less than the content of CON7, a branch to the instruction 
labeled ADDLOOP takes place. The ADDLOOP routine is executed seven times. After the 
seventh execution, the content of register 4 is not less than CON7 and the instruction 
following the BL instruction is executed. 











() 
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12.23. MOVE IMMEDIATE (MVI) 


OBJECT 
OPCODE | FORMAT 
TYPE 







ADDRESSING 













OC DECIMAL OVERFLOW 
0 execute 

C1 EXPONENT OVERFLOW 
(0 EXPONENT UNDERFLOW 









Possible Program Exceptions 


@ PROTECTION 








oe (J DATA (INVALID SIGN/DIGIT) | [] SIGNIFICANCE 
MNEM. (BYTES) || D) DECIMAL DiviDEe (0 SPECIFICATION: 





12-69 





MvI 










NOT A FLOATING-POINT REGISTER 

OP 1 NOT ON HALF-WORD BOUNDARY 
OP 2 NOT ON HALF-WORD BOUNDARY 
OP 2 NOT ON FULL-WORD BOUNDARY 


Condition Codes 


Cif RESULT = 0, SET TOO 
OOiFf RESULT <o, SETTO1 
Clif RESULT > 0, SET TO 2 
DJF OVERFLOW, SET TO 3 
GB UNCHANGED 










OP 2 NOT ON DOUBLE-WORD 
BOUNDARY 

OP 1 NOT EVEN NUMBERED REGISTER 
OP 1 NOT ODD NUMBERED REGISTER 


CO FIXED-POINT DIVIDE 

(CO FtxED-POINT OVERFLOW 
0 FLOATING-POINT DIVIDE 
[ED OPERATION : 










Ooo OOOO0 


z 
fo} 
2 
m 





The move immediate (MV\) instruction places the one byte of immediate data in operand 2 
into one byte of operand 1 located in main storage. 


Explicit Format: 









A OPERATION A OPERAND 


[symbol] di, (b,).i, 


Implicit Format: 






OPE RAND 


A OPERATION A 





[symbol] MVI 


The data in operands 1 and 2 can be defined in any format. The length of operand 1 can 
vary but the length of operand 2 is always one byte. Although operands 1 and 2 can have 
differing lengths, only one byte in operand 1 receives the immediate data from operand 2. 
If you do not specify the exact byte in operand 1 you want to receive the operand 2 data, 
the first byte of operand 1 is used. 
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Operational Considerations: 

a Operand 1 must be a main storage location. 

= Operand 2 must be a 1-byte, self-defining term. 
= The length of operand 1 can vary. 


= You can specify the exact byte in operand 1 you want to receive the immediate data 
in operand 2 by relative addressing. 





Example: 
LABEL AOPERATIONA OPERAND 
1 10 16 
MVI OUTPUT ,X' 4g! 
MVC OUTPUT+1 (7) , OUTPUT 
OUTPUT DS cL8 


OUTPUT before execution of MVI instruction: 


0000 10000 0000! op00 0000 | 0000 |0000 | 0000 /0000 , 0000] 0011 11101 1100! 1010 |0100 11100 
a ere ee 


leftover data from previous program 











Operand 2 immediate before and after execution of MVI instruction: 


0100 ;0000 binary 


hex 
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OUTPUT after execution of MVI instruction: 


1100 | 1010 |0100 {1100 binary 





only byte changed 


OUTPUT after execution of MVC instruction: 





In this example, the one byte of immediate data in operand 2 is placed in the first byte of 
OUTPUT since no exact byte is specified. Then that first byte of OUTPUT is propagated 
through that entire field. The length attribute (in this example, 7) can be either implied or 
explicit and determines the number of bytes that the first byte is propagated through. 
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12.24. OR (O) 


Possible Program Exceptions 


f AODRESSING W@ PROTECTION 

(J DATA (INVALID SIGN/DIGIT) | (] SIGNIFICANCE 

(J DECIMAL DIVIDE @ SPECIFICATION: 

(J DECIMAL OVERFLOW NOT A FLOATING-POINT REGISTER 
(execute OP 1 NOT ON HALF-WORD BOUNDARY 
OJ EXPONENT OVERFLOW OP 2 NOT ON HALF-WORD BOUNDARY 
CJ EXPONENT UNDERFLOW OP 2 NOT ON FULL-WORD BOUNDARY 
(J FIXED-POINT DIVIDE OP 2 NOT ON DOUBLE-WORD 


DC FIXED-POINT OVERFLOW BOUNDARY 
(0 FLOATING-POINT DIVIDE OP 1 NOT EVEN NUMBERED REGISTER 


(J OPERATION OP 1 NOT ODD NUMBERED REGISTER 
NONE 



















OBJECT 
INST. 
LGTH. 
(BYTES) 

















OPCODE FORMAT 
TYPE 





MNEM. [HEX, 


Condition Codes 


@ iF RESULT = 0,SET TOO 
W@ if RESULT #0,SETTO1 
Clif RESULT >0, SET TO 2 
DIF OVERFLOW, SET TO 3" 
(J UNCHANGED : 



































OOO O8o000 


The or (O) instruction performs a logical OR operation (sometimes referred to as an 
inclusive OR operation) on the contents of the operand 1 register and the full word in 
operand 2. The result is placed in the operand 1 register. 


Explicit Format: 






A OPERATION A OPERAND 


[symbol] 


Implicit Format: 






A OPERATION A 


OPERAND 


[symbol] 


When the O instruction is executed, a logical OR operation is performed on a bit in 
operand 1 and a bit in operand 2. The result of that OR operation replaces the accessed bit 
in operand 1. This instruction operates from left to right starting with the logical OR 
operation of bit O in both operands up to and including the logical OR operation of bit 31 
in both operands. 
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The O instruction is used to modify bits in the receiving field. The procedure is shown in 


the following truth table: 
Result 
Operand 2 (Operand 1) 





When coding patterns are used as operands in logical OR instructions, the following codes 
are set: 


= O in all bit positions in operand 2 that correspond to bit positions in operand 1 that 
you want to remain the same. 


a 1 in all bit positions in operand 2 that correspond to bit positions in operand 1 that 
you want to set to 1. 


After the O instruction is executed, the condition code is set as follows: 
To O if result is all O’s. 
To 1 if result is a combination of 1’s and O’s. 
Operational Considerations: 
m Any of the general registers (0 through 15) can be used as operand 1. 
= Operand 2 must be either defined as a full word or aligned on a full-word boundary. 


™ The condition code is set accordingly. 


Example: 
LABEL AOPERATIONA OPERAND 
1 10 16 
L 11,NUMX 
0 11,PATRNO 
DS GF 
NUMX DC X'SSOOFOFO' 


PATRNO DC X'OOFFOFGF' 
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Register 11 before execution of O instruction: 













0000 | 0000 |0000 {0000 | 1111 0000/1111 ,0000 binary 


PATRNO before and after execution of O instruction: 


0000 ; 0000 | 1111 ;1111}0000{1111/0000;1111 





binary 
Register 11 after execution of O instruction: 
0000 ; 0000 paraitans frattinaa fission binary 





In this example, the content of NUMX is loaded into register 11 and then a logical OR 
operation is performed on the content of register 11 and the content of PATRNO. The 
resultant modified binary string replaces register 11. 











UP-8913 
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oc 


12.25. OR (OC) 









Possible Program Exceptions 


OBJECT || gy ADDRESSING MI PROTECTION 






OPCODE 
oe pena een (J DATA UNVALID SIGN/DIG!IT)| [] SIGNIFICANCE 
(BYTES) || [J DECIMAL DIVIDE C sPECIFICATION: 


OC DECIMAL OVERFLOW 
0 ExeCUTE 


NOT A FLOATING-POINT REGISTER 

OP 1 NOT ON HALF-WORD BOUNDARY 
OP.2 NOT ON HALF-WORD BOUNDARY 
OP 2 NOT ON FULL-WORD BOUNDARY 


OP 2 NOT ON DOUBLE-WORD 
BOUNDARY 


OP 1 NOT EVEN NUMBERED REGISTER 
OP 1 NOT ODD NUMBERED REGISTER 


Condition Codes 


Mir RESULT =0,SET TOO 


(0 EXPONENT OVERFLOW 
(CJ EXPONENT UNDERFLOW 
OD FIXED-POINT DIVIDE 

O FIXED-POINT OVERFLOW 
OC FLOATING-POINT DIVIDE 
(C0 OPERATION 


ir Resuct #0, set TO1 
OF RESULT >0, SET TO 2 
OIF OVERFLOW, SET TO 3 
DCI UNCHANGED 


OOO OoOoOoOO 


z 
O° 
z 
m 





The or (OC) instruction performs a logical OR operation (sometimes referred to as an 
inclusive OR operation) on the contents of operands 1 and 2 located in main storage. The 
result is placed in operand 1. 


Explicit Format: 









A OPERATION A OPERAND 





[symbol] d, (Ib, ),d, (b,) 


Implicit Format: 









A OPERATION A OPERAND 


[symbol] 


When the OC instruction is executed, a logical OR operation is performed on a bit in 
operand 1 and a bit in operand 2. The result of the logical OR operation replaces the 
accessed bit in operand 1. This instruction operates from left to right. The length of 
operand 1, whether implied or explicit, determines the length of operand 2. Therefore, 
when the OC instruction is executed, the lengths of operands 1 and 2 are the same. 
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The OC instruction is used to modify bits in the receiving field. The procedure is shown in @ 
the following truth table: 


Result 
Operand 1 Operand 2 (Operand 1} 








When coding patterns are used as operands in logical OR instructions, the following codes 
are set: 


# O in all bit positions in operand 2 that correspond to bit positions in operand 1 that 
you want to remain the same. 


a 1 in all bit positions in operand 2 that correspond to bit positions in operand 1 that 
you want to set to 1. 


After the OC instruction is executed, the condition code is set as follows: 


To O if result is all O's. 





To 1 if result is a combination of 1’s and O's. 
Operational Considerations: 
= Operands 1 and 2 must be located in main storage. 
= The condition code is set accordingly. 


a Operands 1 and 2 can have overlapping bytes. 





Example: 
LABEL AOPERATIONA OPE RAND 
1 10 16 
oc CONSTANT ,CONDIT] 
oc CONSTANT , CONDI T2 
CONSTANT DC B' SPGAAGGG' 
CONDIT! DC B'SSPOGG11' 


CONDIT2 DC B'SH18166' 








UP-8913 SPERRY UNIVAC OS/3 12-77 
ASSEMBLER 





CONSTANT before execution of OC instruction: 


0000 10000 binary 


hex 


Before and after execution of OC instruction: 


CONDIT1 CONDIT2 


0000 {0011 001011000 binary 


CONSTANT after execution of first OC instruction: 


t binary 


of} 8 
8 
~To 
Wit oO 
= 
a 


hex 


CONSTANT after execution of second OC instruction: 


001011011 binary 


hex 


In this example, a logical OR operation is performed on the contents of CONSTANT and 
CONDIT1 and the result is placed in CONSTANT. Then, another logical OR operation is 
performed on the contents of CONSTANT (now modified) and CONDIT2. That result 
replaces the contents of CONSTANT. This is an example of the way programmed switches 
can be used to set several conditions. 
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Ol 





12.26. OR (Ol) 


General 
OBJECT 
OPCODE FORMAT | INST. 
TYPE LGTH. 


Condition Codes 


Wir RESULT = 0,SET TOO 
@ if ResuLt #0, set TO1 
Clif RESULT >O, SET TO 2 
CIF OVERFLOW, SET TO 3 
(J UNCHANGED 





Possible Program Exceptions 


Wj ADDRESSING MB PROTECTION 

(0 DATA (INVALID SIGN/DIGIT) | (] SIGNIFICANCE 

(J DECIMAL Divide (C1 SPECIFICATION: 

CJ DECIMAL OVERFLOW NOT A FLOATING-POINT REGISTER 

CF execute OP 1 NOT ON HALF-WORD BOUNDARY 
CJ EXPONENT OVERFLOW OP 2 NOT ON HALF-WORD BOUNDARY 
[0 EXPONENT UNDERFLOW OP 2 NOT ON FULL-WORD BOUNDARY 
CZ FIXEO-POINT DIVIDE OP 2 NOT ON DOUBLE-WORD 


CJ FIXED-POINT OVERFLOW BOUNDARY 
C] FLOATING-POINT DIVIDE OP 1 NOT EVEN NUMBERED REGISTER 


[] OPERATION oP 1 NOT ODD NUMBERED REGISTER 
NONE 









































oe: Benen 


The or immediate (Ol) instruction performs a logical OR operation on the contents of 
operand 1 located in main storage and the one byte of immediate data in operand 2. The 
result replaces one byte in operand 1. 





Explicit Format: 






A OPERATION A OPERAND 


[symbol] d, (b, ),i, 


Implicit Format: 






A OPERATION A OPERAND 


[symbol] 


When the OI instruction is executed, a logical OR instruction is performed on a bit in 
operand 1 and a bit in operand 2. The result of the logical OR operation replaces the 
accessed bit in operand 1. This instruction operates from left to right. The length of 
operand 1 can vary but the length of operand 2 is always one byte. Although operands 1 
and 2 may have differing lengths, only one byte in operand 1 is used in the logical OR 
operation. The result replaces the one byte in operand 1 that was accessed. If you do not 
specify the exact byte in operand 1 you want used in the logical OR operation, the first 
byte of operand 1 is used. 
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@ The Ol instruction is used to modify bits in the receiving field. The procedure is shown in 
the following truth table. 


Result 
(Operand 1) 


0 
1 
1 
1 


When coding patterns are used as operands in logical OR instructions, the following codes 
are set: 









= O in all bit positions in operand 2 that correspond to bit positions in operand 1 that 
you want to remain the same. 


| 1 in all bit positions in operand 2 that correspond to bit positions in operand 1 that 
you want to set to 1. 


After the Ol instruction is executed, the condition code is set as follows: 
To O if result is all O’s. 
To 1 if result is a combination of 1’s and O's. 

Operational Considerations: 

= = Operand 1 must be a main storage location. 

= Operand 2 must be a 1-byte self-defining term. 

= The length of operand 1 can vary. 

= The condition code is set accordingly. 


= You can specify the exact byte in operand 1 you want used in the logical OR 
operation through relative addressing. 


eee ee ne 
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LABEL AOPERATIONA OPE RAND 
1 10 16 
AP AMTP, VAL 
UNPK AMT (5) , AMTP 
Ol AMT+4,X' FQ! 
AMTP DC PL3'652! 
VAL DC P'522! 
AMT DS ZL5 


AMT before execution of OI instruction: 


AMT+4 


111110000 |1111 10001] 1111 ,0001| 1111/0111; 1100 ;0100 


Operand 2 immediate before and after execution of Ol instruction: 


111110000 


AMT after execution of Ol instruction: 


1111! 0000 111110001 
Pe 


In this example, the packed decimal contents of AMTP and VAL are added together and 
the result is placed in AMTP. Then the UNPK instruction changes the packed format of 
AMTP to the zoned decimal format and puts the result in AMT. In order to print a decimal 
number, it must be in zoned decimal format and each number must be preceded by a 
hexadecimal F. Otherwise, an alpha character will be printed as the rightmost byte. Note 
that the last byte in AMT has a hexadecimal C in its zone portion. The OI instruction 
allows a logical OR operation to be performed on the contents of byte 5 in AMT and the 
one byte of data in operand 2. The result replaces byte 5 of AMT. Now the decimal 
number in AMT can be printed. 










binary 


hex 





























Ee it ee ee es 
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OR 


12.27. OR (OR) 


General 


OBJECT 
OPCODE FORMAT | INST. 


Possible Program Exceptions 


([] ADDRESSING OJ] PROTECTION 

(1 DATA (INVALID SIGN/DIGIT) | (] SIGNIFICANCE 

(J DECIMAL DiviDE O SPECIFICATION: 

(1) DECIMAL OVERFLOW NOT A FLOATING-POINT REGISTER 
O execute OP 1 NOT ON HALF-WORD BOUNDARY 
OP 2 NOT ON HALF-WORD BOUNDARY 
OP 2 NOT ON FULL-WORD BOUNDARY 


OP 2 NOT ON DOUBLE-WORD 
BOUNDARY 


OP 1 NOT EVEN NUMBERED REGISTER 
OP 1 NOT ODD NUMBERED REGISTER 
NONE 


TYPE LGTH. 
MNEM. JHEX., (BYTES) 


Condition Codes 


Wir RESULT =0,SET TOO 
@ if ResuLt #0,SETTO1 
CJ1F RESULT >0O, SET TO 2 
C]tF OVERFLOW, SET TO 3 
[CJ UNCHANGED 





(] EXPONENT OVERFLOW 
1 EXPONENT UNDERFLOW 
OO FIXED-POINT DIVIDE 

CJ FIXED-POINT OVERFLOW 
(C) FLOATING-POINT DIVIDE 
(J OPERATION 







BOO oOoO000 





The or (OR) instruction performs a logical OR operation on the contents of the operand 1 
register and operand 2 register. The result is placed in the operand 1 register and also 
determines the setting of the condition code, bits 34 and 35 of the PSW. (See 8.1.) 


Explicit and Implicit Format: 






A OPERATION A OPERAND 


[symbol] 


When the OR instruction is executed, a logical OR operation is performed on a bit in the 
operand 1 and operand 2 registers. The result of the logical OR operation replaces the 
accessed bit in operand 1. This instruction operates from left to right starting with the 
execution of the logical OR operation on bit O in both registers up to and including bit 31 
in both registers. 


The OR instruction is used to modify bits in the receiving field. The procedure is shown in 
the following truth table: 


Result 
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When coding patterns are used as operands in logical OR instructions, the following codes & 
are set: 


= 0 in all bit positions in operand 2 that correspond to bit positions in operand 1 that 
you want to remain the same. 


= 1 in all bit positions in operand 2 that correspond to bit positions in operand 1 that 
you want to set to 1. 


After the OR instruction is executed, the condition code is set as follows: 
To O if result is all O’s. 
To 1 if result is a combination of 1’s and O’s. 
Operational Considerations: 
= Any of the general registers (0 through 15) can be used as operands 1 and 2. 
= =The condition code is set accordingly. 
Example: 


LABEL AOPERATIONA OPERAND 


10 16 e@ 


re errata epee 


L 4 HEX#I 

L 8 ,HEX#2 

OR 4,8 

DS OF 
HEX#1 DC X'GHB1S1CB! 
HEX#2 OC X'SCBABFFS! 


Register 4 before execution of OR instruction: 


0000 1 0000} 0000 | 0001 0000 | 0001 | 1100; 0000 
eee eee per ee tee 






binary 


hex 
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& Register 8 before and after execution of OR instruction: 


00001 1100) 0000 ; 1010 |0000 , 1111 
noe 


Register 4 after execution of OR instruction: 


0000! 1100/0000 11011 )0000 ;1111 1111 10101] 
fetefotefole[rte 


In this example, the content of HEX#1 is loaded into register 4 and the content of HEX#2 
is loaded into register 8. Then a logical OR operation is performed on the contents of 
registers 4 and 8. The result replaces the content of register 4. 










binary 






hex 











binary 


hex 
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SLDL 


12.28. SHIFT LEFT DOUBLE LOGICAL (SLDL) 


ease. een 
OPCODE FORMAT | INST. 
TYPE LGTH. 


Possible Program Exceptions 


(J) ADDRESSING C1 PROTECTION 
(1 DATA UNVALID SIGN/DIGIT) | [] SIGNIFICANCE 
(0 DECIMAL DiviDE Mi SPECIFICATION: 



















| MNEM. | HEX. (BYTES) 









C] DECIMAL OVERFLOW [1 NOTA FLOATING-POINT REGISTER 
fsto. feo] rs | 4 CO execute (] oP 1 NOT ON HALF-WORD BOUNDARY 
C1 EXPONENT OVERFLOW C) oP 2 NOT ON HALF-WORD BOUNDARY 
OC ExPONENT UNDERFLOW QO) op 2.NOT ON FULL-WORD BOUNDARY 
PICeRESURRIee TaD C0 FIXED-POINT DIVIDE Oop 2. NoT ON DOUBLE-woRD 
Clit Resuct <0, seTTO1 (2 FIxED-POINT OVERFLOW a BOUNDARY 
PERESULTS oer 10% Cl FLOATING-POINT DIVIDE OP 1 NOT EVEN NUMBERED REGISTER 
(Jif OVERFLOW, SET TO 3 (] OPERATION oP 1 NOT ODD NUMBERED REGISTER 
MEUNCHANGED O None 





The shift left double logical (SLDL) instruction shifts all of the 63 bits of operand 1 to the 
left by the number of bits specified in the low order six bits of the operand 2 address. 
Specify the even-numbered register of the pair as operand 1. 


Explicit Format: 






A OPERATION A OPERAND 


{symbol] 






Implicit Format: 


LABEL A OPERATION A OPERAND 


[symbol] 
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Operational Considerations: 


= Any pair of general registers (0 through 15) can be used as operand 1, which is an 


even-odd register pair. You must specify the even-numbered register of the pair as - 
operand 1. 


The main storage address or label you specify in operand 2 is not changed by the 
SLDL instruction execution. Notice the formats indicate that you cannot specify a 
length in operand 2. 


= After the requested number of bits are shifted out of the operand 1 register pair, 
zeros fill the rightmost bit positions of the register pair. 





Example 1: 
LABEL AOPERAT IONA OPERAND 
} 10 16 
LM 4,5, VALUE 
SLDL 4 32 
DS OF sags 
VALUE DC X'FFFFFFFF! 
DC X'FFFFFFFF! 


In this example, register 4 is loaded with the content of main storage location VALUE. 
Register 5 is loaded with the next 32 bits of main storage following VALUE. The SLDL 
instruction causes the contents of the registers to be shifted left 32 bits. 


Registers 4 and 5 before execution of SLDL instruction: 


Register 4 

















Register 5 
! t I 1 ! 1 i { 
PgR OR pCR | OR Se Pea pee | OR ep ae oe pe | oe oe cea ge hex 
| t 
rest porta antares frases at onf aba sant atta ania faa fran binary 
Registers 4 and 5 after execution of SLDL instruction: 
; 
0000 ; 0000 | 0000 ; 0000 | 0000 } 0000] 0000! 000 | binary 
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Example 2: 





This example using the SLDL has the same shift result except that a label is used as 
operand 2 of the SLDL instruction. 





LABEL AOPERATIONA OPERAND 
1 10 16 
LM 4,5, VALUE 
SLDL 4 STORAGE 
pas DS OF 
VALUE pc 2XL4"FFFFFFFE! 
STORAGE  EQU X'2g! 


in this example, the absolute value of the main storage location STORAGE determines the 
number of bits that operand 1 should be shifted left. The operand 2 label is equated (EQU 
instruction) with a hexadecimal value that indicates how many bit positions you want to 
move. This is necessary so that the assembler takes the absolute value that you equated 
with your label and not its relocatable address. Note that a hexadecimal 20 is equivalent to 
a decimal 32. 





Registers 4 and 5 before execution of SLDL instruction: 


| | I 
t | 
restora na} anata aan 11924919117)17111147111 TT EEPEEEE 


STORAGE before and after SLDL instruction execution: 


i} 
0010 ;0000} binary 
iL 2°(32) 


Registers 4 and 5 after SLDL instruction execution: 




















hex 








' | 
' 


binary 






hex 





eee ee ele alae el ee 
aaaa aaa 0000 ! 0000 o000 | 0000 0000 | 0000 | 0000 } 0000 


binary 
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@ SLL 


12.29. SHIFT LEFT SINGLE LOGICAL (SLL) 


General Possible Program Exceptions 
OBJECT 
ADDRESSING CF PROTECTION 
OPCODE FORMAT J INST. O 
TYPE LGTH. 


oO DATA (INVALID SIGN/DIGIT) 0 SIGNIFICANCE 


(J) DECIMAL DIVIDE () SPECIFICATION: 
2 DECIMAL OVERFLOW NOT A FLOATING-POINT REGISTER 
| sit ao] rs | 4 | 
Condition Codes 


Cl execute _ OP 1 NOT ON HALF-WORD BOUNDARY 
C EXPONENT OVERFLOW OP 2 NOT ON HALF-WORD BOUNDARY 
C] EXPONENT UNDERFLOW OP 2 NOT ON FULL-WORD BOUNDARY 
PIDRECULS ae SEAS Oo (C0 FIXED-POINT DIVIDE OP 2 NOT ON DOUBLE-WORD 
Chie ResuLs Pa eee ee (CJ FIXED-POINT OVERFLOW BOUNDARY 
(Clif RESULT > 0, SET TO 2 
(iF OVERFLOW, SET TO3 
BB UNCHANGED 






































C] FLOATING-POINT DIVIDE OP 1 NOT EVEN NUMBERED REGISTER 
(1 OPERATION OP 1 NOT ODD NUMBERED REGISTER 


BOO OoooOo0 


z 
ie) 
2 
m 


The shift left single logical (SLL) instruction shifts all of the 32 bits in the operand 1 
register to the left by the number of bits specified in the low order six bits of the operand 
2 address. 


& Explicit Format: 






A OPERATION A OPERAND 


[symbol] 


Implicit Format: 









LABEL A OPERATION A 


OPERAND 


[symbol] 


The operand 2 address is not used to address data. The low order six bits are used as the 
shift count and the remainder of the address is ignored. When the SLL instruction is 
executed, the high order bits that are shifted out of the register are lost and replaced with 
subsequent bits within the register also being shifted. Zeros fill the vacated low order bit 
positions. 
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Operational Considerations: 





= Any of the general registers (0 through 15) can be used as operand 1. 


= If you already know the displacement value associated with a label in your program, 
you can use the low order six bits as the shift count. 


# A self-defining term can be specified for operand 2. 

=» Zeros fill the vacated low order bit positions in the operand 1 register. 
= The condition code remains unchanged. 

s A length attribute cannot be specified for operand 2. 


= The shift count cannot exceed 32 bits because the highest value that can be 
represented in the low order six bits is +32 (25). 





Example: 

LABEL AOPERATIONA OPERAND 

1 10 16 

a a 8 
L 4, FLWRD 
SLL 4 , STORAGE 
DS OF 

FLWRD DC X'89ABCDEF' 

STORAGE €QU 8 


Register 4 before execution of SLL instruction: 


1000; 1001 binary 





STORAGE before and after execution of SLL instruction: 


low order six bits 


Ce atid 
0000 | 0000 | 0000 ,0000 |0000 ; 1000 


ee 
location counter (address) 
not contents 










binary 


hex 
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Register 4 after execution of SLL instruction: 


111011111 [0000 10000 binary 


In this example, the content of FLWRD is loaded into register 4. Then the SLL instruction 
uses the low order six bits of the address of STORAGE (not content) as the shift count. In 
this case, STORAGE has no content but has been equated with or contains the address of 
the absolute value of 8. When the SLL instruction is executed, eight high order bits of 
register 4 are shifted out of the register, and replaced with subsequent bits within the 
register also being shifted. Zeros fill the vacated eight low order bit positions. 





Example: 
LABEL AOPERAT IONA OPERAND 
] 10 16 





SR hk 

L h =F '259G' 
L 5,=F'1p! 
SLL 4 6(5) 


Register 4 before execution of SLL instruction: 


0000 | 0000 | 0000 10000 | 0000! 1001 | 1100 ;0100 
EE Ee Ea 


Register 5 before and after execution of SLL instruction: 











binary 


hex 










0000 ; 0000 | 0000 ; 0000 | 0000 ; 0000} 0000 ; 1010 binary 





actual contents 
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Register 4 after execution of SLL instruction: 


0000 ,0000 | 0010 ;0111 | 0001 |0000 | 0000 ;0000 
Ee Ce Ee 


In this example, register 4 is cleared to 0. The decimal value of 2500 is loaded into 
register 4, and the decimal value of 10 is loaded into register 5. The actual content of 
register 5 is used (not its address) because register 5 is being used as a base register. So, 
the value loaded into register 5 is treated as an address. This can only be done in the 


explicit format. 






binary 


hex 
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SHL 


12.30. SHIFT LOGICAL (SHL) 


Possible Program Exceptions 
OFCORE oe EP SSP ReSSINS ( PROTECTION 
eons ete (1 DATA (INVALID SIGN/DIGIT) | [J SIGNIFICANCE 


(Bytes) || DJ DECIMAL DIVIDE W SPECIFICATION: 


DJ DECIMAL OVERFLOW NOT A FLOATING-POINT REGISTER 
rsa fos] as | 8 OJ Execute OP 1 NOT ON HALF-WORD BOUNDARY 


0 EXPONENT OVERFLOW OP 2 NOT ON HALF-WORD BOUNDARY 
Condition Codes 0 ExPONENT UNDERFLOW OP 2 NOT ON FULL-WORD BOUNDARY 


OU FIX€D-POINT DIVIDE OP 2 NOT ON DOUBLE-WORD 
ae ne 0 FixXED-POINT OVERFLOW BOUNDARY 
set To 2 (C0 FLOATING-POINT DIVIDE OP 1 NOT EVEN NUMBERED REGISTER 
@setto3 [] OPERATION OP 1 NOT ODD NUMBERED REGISTER 
(J UNCHANGED NONE 





The shift logical (SHL) instruction shifts all 32 bits in the operand 1 register or all 64 bits 
in the operand 1 even-odd register pair right or left by the number of bits specified in the 
low order six bits of the operand 2 address. 


Explicit Format: 







A OPERATION A OPERAND 


[symbol] 


Implicit Format: 







A OPERATION A OPERAND 


[symbo!] 


The SHL instruction is a versatile shift instruction that can operate in a number of 
different ways. With it you can: 


a shift the contents of the operand 1 register left or right up to 63 bits per operation; 
a fill the vacated bits of the operand 1 register with 1’s or O’s at your option; 
= shift a single register or shift two contiguous registers; and 


= ~=allow bits shifted out of operand 1 to be lost or move them into the opposite end of 
operand 1, a process known as circular shifting. 
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When an SHL instruction is executed, the low order six bits of operand 2 determine the 
number of bits to be shifted. This permits you to specify a maximum shift of 63 bits (3F,¢). 





You use the 4-bit operand 3 mask (mg) to further specify the shift. The mask specifies 4 
options so that you can use the instruction in 1 of 16 different ways. Individual bits within 
the mask are used as shown in Table 12—1: 


Table 12—1. Shift Logical Mask Bits 


Object Code Bit Position 











































Le ee 
Value 
Vacated Bits Shift Direction Register Digit Shifted In | (Decimal) 
O=Lost O=Left 0=Single o=0 
1=Circular 1=Right 1=Even/Odd Pair 1=1 





OMNOTKWN-O 





Hae urQqgo00c0000 
HAA 4 0000-]--0000 
=--=00--00-=-00-=-00 
AO=O070+0+=030-0-0 





A circular shift (bit 12 = 1) moves bits shifted out of one end of operand 1 into the 
opposite end, one bit at a time. Assume that register 11 contains O793BDOB: 


0 7 9 3 B D oO 8B 
Now register 11 undergoes a circular shift of three bits to the right: 


—direction of shift —~ 


74 
0110 ! 0000 1111 0010 011110111} 101010001 {011} 
i 


nes bits shifted out 
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The three bits shifted out of the low order end of register 11 are placed, their sequence 
unchanged, into the high order bit positions just vacated by the instruction. 


You can use the SHL instruction to specify which binary digit is to be shifted into the 


operand 1 register to replace vacated bit positions. Specifying a 1 in bit 15 causes 1's to 
be shifted in. Specifying a zero in bit 15 causes O’s to be shifted in. If register 8 contains 


[111011111 [0001 10110 | 1101 10001 | 0101 11110 


the instruction 


SHL 8,4,6 


specifies a 6-bit shift to the right with O’s shifted in to the left or high order end (see Table 
12—1): 


— direction of shift ——> 
O's 0000 ‘ 0011 011 11100] o101 | 1011 0100 ; 0101 bits shifted a | 


The SHL instruction can shift two contiguous registers under all the conditions described. 
The first register must be an even-numbered register, the second the next higher odd- 
numbered register. For double-register operation, all 64 bits of the pair are shifted: 


= for left shifts each bit shifted out of the high order end of the odd-numbered register 
is put in the low order end of the even-numbered register; 


® for right shifts, bits shifted out of the low order end of the even-numbered register 
are put in the high order end of the odd-numbered register. Assume that the register 
pair 8 and 9 contains: 


Register 8 Register 9 
of onfamfow[onfonefoofsor]  [osefwalwofio am fom] mofo 
A 2-bit left shift with O’s moved in the vacated bits yields: 


Register 8 Register 9 


1010 11100 rot fort 1100 | 1010 101110101 | 0011 {1010 |1000 10100 | 0101 {0011 | 1010} 1000 


shift 


bits’ 


out 
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Operational Considerations: 


You can specify operand 2 as an address (d,(b2) form only) or as a symbol equated 
(EQU instruction) to an absolute expression. You should not use an operand 2 symbol 
(S2) as an address because you may get unpredictable results. 


You can specify a single register in operand 1 using any of the general-purpose 
registers O through 15. 


You can specify a register pair in operand 1, in which case the operand must be the 
even-numbered register, the first register of the pair. 


You must specify the operand 3 mask as a self-defining term. 


During circular shifts bit 15 (the bit to be shifted in) is ignored. 


Condition Code: 


After execution of SHL, the condition code is set: 


to O if operand 1 contains O and the bits shifted out are all O's; 
to 1 if operand 1 contains O and one or more 1's are shifted out; 
to 2 if operand 1 is not zero and the bits shifted out are all O's; or 


to 3 if operand 1 is not zero and one or more 1's are shifted out. 
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Example: 

LABEL AOPERATIONA OPERAND 

1 10 16 
1. LA 9,6 CLEAR R9 
ae SHL 8,6,4 SHIFT 1ST DIGIT 
3. SHL 9,5,4 ZONE 
4h, SHL 8,6,4 SHIFT 2ND DIGIT 
5. SHL 9,5,4 ZONE 
6. SHL 8,6,4 SHIFT 3RD DIGIT 
7. SHL 9,554 ZONE 
8. SHL 8,6,4 SHIFT 4TH DIGIT 
9. SHL 9,5,4 ZONE 
10. LR 11,9 MOVE LOW-ORDER DIGITS TO R11 
11. LA 9,0 CLEAR R9 
12. SHL 8,6,4 SHIFT 5TH DIGIT 
13. SHL 9,5,4 ZONE 
14. SHL 8,6,4 SHIFT 6TH DIGIT 
15. SHL 9,5,4 ZONE 
16. SHL 8,6,4 SHIFT 7TH DIGIT 
17 SHL 9,5,4 ZONE 
18. SHL 8,6,4 SHIFT 8TH DIGIT 
19. SHL 9,5,4 ZONE 
20. LR 19,9 MOVE HIGH-ORDER DIGITS TO RIG 
“ae SHL 16,14,8 SHIFT SIGN AROUND TO TOP OF RIP 
22. STM 16,11,EBCNO STORE NUMBER IN EBCNO 
23. CLI EBCNO,X'FD! TEST SIGN 
24. BNE POS IF POSITIVE GO TO POS 
25. MV I EBCNO,C!-! OTHERWISE ATTACH '-! 
26. B NEG 
27.] POS MV I EBCNO,C!! ATTACH SPACE FOR POSITIVE 
28.1 NEG : 

EBCNO DS 2F EBCDIC RESULT 


The code in this example expands a packed decimal number in register 8 to an EBCDIC 
number of 7 digits plus leading sign in field EBCNO. 


Assume that register 8 contains 


Register 8 | 3841694D 
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The LA instruction in line 1 puts O’s in register 9. The SHL instruction in line 2 has a 
mask of 6 that is interpreted as follows (see Table 12—1): 





vacated i register 
bits pair 





Together with the rest of the operands, the SHL instruction specifies that register pair 8 
and 9 is to be shifted 4 bits to the right. Doing this results in: 


Register 8 Register 9 


0's —»} 03841694 | | DOOO00NN | bits aa | 
hift 


(Since a hexadecimal digit comprises four bits, a 4-bit shift is equivalent to a shift of a 
single hexadecimal digit.) The SHL instruction in line 3 has a mask of 5 that is interpreted 
as follows: 





vacated i single 
bits register 





As a result of this instruction, the contents of register 9 are shifted four bits to the right, 
and 1's are shifted in from the high order end: 


Register 8 Register 9 
03841694 FDO000000 bits on 
(unchanged) 1's 


Notice that the four ‘’1’’ bits shifted into the high order end of register 9 form, in effect, 
the zone half of an EBCDIC digit. The SHL instruction in line 4 shifts another packed digit 
into the high order end of register 9: 


Register 8 Register 9 


O's 03841694 | | 4FDO0000 F- bits on] 
shift 
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The SHL instruction of line 5, like that of line 3, shifts 1’s into register 9; this operation 
attaches a zone to the digit just shifted from register 8: 


Register 8 Register 9 


00384169 | 4 F4FDO000 Pbits out 7 


(unchanged) “1's 


Lines 6 through 9 repeat this process for two more packed digits, and line 10 moves the 
contents of register 9 to register 11 for later processing: 


Register 8 Register 9 


00003841 | | FEF9F4FD 


LR 


Register 11 


F6FOF4FD 


Line 11 fills register 9 with O’s and lines 12 through 19 repeat the action of lines 2 
through 9, but this time on the high order four digits orignally in register 8. After line 20, 
which moves the contents of register 9 to register 10, the result is: 


Register 8 Register 9 


00000000 | | F3F8F4F1 
[— LR 


Register 10 Register 11 
F3F8F4F1! | FEFOF4FD 


The SHL instruction in line 21 has a mask of 14 (hexadecimal! E) that is interpreted as 
follows: 


circular shift 


shift register 
pair 
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The instruction shifts registers 10 and 11 right by 8 bits, moving the shifted bits out of 
register 11 directly back into the high order end of register 10: 


Register 10 Register 11 


eerie | 
FDF3F8F4 [rirérors [ro ; 
of? 


circular shift 


in line 22, the contents of registers 10 and 11 are stored into a double-word area in 
storage named EBCNO. Lines 23 through 28 test the leading byte: if it contains ‘FD’ it is 
replaced with a minus sign to indicate a negative number; otherwise, the byte is replaced 
with a blank to indicate a positive number. Since the leading byte of EBCNO is ‘FD’, 
EBCNO ends up as: 


EBCNO 60F3F8F4| |FIF6EFSF4 


-—- 384 1694 


The number in EBCNO can now be printed if desired. 
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SRDL 


12.31. SHIFT RIGHT DOUBLE LOGICAL (SRDL) 


General Possible Program Exceptions 
OBJECT 
ADDRESSING (1 PROTECTION 
TYPE LGTH. 




















(1) DATA (INVALID SIGN/DIGIT) DD SIGNIFICANCE 
| mem. | HEX,| (BYTES) 


( DECIMAL DIVIDE @ SPECIFICATION: 
CD DECIMAL OVERFLOW NOT A FLOATING-POINT REGISTER 
sao. |ec| rs | 4 | 
Condition Codes 


O execute OP 1 NOT ON HALF-WORD BOUNDARY 
C2 EXPONENT OVERFLOW OP 2 NOT ON HALF-WORD BOUNDARY 
(] ExPONENT UNDERFLOW OP 2 NOT ON FULL-WORD BOUNDARY 
PHERECUCRED SCrTaG CO FIXED-POINT DIVIDE OP 2 NOT ON DOUBLE-WORD 
Ole RESULT <0, SET rod C0 FIXEO-POINT OVERFLOW BOUNDARY 
Cir RESULT >0, SET TO 2 
Ctr OVERFLOW, SET TO3 
WEUNCHANGED 















(J FLOATING-POINT DIVIDE OP 1 NOT EVEN NUMBERED REGISTER 
OP 1 NOT ODD NUMBERED REGISTER 
NONE 


[J OPERATION 


OOg@ Oooooo0 





The shift right double logical (SRDL) instruction shifts the 64 bits of operand 1 to the right 
by the number of bits specified in the flow order six bits of the operand 2 address. You 
specify the even-numbered register of the pair as operand 1. 


Explicit Format: 









A OPERATION A OPERAND 


[symbol] 


Implicit Format: 


LABEL A OPERATION A OPERAND 


[symbol] 
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Operational Considerations: 





a Any pair of the general registers (0 through 15) can be used as operand 1. Operand 1 
is an even-odd register pair. You must specify the even-numbered register of the pair 
as operand 1. 


= The main storage address or label you specify in operand 2 is not changed by the 
SRDL instruction execution. Notice the formats indicate that you cannot specify a 
length in operand 2. 


= After the requested number of bits are shifted out of the operand 1 register pair, O's 
fill the leftmost bit positions of the register pair. 


Example 1: 
LABEL AOPERAT I0NA OPE RAND 
| 10 16 
LM 4,5, VALUE 
SRDL 4 32 
DS OF 
VALUE DC 2XL4,'FFFFFFFF' 





In this example, registers 4 and 5 are loaded with the content of main storage 
location VALUE. The SRDL instruction causes the content of a register to be shifted 
right 32 bits. 


Registers 4 and 5 before execution of SRDL instruction: 


I ! | ! | 1 
{ | 1 i} 
W144 4711 1991417114 1141 ,9111 111741111 


















hex 


! ' 
| t 
v4ddy ttt] aaaty 119 





























binary 
Registers 4 and 5 after SRDL instruction execution: 
tld pitt my 
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& Example 2: 


This example using the SRDL instruction has the same shift result, but a label is used 
as operand 2 of the SRDL instruction. 





LABEL § AOPERATIONA | OPERAND 
| 10 16 
LM 45, VALUE 
SRDL 4, STORAGE 
DS OF 
VALUE DC 2XL4'FFFFFFFF! 
STORAGE EQU X'2g! 


In this example, the absolute value of the main storage location STORAGE determines 
the number of bits that operand 1 should be shifted right. The operand 2 label is 
equated (EQU instruction) with a hexadecimal value that indicates how many bit 
positions you want to move. This is necessary so that the assembler takes the 
absolute value that you equated with your label and not its relocatable address. Note 
that a hexadecimal 20 is equivalent to a decimal 32. 


© Registers 4 and 5 before execution of SRDL instruction: 




























| i | | { t \ i 
! I ] 
»> STORAGE before and after SRDL instruction execution: 
| hex 
t 
eee 
25(32) 
Registers 4 and 5 after instruction execution: 
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12.32. SHIFT RIGHT SINGLE LOGICAL (SRL) 


General 


OBJECT 
OPCODE FORMAT | INST. 


Possible Program Exceptions 


(] PROTECTION 

L] SIGNIFICANCE 

CL) SPECIFICATION: 

NOT A FLOATING-POINT REGISTER 
OP 1 NOT ON HALF-WORD BOUNDARY 
OP 2 NOT ON HALF-WORD BOUNDARY 
OP 2 NOT ON FULL-WORD BOUNDARY 


OP 2 NOT ON DOUBLE-WORD 
BOUNDARY 


OP 1 NOT EVEN NUMBERED REGISTER 
OP 1 NOT ODD NUMBERED REGISTER 
NONE 








O 
> 
oO 
S) 
D 
m 
n 
7) 
Fa 
Oo 









DATA (INVALID SIGN/DIGIT) 
DECIMAL DIVIDE 

DECIMAL OVERFLOW 
EXECUTE 

EXPONENT OVERFLOW 
EXPONENT UNDERFLOW 
FIXED POINT DIVIDE 

FIXED POINT OVERFLOW 
FLOATING POINT DIVIDE 
OPERATION 


TYPE LGTH. 


Condition Codes 


Clit RESULT =0,SETTOO 
Clit RESULT <0, SETTO1 
Clif RESULT >0O, SET TO2 
DIF OVERFLOW, SET TO3 
GBEUNCHANGED 


JOO0 
























JOO00 




















O 
BOO oO0000 


The shift right single logical (SRL) instruction shifts all of the 32 bits in the operand 1 
register to the right by the number of bits specified in the low order six bits of the operand 
2 address. 


Explicit Format: & 


A OPERATION A 









OPERAND 


[symbol] 


Implicit Format: 


LABEL A OPERATION A OPERAND 





The operand 2 address is not used to address data. The low order six bits are used as the 
shift count and the remainder of the address is ignored. When the SRL instruction is 
executed, the low order bits that are shifted out of the register are lost and replaced with 
subsequent bits within the register also being shifted. Zeros fill the vacated high order bit 
positions. 
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Operational Considerations: 
= Any of the general registers (O through 15) can be used as operand 1. 
= Using a label as operand 2 can cause unpredictable results. 
# A self-defining term can be used as operand 2. 
= Zeros fill the vacated high order bit positions in the operand 1 register. 
= The condition code remains unchanged. 
# A length attribute cannot be specified for operand 2. 


= The shift count cannot exceed 32 bits because the highest value that can be 
represented in the low order six bits is +32 (25). 


Example: 
LABEL AOPERATIONA OPERAND 
1 10 16 
L 4 ,WORD 
SRL 4, LABEL 
DS OF 
WORD DC X'3A6GG98G' 
LABEL DC PL2'G' 


Register 4 before execution of SRL instruction: 


0011 11010 }0110 |O000 | 0000 (0000 | 0000 ,;0000 
fete fo fe 


Address of LABEL: 













location counter 
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Register 4 after execution of SRL instruction: 


0000 ; 0000 {0000 ;0000 | 0000 ;0011} 1010;0110 
[ete [ete fots fate. 


In this example, the content of WORD is loaded into register 4. Then the SRL instruction 
uses the low order six bits of the address location counter of LABEL as the shift count. 
You should already know the displacement value of LABEL. That value should be the 
number of bits you want to shift to the right. When the SRL instruction is executed, 20 
low order bits of register 4 are shifted out of the register, and replaced with subsequent 
bits within the register also being shifted. Zeros fill the vacated 20 high order bits. This is 
what LABEL looks like when assembled: 






binary 





hex 





LOC. OBJECT CODE LINE SOURCE STATEMENT 


000014 O00C 14 LABEL DC PL2'0! 
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12.33. STORE CHARACTER (STC) 


OBJECT |) my ADDRESSING M PROTECTION 
















OPCODE 





FORMAT | INST. 
DATA (INVALID SIGN/DIGIT SIGNIFICANCE 
TYPE LGTH. Gy PATAINY. / 10 
(aytes) || D DECIMAL DIVIDE C) sPeciFicaTIoON: 


0 DECIMAL OVERFLOW 
OD Execute 


NOT A FLOATING-POINT REGISTER 
OP 1 NOT ON HALF-WORD BOUNDARY 
OP 2 NOT ON HALF-WORD BOUNDARY 
OP 2 NOT ON FULL-WORD BOUNDARY 
OP 2 NOT ON DOUBLE-WORD 


(OO EXPONENT OVERFLOW 
DD EXPONENT UNDERFLOW 
0 FIXED-POINT DIVIDE 


Condition Codes 


Clif RESULT = 0,SET TOO 


Clif RESULT <0, SET TO1 
OJ1F RESULT >O, SET TO 2 
(IF OVERFLOW, SET TO 3 


OJ FIXED-POINT OVERFLOW 
(1 FLOATING-POINT DIVIDE 
( OPERATION 


BOUNDARY 
OP 1 NOT EVEN NUMBERED REGISTER 
OP 1 NOT ODD NUMBERED REGISTER 


GEUNCHANGED 





NONE 


The store character (STC) instruction places the low order eight bits (bit positions 24 


through 31) of the operand 1 register into one byte of operand 2 that is located in main 
storage. 


Explicit Format: 






A OPERATION A OPERAND 


[symbol] 


Implicit Format: 






A OPERATION A OPERAND 


[symbol] 
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The data in operand 2 can be defined in any format. The length of operand 2 can vary but 
the length of operand 1 is always four bytes. Although operands 1 and 2 can have the 
same or differing length, only one byte in operand 2 receives the rightmost byte from the 
operand 1 register. If you do not specify the exact byte in operand 2 to receive the operand 
1 data, the first byte of operand 2 is used. 

Operational Considerations: 

= Any of the general registers (0 through 15) can be used as operand 1. 

= =Operand 2 must be a main storage location. 


= = =6The length of operand 2 can vary. 


=# You can specify the exact byte in operand 2 to receive the rightmost byte of the 
operand 1 register through relative addressing. 


= ~=This instruction is one of the few in which operand 1 is the sending operand. 


Example: 

LABEL AOQPERATIONA OPERAND 

1 10 16 

i a a a 
L 11,AMTIN 
A 11,=F'S! 
STC 11,STOR 

AMT IN DC F'2236! 

STOR DC CLA'g! 


STOR before execution of STC instruction: 


1111 | 0000 | 0100| 0000] 0100; 0000 |0100; 0000 
eee ie ae | 










binary 


hex 
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Register 11 before and after execution of STC instruction: 


T 
0000 | 0000 | 0000 ; 0000 | 0000 |; 1000 } 110010001 
foe Pot ace Pea 


STOR after execution of STC instruction: 


1100 | 0001 | 0100 10000 {0100 10000 j010010000 



















aa ee Ce eee 


In this example, the content of AMTIN is loaded into register 11. Then a decimal value of 5 
is added to the value already in register 11. This is a method of rounding numbers located 
in registers that will eventually be printed. The STC instruction then places the content of 
the rightmost byte in register 11 into the first byte of STOR. Since the exact byte of STOR 
that is to receive the data from register 11 is not specified, the first byte is used. 
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12.34. STORE CHARACTERS UNDER MASK (STCM) 


Possible Program Exceptions 


PROTECTION 










OBJECT 













OPCODE Bi ADDRESSING 







OO DECIMAL OVERFLOW 

O execute 

(J EXPONENT OVERFLOW 
0) EXPONENT UNDERFLOW 
0 FIXED-POINT DIVIDE 

(CJ F1XED-POINT OVERFLOW 
(1) FLOATING-POINT DIVIDE 
(CJ OPERATION 


srou[ae[ = | «| 
Condition Codes 


Clif RESULT = 0, SET TOO 
Or RESULT <0, SET TO1 
Clif RESULT >0, SET TO 2 
CIF OVERFLOW, SET TO 3 








peient) pase (0 DATA (INVALID SIGN/DIGIT) | [1] SIGNIFICANCE 
HEX. (Bytes) || () DECIMAL DIVIDE () SPECIFICATION: 






















NOT A FLOATING-POINT REGISTER 

OP 1 NOT ON HALF-WORD BOUNDARY 
OP 2 NOT ON HALF-WORD BOUNDARY 
OP 2 NOT ON FULL-WORD BOUNDARY 


OP 2 NOT ON DOUBLE-WORD 
BOUNDARY 


OP 1 NOT EVEN NUMBERED REGISTER 
oP 1 NOT ODD NUMBERED REGISTER 


NOOO OOOOO 








HE UNCHANGED NONE 


The store characters under mask (STCM) instruction permits you to store some or all of 
the contents of the operand 1 register in contiguous bytes of main storage starting at the 
operand 2 address. You select the bytes to be stored by specifying a 4-bit mask in operand 
3 (m3). 





Explicit Format: 






A OPERATION A OPERAND 


[symbol] r,,m,,d, (b,) 





Implicit Format: 








A OPERATION A OPERAND 





LABEL 








UP-8913 
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Operand 3 specifies a 4-bit mask, each bit of which corresponds to a byte within the 
operand 1 register, going left to right. The value of the mask corresponds to its bits as 
follows: 


Mask value 
Object code bit 


Register byte 
(left to right) 





Thus, a mask of 5 (4+1) specifies the second and fourth register bytes. Each bit thus 
specified gets a value of 1, while remaining mask bits get a value of O. In operation, the 
STCM instruction scans the mask left to right. The first register byte whose corresponding 
mask bit equals 1 is stored in the main storage byte located at operand 2. The next 
register byte whose mask bit equals 1 is stored in the byte location following the operand 
2 address. This process continues until all mask bits are scanned. Register bytes whose 
mask bits equal O are not stored. The number of bytes in the operand 2 field equals the 
number of 1-bits in the mask, up to a limit of four bytes. 


Operational Considerations: 


The operand 3 mask must be a self-defining term ranging from O to 15. 


With a mask of 15 (1111,) the STCM instruction acts much like a STORE instruction; 
the only difference is that the STCM operand 2 need not reside on a full-word 
boundary. 


The STCM instruction is one of the few instructions whose source operand precedes 
its destination operand. 


Condition Code: 


The condition code is left unchanged by the STCM instruction. 





Example: 
LABEL AOPERATIONA OPERAND 
1 10 16 
L 6 ,FWORD 
STCM 6,13,BYTE3 
DS OF 
FWORD DC XL4'F1792346! 


BYTE3 bc XL3'333333' 
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In this example, register 6 is partially stored into a 3-byte area named BYTES. At the start & 
of the STCM instruction, the data areas contain: 


cows [FH [ [a] 
oes [= ]o] =| 


The STCM instruction has a mask of 13 which causes the instruction to operate as 
follows: 


Mask bits 1 1 0 1 (13) 


Register 6 





store ignore 
store store 


wre [a] [om 


The STCM mask of 13 causes the first byte of register 6 to be stored at BYTE3, the second 
byte of register 6 to be stored at BYTE3+1, the third byte of register 6 to be ignored, and 
the fourth byte of register 6 to be stored at BYTE3+2. 
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12.35. SUBTRACT LOGICAL (SL) 
LGTH. 


Possible Program Exceptions 
OPCODE FORMAT 
TYPE 
(BYTES) 


Condition Codes 


QO set too 
@ setto1 
WM setto2 
@ setto3 
SEE OPER. CONSIDERATIONS 


@@ ADDRESSING @ PROTECTION 

[1] DATA (INVALID SiGN/DIGIT) | [] SIGNIFICANCE 
(CJ DECIMAL DIVIDE @ SPECIFICATION: 
CZ DECIMAL OVERFLOW 
C EXECUTE 













NOT A FLOATING-POINT REGISTER 

OP 1 NOT ON HALF-WORD BOUNDARY 
OP 2 NOT ON HALF-WORD BOUNDARY 
OP 2 NOT ON FULL-WORD BOUNDARY 


OP 2 NOT ON DOUBLE-WORD 
BOUNDARY 


OP 1 NOT EVEN NUMBERED REGISTER 
OP 1 NOT ODD NUMBERED REGISTER 


CJ EXPONENT OVERFLOW 
(1 EXPONENT UNDERFLOW 
C) FixED-POINT DIVIDE 

0 FIXED-POINT OVERFLOW 
(CJ FLOATING-POINT DIVIDE 
(J OPERATION 





OOO Owooo 


2 
ie} 
2 
m 


The subtract logical (SL) instruction logically subtracts the content of operand 2 from the 
content of the operand 1 register and places the result in operand 1. 


@ Explicit Format: 


[symbol] 








A OPERATION A OPERAND 





ry, (x2 b,) 





Implicit Format: 







LABEL A OPERATION A OPERAND 


[symbol] 
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Operational Considerations: 





= Any of the general registers (0 through 15) can be used as operand 1. 
= The label or address you specify in operand 2 must refer to a main storage location 
that is on a full-word boundary. Operand 2 is not changed by the execution of this 
instruction. 
= The logical subtraction is performed by adding the twos complement of operand 2 to 
operand 1. All 32 bits of each operand are used. 
= Neither operand has a sign bit. 
= #§=The condition code of the program status word (PSW) is set as follows: 
— to 1 if result is not O (no carry of most significant bit); 
— to 2 if result is O (carry of most significant bit); or 
— to 3 if result is not O (carry of most significant bit). 
Zero code is not used. 
Example: 
LABEL AOPERATIONA OPERAND 
1 10 16 
L 3,HEXVALU 
SL 3, FULLWORD 
DS OF 
HEXVALU OC X'BOBODFFE ' 
FULLWORD DC X'PPODGEBE ' 


In this example, the hexadecimal content of HEXVALU is placed in register 3. Then the 
twos complement of the content of main storage location FULLWORD is added to the 
content of register 3. 
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I) FULLWORD before twos complement: 


0000 }0000 | 0000} 1110 }0000; 1000 








hex 


binary 


0000} 0000 


Twos complement of FULLWORD: 


111119111 444941411 1111)0001 1111, 1000 
' \ | 
I 


binary 


hex 









i} 

! 

I 

1 
Register 3 before execution of SL instruction: 
| 
Amami 
0000}0000 |0000;0000] 0000; 1111 
i 





hex 


binary 


Register 3 after execution of SL instruction: 










i] i] 
0000 | 0000 |0000 10000} 0000 j0001 | 1111 |o000 binary 


The twos complement of FULLWORD is added to the content of register 3. The result 
replaces the content of register 3. The condition code is set to 3, since the result is not 0, 
and there is carryout (leftover 1 bit) of the leftmost bit. The carryout does not cause an 
overflow condition as would the subtract (S) instruction. 
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12.36. SUBTRACT LOGICAL (SLR) 


OBJECT || 7 ADDRESSING C] PROTECTION 



















OP 1 NOT EVEN NUMBERED REGISTER 
OP 1 NOT ODD NUMBERED REGISTER 
NONE 


OC) FLOATING-POINT DIVIDE 
(J OPERATION 


@ setTto2 
BM setto3 
SEE OPER. CONSIDERATIONS 


aia toe dale (J DATA (INVALID SIGN/DIG!IT) | [] SIGNIFICANCE 
(BYTES) || (J DECIMAL DIVIDE CZ SPECIFICATION: 
(CJ DECIMAL OVERFLOW [1 NOTA FLOATING-POINT REGISTER 
CO execute [] OP 1 NOT ON HALF-WORD BOUNDARY 
CZ EXPONENT OVERFLOW C) oP 2 NOT ON HALF-WORD BOUNDARY 
O EXPONENT UNDERFLOW O OP 2 NOT ON FULL-WORD BOUNDARY 
Eleeraos CD FIXED-POINT DIVIDE O OF 2NGT ON DOUBLE-WORD 
M@ set to1 OD FIXED-POINT OVERFLOW 0 
] 
a 





The subtract logical (SLR) instruction logically subtracts the content of the operand 2 
register from the content of the operand 1 register and places the result in operand 1. 


Explicit and Implicit Format: 










A OPERATION A OPERAND 


[symbol] 


Operational Considerations: 
= Any of the general registers (0 through 15) can be used as operands 1 and 2. 


= The logical subtraction is performed by adding the twos complement of operand 2 to 
operand 1. All 32 bits of each operand are used. 


= Neither operand has a sign bit. 

= The condition code of the program status word (PSW) is set as follows: 
— to 1 if result is not O (no carry of most significant bit); 
— to 2 if result is O (carry of most significant bit); or 


— to 3 if result is not O (carry of most significant bit). 





Zero code is not used. 


UP-8913 SPERRY UNIVAC OS/3 12-115 





ASSEMBLER Update B 
Example: 
LABEL AOPERAT IONA OPERAND 
| 10 16 
L 3, VALUt 
L 5, VALU2 
SLR 3,5 
DS OF . + 
VALU] DC X'POOHOFFS ' 
VALU2 DC X 'POSHGERE ' 


In this example, the hexadecimal contents of main storage locations VALU1 and VALU2 
are loaded into registers 3 and 5, respectively. Then, the SLR instruction logically subtracts 
the content of register 5 from the content of register 3. 


Register 5 before twos complement: 


{ 
0000 ; 0000 0000! 0000 000011110 00001 1000 binary 


Twos complement of register 5: 


Register 3 before execution of SLR instruction: 







hex 







i44ta4d binary 


hex 











BoGoogoor 
0000} 0000} 0000; 0000] oo00! 1111 +111} 1000 binary 
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Register 3 after execution of SLR instruction: 


' 
0000! 0000} 0000 | 0000 | 0000! 0001 


The twos complement of register 5 is added to the content of register 3. The result 
replaces the content of register 3. The condition code is set to 3, since the result is not 
zero and there is a carryout (leftover 1 bit) of the leftmost bit. The carryout does not cause 
an overflow condition as would the subtract (SR) instruction. 











hex 


binary 
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12.37. TEST UNDER MASK (TM) 


OBJECT || gy ADDRESSING MM PROTECTION 
INST. 
TA (IN SIGN/DIGIT SIGNIFICANCE 
ace pee: (J DATA (INVALID / 0 
MAEM (Bytes) || (J DECIMAL DiviDE DC SPECIFICATION: 
C1 DECIMAL OVERFLOW NOT A FLOATING-POINT REGISTER 


fa} ss | 4 | (C0 execute OP 1 NOT ON HALF-WORD BOUNDARY 
(J EXPONENT OVERFLOW OP 2 NOT ON HALF-WORD BOUNDARY 
Condition Codes 


(] EXPONENT UNDERFLOW OP 2 NOT ON FULL-WORD BOUNDARY 
WM settoo 




























OPCODE FORMAT 








“I 
= 


CD FIXED-POINT DIVIDE OP 2 NOT ON DOUBLE-WORD 

( FIXED-POINT OVERFLOW BOUNDARY 

C] FLOATING-POINT DIVIDE OP 1 NOT EVEN NUMBERED REGISTER 
C operation OP 1 NOT ODD NUMBERED REGISTER 
NONE 


WM setto1 
(1) set to2 
HM setto3 
SEE OPER. CONSIDERATIONS 







OOO OOoOO0 





The test under mask (TM) instruction uses the 1-byte mask in operand 2 to test the bit 
pattern of one byte in operand 1 that is located in main storage. The result of the test 
determines the setting of the condition code, bits 34 and 35 of the PSW. (See 8.1.) 


Explicit Format: 






A OPERATION A OPERAND 


[symbol] 


Implicit Format: 






A OPERATION A OPERAND 


[symbol] 


Operand 2 is one byte of immediate data that is used as the mask. Within that byte is an 
8-bit binary testing pattern. The bits of the mask correspond one for one to bits in one byte 
of operand 1. The length of operand 1 can vary but the length of operand 2 is always one 
byte. Although the lengths of operands 1 and 2 can differ, only one byte of operand 1 is 
used. If you do not specify the exact byte of operand 1 you want tested, the first byte is 
used. 


A mask bit of one in operand 2 tests its corresponding bit position in operand 1 for the 
presence of one bit or a zero bit. 


A mask bit of O in operand 2 causes its corresponding bit position in operand 1 not to be 
© tested. If the mask pattern is all O’s, no testing takes place; whereas, if the mask pattern is 
all 1's, every corresponding bit position in operand 1 is tested. 
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The condition code is set as follows: 


= to O if the mask pattern is all O’s; or all the corresponding tested bit positions in 
operand 1 are O's; 


= to 1 if all the corresponding tested bit positions in operand 1 are a combination of O's 
and 1's; or 


= to 3 if all the corresponding tested bit positions in operand 1 are 1's. 


Some of the more common uses of the test under mask instruction are checking the 
setting of program switches and checking for valid characters. These switches are usually 
set by one of the logical OR instructions. After the switches are set, the TM instruction 
uses the mask to test the bit pattern in operand 1 and set the condition code. Then the 
resulting condition code can be used to alter the processing sequence of a program by 
using one of these branch instructions: 


Meaning Condition 
Instruction Instruction 
BO Branch if 1's. The branch is taken if all 
the bits tested are on. 


Branch if mixed. The branch is taken if some 
of the bits tested are on, some off. 


Branch if O's. The branch is taken if all of the 
bits are off, or the mask is O. 


Branch if not The branch is taken if at least 
all 1's. one of the bits tested is not on. 


Branch if not The branch is taken if at least 
all O's. one of the bits tested is not off. 


Branch if not The branch is taken if all the bits 
mixed. tested are off or if all are on. 





Operational Considerations: 

“  Operand 1 must be a main storage location. 

= Operand 2 is the mask and is a 1-byte self-defining term. 

= The condition code is set accordingly but condition code 2 is not used. 


= The length of operand 1 can vary but a length attribute cannot be specified. 
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s You can specify the exact byte in operand 1 you want the operand 2 mask to test 
@ through relative addressing. 


= The contents of operand 1 and operand 2 remain unchanged after the execution of 
the TM instruction. 


Example: 
LABEL AOPERATIONA OPERAND 
1 10 16 
sen wei i a a a 
LA 5,PAYHRS 
™ 6(5),X'FO! 
BNO ERROR] 
T™ 1(5),X' FG! 
BNO ERROR2 
ERROR] MVC OUTPUT (26) ,MSGI 
ERROR2 MVC OUTPUT (21) ,MSG2 
PAYHRS DC CL2'4A! 
DS OH 
OUTPUT DS CLI 32 
MSG} oC CL26'FIRST NUMBER INVALID! 
MSG2 pe CL21'SECOND NUMBER INVALID! 


PAYHRS before and after execution of first and second TM instruction: 


binary 


hex 
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In this example, the address of PAYHRS is loaded into register 5. The TM instruction then 
uses the mask in operand 2 to test the first byte in operand 1. The four high order bits of 
the mask test the four high order bits of operand 1. (The low order four bits of the mask 
cause no testing of the low order four bits of operand 1 to take place.) Since the result of 
the test is all 1’s, the condition code is set to 3 and no branch takes place. 





The second TM instruction uses the mask in operand 2 to test the second byte in operand 
1. The four high order bits of the mask test the four high order bits of the second byte in 
operand 1. (The low order four bits of the mask cause no testing of the low order four bits 
of operand 1 to take place.) Since the result of the test is a combination of O's and 1’s, the 
condition code is set to 1 and the branch to the instruction labeled ERROR2 takes place. 
There, an error message is moved to the output area for printing. 











UP-8913 SPERRY UNIVAC OS/3 12-121 


ASSEMBLER 
I 


TMS 
® 


12.38. TEST UNDER MASK AND SKIP (TMS) 


Possible Program Exceptions 


fy ADDRESSING BB SIGNIFICANCE 













Seed 






OPCODE | FORMAT 
TYPE 





Pee (] DATA (INVALID SIGN/O1GIT) | (] SPECIFICATION: 
(Bytes) || C) DECIMAL DIVIDE NOT A FLOATING-POINT REGISTER 


OP 1 NOT ON HALF-WORD BOUNDARY 
OP 2 NOT ON HALF-WORD BOUNDARY 
OP 2 NOT ON FULL-WORD BOUNDARY 
OP 2 NOT ON DOUBLE-WORD 
BOUNDARY 

OP 1 NOT EVEN NUMBERED REGISTER 
OP 1 NOT ODD NUMBERED REGISTER 
LOW-ORDER BIT OF OP 4 MUST BE ZERO 


NONE 


CJ DECIMAL OVERFLOW 

OO execute 

0 EXPONENT OVERFLOW 
(C1) EXPONENT UNDERFLOW 
0 FIXED-POINT DIVIDE 

O FIXED-POINT OVERFLOW 
0 FLOATING-POINT DIVIDE 
(1 OPERATION 
PROTECTION 





rms [ex { aw | «| 
Condition Codes 


M set too 


WM serto1 
0 set To 2 
WM set to3 
(J UNCHANGED 





Ogo0 OOOOO 





The test under mask and skip (TMS) instruction tests selected bits of a byte of main 

storage specified by operand 1 and sets the condition code. Together with a 4-bit mask 

specified by operand 3, the condition code determines whether program control then 

passes to the next sequential instruction or to another location determined by a 
@ displacement specified in operand 4. 


Explicit Format: 








A OPERATION A OPERAND 


[symbol] 


Implicit Format: 







A OPERATION A OPERAND 






d 


[symbol] s, i,m, ,d, 
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Operand 2 is an 8-bit mask which corresponds, bit for bit, with the 8 bits at the operand 1 
location in main storage. The TMS instruction scans the mask and, depending on the © 


setting of its bits, takes the following action with each bit: 
= =f a mask bit is O, its corresponding operand 1 bit is ignored. 


a If a mask bit is 1, its corresponding operand 1 bit is selected and tested to determine 
if it is set to 1. 


After the mask scan is finished, the condition code is set: 

= to O if the mask consists of all O’s or if all selected bits are set to O; 
= to 1 if some selected bits are set to O and some to 1; or 

= to 3 if all selected bits are set to 1. 


After the condition code is set, it is compared against the 4-bit mask specified by operand 
3: 


Mask value 
Mask bit position 


Corresponding condition code 





The TMS instruction then takes one of the following two actions: 


= ~=|f the mask bit corresponding to the condition code is set to 0, program control passes 
to the next sequential instruction. 


= = If the mask bit corresponding to the condition code is set to 1, the TSM instruction 
adds the 12-bit displacement in bits 20—31 of the object code to the current program 
status word (PSW). This, in effect, causes a branch to the new PSW address. 


The TMS instruction acts like a sequence of TEST UNDER MASK and BRANCH ON 
CONDITION instructions. The only difference is that a TMS branch, when called for, is 
really a displacement from the current PSW; the normal address-formation routines play 
no role in this part of the instruction. Branching can take place forwards or backwards. A 
1 in bit 20 (the high order displacement bit) means a negative displacement and a 
backward branch, while a zero in bit 20 means a positive displacement and a forward 
branch. 


You can specify the m3; mask either with an absolute value or by coding an extended 
mnemonic in place of TMS in your assembler source program. The assembler provides six 
of these mnemonics for the TMS instruction: all assemble into TMS object instructions but 
each generates a different m3; mask value as shown in the following table. 
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Extended Mnemonic | Mask Function 
Mnemonic Code Value* 












Branch if all ones. 
Branch if ail zeros. 
Branch if mixed. 

Branch if not all ones. 
Branch if not all zeros. 
Branch if not mixed. 


*Bits 16—19 of object instruction 


When using an extended mnemonic, you use only three operands: the operand 1 address, 
the operand 2 immediate byte, and the operand 4 displacement, in that order. 


You can specify the displacement value yourself or you can let the assembler do it for you: 


You can code the displacement as an absolute expression. In this case, the assembler 
inserts the expression, unchanged, into the displacement field. 


You can code the displacement as a relocatable expression. In this case, the 
assembler simulates a branch to the specified location by calculating its offset from 
the address of the instruction immediately following TMS and inserting the offset in 
the displacement field. 


Operational Considerations: 


The displacement field can range from —2048 decimal bytes to +2046 bytes. 


The displacement must always be an even number of bytes since destination 
instructions must always lie on a half-word boundary. 


A mask of O (0000,,) causes the instruction always to branch to the next sequential 
instruction regardless of the condition code set. Likewise, a displacement value of O 
causes an unconditional branch to the next sequential instruction. 


A mask of 15 (1111,,) causes the TMS instruction always to branch to the instruction 
specified by the displacement field. 


You must specify both the mask and the immediate byte as self-defining terms. 


Example: 


LABEL AOPERATIONA OPERAND OBJECT ADDRESS 
1 10 16 


MV I TESTBYTE,X'F4! PBB1IIC 


TMS TESTBYTE ,X'F@!',1,NUM 996128 
NEXTINS  L 7,6 980126 


NUM ‘ O60142 
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In this example, the TMS instruction tests the byte in main storage at location TESTBYTE. 
Before execution of the TMS instruction, TESTBYTE contains: 


TESTBYTE 


At the time it is assembled, the TMS instruction: 


specifies that only the four high order bits of operand 1 are to be tested (using a mask 
of X’FO’ or B‘'11110000’); 


sets up a branch to location NUM if conditions are met by calculating the 
displacement from the next sequential instruction (at NEXTINS) to NUM 
(142—126=1C,, bytes) and putting that value in bits 20—31 of the object code; and 


defines a condition code mask of 1, meaning that a branch to NUM will take place 
only if the condition code is set to 3. 


When executed, the instruction operates as follows: 


(2) TESTBYTE 


Condition code | 0001 | 
Operand 3 mask | 0001 | 


branch by 
displacement 


set condition code to 3 





@) Old PSW 000126 (NEXTINS) 


+ Operand 4 00001C 
displacement 


= New PSW 000142 (NUM) 
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in@), the i. mask causes only the four high order bits of TESTBYTE to be tested. The test 
takes place and all four bits are found to contain 1, therefore, condition code 3 is set. 
According to(2), the operand 3 mask has a value of 1 that, corresponding to condition code 
3, causes a program branch to NUM. The branch occurs in @when the displacement of 
X‘1C’ is added to the current PSW address, originally pointing at NEXTINS. This addition 
forces a branch to location 142, the location of NUM, and the TMS instruction then 
terminates. 


You could have recoded the TMS instruction using the appropriate extended mnemonic, 
TMBO: 


TMBO TESTBYTE,X’FO’",NUM 


You would, in this case, omit the m3 mask, as TMBO automatically supplies the correct 
mask value, 1. 
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ee eS 


TR 


12.39. TRANSLATE (TR) 


General 


OBJECT 
OPCODE FORMAT | INST. 


Possible Program Exceptions 


fB ADDRESSING Wi PROTECTION 

(1 DATA (INVALID SIGN/DIGIT) | L] SIGNIFICANCE 

(] DECIMAL DIVIDE (J SPECIFICATION: 

CO DECIMAL OVERFLOW NOT A FLOATING-POINT REGISTER 
OJ execute OP 1 NOT ON HALF-WORD BOUNDARY 
(C0 EXPONENT OVERFLOW OP 2 NOT ON HALF-WORD BOUNDARY 
C] EXPONENT UNDERFLOW OP 2 NOT ON FULL-WORD BOUNDARY 
(] FIXED-POINT DIVIDE OP 2 NOT ON DOUBLE-WORD 


OC) FIXED-POINT OVERFLOW BOUNDARY 
CO FLOATING POINT DIVIDE OP 1 NOT EVEN NUMBERED REGISTER 


(J OPERATION OP 1 NOT ODD NUMBERED REGISTER 
NONE 




















TYPE LGTH. 
(BYTES) 


Condition Codes 


Olif RESULT = 0, SET TOO 





















Cie RESULT <0, SETTO1 
Clif RESULT > 0, SET TO 2 
Dif OVERFLOW, SET TO3 
QE UNCHANGED 


OOO OOOOO0 





The translate (TR) instruction gets a byte from a table of characters in operand 2 and 
places it in its corresponding byte of operand 1. 


Explicit Format: 






A OPERATION A OPERAND 





| TR 


[symbo}]} d, (I,b, ),d, (b,) 


Implicit Format: 






A OPERATION A OPERAND 


The translate instruction can translate the bit pattern of each byte in a field (operand 1) to 
any other bit pattern. This instruction works in conjunction with a table (operand 2) that 
has been previously defined within the program, and contains the bit patterns that 
correspond to each byte in operand 1. This instruction operates from left to right, starting 
with the replacement of the leftmost byte in operand 1, and ending with the replacement 
of the rightmost byte in operand 1. To find the appropriate code in the table (operand 2), 
each byte in the operand 1 field is used as an unsigned binary value that is added to the 
address of the first byte in the table. (The sum of the addition is similar to the addition of 
base register and displacement values.) 
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@ The result of the addition is another address which should be somewhere within the table. 


The one byte of data that is located at that address replaces the 8-bit binary value of 
operand 1 that was used in the addition to arrive at that location. After the first byte is 
replaced, the second byte is operated upon and replaced, and so on until the end of the 
operand 1 field is reached. 

Since there are 256 different combinations of an 8-bit byte (EBCDIC), the maximum size of 
the translate table is 256 bytes. However, you can define a table smaller than that 
because input data is normally restricted to a smaller range. 

The translate instruction can be used to convert data from one code to another code (i.e., 
octal to hexadecimal) or it can be used to rearrange data to be stored in a specific 
sequence. 

Operational Considerations: 

= Operand 1 must be a main storage location and can be defined in any format. 

= Operand 2 must be a table that is previously defined within the program. 


= Operand 2 cannot exceed 256 bytes in length. 


= One byte in operand 2 replaces one byte in operand 1. 





& = Each byte in operand 1 is treated as an unsigned binary value which is added to the 
address of the first byte in operand 2. 
Example: 
LABEL AOPERATIONA OPERAND 
1 10 16 
TR FIELD, TABLE 
FIELD DC X' 66A4C5F7! 
TABLE DS @CL256 
DC 106x'gg' 
DC X'S162636465660768096A' 
DC 5OxX'sp' 
Dc X' SBOCHOGEGFIB111213! 
DC 19x' Gg! 
DC X*T4ISI6I7ZISISIAIBIC! 
DC 5OX' Sp! 
oC X'1DIE1F26212223242526! 
pc x ' 6g! 
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FIELD before execution of TR instruction: 


0110 10110) 1010 {0100} 110010101 
fete [atelets, 


FIELD after execution of TR instruction: 


0000 ;0011 | 0000 11111 /0000 10000 |0010,0110 
fete fefe[eie [ate 


In this example, FIELD (operand 1) contains four addresses to be added to the address of 
the first byte of TABLE (operand 2), one at a time, to access a specific byte within the 
table. The table with the label TABLE is defined as part of this program. 
















The first byte in operand 1, a hexadecimal 66, has a decimal equivalence of 102. When a 
decimal value of 102 is added to the address of the first byte in TABLE, the 103rd byte in 
the table (a hexadecimal 03) is accessed. That byte replaces the hexadecimal 66 and the 
second byte in operand 1 is processed. 


The second byte in operand 1 (a hexadecimal A4) has a decimal equivalence of 164. When 
a decimal value of 164 is added to the address of the first byte in TABLE, the 165th byte 
in the table (a hexadecimal OF) is accessed. That byte replaces the hexadecimal A4 and 
the third byte in operand 1 is processed. 





The third byte in operand 1 (a hexadecimal C5) has a decimal equivalence of 197. When a 
decimal value of 197 is added to the address of the first byte in TABLE, the 198th byte in 
the table (a hexadecimal 00) is accessed. That byte replaces the hexadecimal C5 and the 
fourth byte in operand 1 is processed. 


The fourth byte in operand 1 (a hexadecimal F7) has a decimal equivalence of 247. When 
a decimal value of 247 is added to the address of the first byte in TABLE, the 248th byte 
in the table (a hexadecimal 26) is accessed. That byte replaces the hexadecimal F7 and the 
TR instruction terminates. 
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& TRT 


12.40. TRANSLATE AND TEST (TRT) 


General Possible Program Exceptions 
OBJECT || gy ADDRESSING @ PROTECTION 
OPCODE FORMAT | INST. 
TYPE LGTH. 


oO DATA (INVALID SIGN/DIGIT) Oo) SIGNIFICANCE 


(D DECIMAL DIVIDE (J SPECIFICATION: 
CO DECIMAL OVERFLOW NOT A FLOATING-POINT REGISTER 
frat [oo] ss | 6 | 
Condition Codes 


OC] execute OP 1 NOT ON HALF-WORD BOUNDARY 
CD EXPONENT OVERFLOW OP 2 NOT ON HALF-WORD BOUNDARY 
(1 EXPONENT UNDERFLOW OP 2 NOT ON FULL-WORD BOUNDARY 
ccrios (] FIXED-POINT DIVIDE OP 2 NOT ON DOUBLE-WORD 
Msetto1 D FIxXED-POINT OVERFLOW BOUNDARY 
M set to2 
CI set to3 
SEE OPER. CONSIDERATIONS 




















(CO FLOATING-POINT DIVIDE OP 1 NOT EVEN NUMBERED REGISTER 
(CJ OPERATION OP 1 NOT ODD NUMBERED REGISTER 
NONE 


The translate and test (TRT) instruction gets a byte from a table of characters in operand 2 
and examines it for the presence of a hexadecimal OO. If found, it continues processing 
with the next byte in operand 1. If not found, execution of the TRT instruction is 

& terminated and the address of that byte in operand 1 and the nonzero byte in the table are 
saved. The result of the byte examination in the table determines the setting of the 
condition code, bits 34 and 35 of the PSW. (See 8.1.) 


Explicit Format: 






A OPERATION A OPERAND 





[symbol] d, (Ib, ),d, (b,) 


Implicit Format: 






A OPERATION A 


OPERAND 


[symbol] 


This instruction works in conjunction with a table (operand within the program) and 
contains bit patterns that correspond to each byte in operand 1. This instruction operates 
from left to right starting with the first byte in operand 1 and ending with the last byte in 
operand 1 or when a nonzero byte is found in the table. To find the appropriate code in the 
table (operand 2), each byte in the operand 1 field is used as an unsigned binary value 
which is added to the address of the first byte in the table. This method of accessing a 
@ byte from a table is performed in the same manner as the translate (TR) instruction. 
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The result of the addition of an unsigned binary value to the address of the first byte is 
another address which should be somewhere within the table. The one byte of data that is 
located at that address is examined for the presence of a hexadecimal OO. If found, 
processing continues with the next byte in operand 1. If a hexadecimal OO is not found, 
execution of the TRT instruction is terminated. 





The address of that byte in operand 1 is inserted in the low order 24 bits of register 1, 
with the high order eight bits remaining unchanged. The nonzero byte from the table is 
inserted in the low order eight bits of register 2, with the high order 24 bits remaining 
unchanged. 


The condition code is set as follows: 
= to O if all the bytes examined in the table are zero; 


= to 1 if a nonzero character is found in the table before the last byte in operand 1 is 
processed; or 


= to 2 if a nonzero character is found in the table that corresponds to the last byte in 
operand 1. 


The translate and test instruction is used to find certain characters in an input stream. You 
can set up operand 2 (table) with all zero bytes for those characters to be skipped over and 
all nonzero bytes for those characters to be detected and used. 





Operational Considerations: 

=  Operand 1 must be a main storage location and can be defined in any format. 
=  Operand 2 must be a table that is previously defined within the program. 

=  Operand 2 cannot exceed 256 bytes in length. 


= Each selected byte in the table (operand 2) is examined for the presence of a 
hexadecimal OO. 


= Each byte in operand 1 is treated as an unsigned binary value which is added to the 
address of the first byte in operand 2. 


= The condition code is set accordingly. 
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Example: 
LABEL AOPERATIONA OPERAND 
1 10 16 
TRT AREAIN, TRTTABLE 
AREAIN DC X'324G48! 
TRTITABLE DS §CL256 
DC 64X'BG' 
oC X' hg! 
DC 191X' pg! 


Register 1 after execution of TRT instruction: 


0000 | 0000 |0000 |0000 | 0000; 0000/0100 ,0000 





address of 
second byte 
in operand 1 


Register 2 after execution of TRT instruction: 


0000 ; 0000 /0000 |0000 ;0000/| 0000 |0100 ,0000 binary 
ae aie 


nonzero byte 
in table that 
corresponds to 
second byte in 
operand 1 









In this example, the only nonzero byte in the table is the 65th byte which is the address of 
the first byte in the table +64. The hexadecimal 40 at that location causes the TRT 
instruction to terminate. Then the address of the blank, also a hexadecimal 40, is put into 
register 1. The nonzero character in the table, a blank, is put in the rightmost byte of 
register 2. The condition code is set to 1 since a nonzero character is found in the table 
before the last byte in operand 1 has been processed. 
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13. Privileged and Status Switching 
Instructions 


13.1. GENERAL 


A privileged instruction is an instruction used by the operating system. A privileged 
instruction cannot be used in a program operating under the SPERRY UNIVAC Operating 
System/3 (OS/3). If a program operating under OS/3 uses a privileged instruction, a 
privileged operation program exception causes the program to terminate without 
executing. 


The privileged instructions are included in this book because they can be assembled under 
OS/3 even though they can’t be executed. 


The checkoff table used with each instruction is explained in Appendix D. 


Some of the status-switching instructions are also privileged, but three are not. These 
instructions are set program mask (SPM), supervisor call (SVC), and test and set (TS). 


Since the status switching instructions manipulate portions of the program status word 
(PSW), it might be helpful to read the PSW field description in 8.1. 
13.2. STATUS-SWITCHING PRIVILEGED INSTRUCTIONS 


The status-switching instructions can change the program status word (PSW), the 
contents of the protect key storage, and the current relocation register. 
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HPR 


13.2.1. Halt and Proceed (HPR) Instruction 


General 


Possible Program Exceptions 




















































OBJECT || 7 ADDRESSING CO PROTECTION 
abies EO NMAT |) Hel (J DATA (INVALID SIGN/DIGIT)| [] SIGNIFICANCE 
TYPE LGTH. a 
(Bytes) || () DECIMAL DIVIDE [] SPECIFICATION: 
CJ DECIMAL OVERFLOW O NOT A FLOATING-POINT REGISTER 
(execute O OP 1 NOT ON HALF-WORD BOUNDARY 
(1 EXPONENT OVERFLOW O OP 2 NOT ON HALF-WORD BOUNDARY 
Condition Codes 1 EXPONENT UNDERFLOW LJ OP 2 NOT ON FULL-WORD BOUNDARY 
a 
CJ FIXED-POINT DIVIDE LI OP 2 NOT ON DOUBLE-WORD 
Clie RESULT = 0,SET TOO BOUNDARY 
Chir RESULT <0, SET TO 1 (J FIXED POINT OVERFLOW = 
Fie RESULT >O, SET T02 (J FLOATING-POINT DIVIDE a OP 1 NOT EVEN NUMBERED REGISTER 
C]!F OVERFLOW, SET TO3 Ml OPERATION OP 1 NOT ODD NUMBERED REGISTER 
MB UNCHANGED C1) NONE 


Explicit Format: 







A OPERATION A OPERAND 


[symbol] 


HALTHERE 0(5), 81 


Implicit Format: 






A OPERATION A OPERAND 





S, ly 


TAG, X‘FF’ 


[symbol] 
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] ISK 


13.2.2. Insert Storage Key (ISK) Instruction 


a eee 
OPCODE FORMAT | INST. 
TYPE LGTH. 


Possible Program Exceptions 


W@ ADDRESSING OC PROTECTION 

[] DATA (INVALID SIGN/O1GIT) | [) SIGNIFICANCE 
(1) DECIMAL DIVIDE W@ SPECIFICATION: 
0 DECIMAL OVERFLOW 
0 execute 


Condition Codes 


Clit RESULT = 0,SET TOO 
Chit RESULT <0, SET TO1 
OliF RESULT >0, SET TO 2 
CIF OVERFLOW, SET TO3 
BB UNCHANGED 


NOT A FLOATING-POINT REGISTER 

OP 1 NOT ON HALF-WORD BOUNDARY 
OP 2 NOT ON HALF-WORD BOUNDARY 
OP 2 NOT ON FULL-WORD BOUNDARY 


OP 2 NOT ON DOUBLE-WORD 
BOUNDARY 


OP 1 NOT EVEN NUMBERED REGISTER 
OP 1 NOT ODD NUMBERED REGISTER 
NONE 





(J EXPONENT OVERFLOW 
C1 EXPONENT UNDERFLOW 
OC F1XED-POINT DIVIDE 

OD FIXED-POINT OVERFLOW 
C FLOATING-POINT DIVIDE 
9B OPERATION 






OOO OOOOO 





Explicit and Implicit Format: 





LABEL A OPERATION A OPERAND 
e [symbol] ISK rly 
INKEY ISK 3,4 





Y 


4 
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LPSW 


13.2.3. Load Program Status Word (LPSW) Instruction 


General Possible Program Exceptions 
OBJECT 
OPCODE FORMAT | INST. 
TYPE LGTH, 


MNEM. (BYTES) 


Condition Codes 


Clif RESULT = 0,SET TOO 
Cie RESULT <o, SET TO1 
Clif RESULT > 0, SET TO 2 
CIF OVERFLOW, SET TO 3 
MseeE NoTE 








@ ADDRESSING @ PROTECTION 

(CO DATA UNVALID SIGN/DIGIT)| () SIGNIFICANCE 

( DECIMAL DIVIDE HB SPECIFICATION: 

(C1 DECIMAL OVERFLOW NOT A FLOATING-POINT REGISTER 

OC] execute OP 1 NOT ON HALF-WORD BOUNDARY 







(] EXPONENT OVERFLOW OP 2 NOT ON HALF-WORD BOUNDARY 
(1 ExPONENT UNDERFLOW OP 2 NOT ON FULL-WORD BOUNDARY 
C FIXED-POINT DIVIDE OP 2 NOT ON DOUBLE-WORD 


OO FIXED-POINT OVERFLOW BOUNDARY 
C) FLOATING-POINT DIVIDE OP 1 NOT EVEN NUMBERED REGISTER 


Wi OPERATION OP 1 NOT ODD NUMBERED REGISTER 
NONE 





Explicit Format: 







A OPERATION A OPERAND 


[symbol] 


Implicit Format: 







A OPERATION A 


OPERAND 


[symbol] 


NOTE: 


Condition code is set as specified in the new PSW loaded. 
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SSK 


13.2.4. Set Storage Key (SSK) Instruction 


General 
OBJECT 
OPCODE FORMAT | INST. 
TYPE LGTH. 


Condition Codes 


(Ot RESULT = 0,SET TOO 
Clie RESULT <0, SETTO1 
DJF RESULT >0O, SET TO 2 
(Jif OVERFLOW, SET TO 3 
MB UNCHANGED 





Possible Program Exceptions 


HI ACDRESSING 0 PROTECTION 

(1 DATA (INVALID SIGN/DIGIT)] [] SIGNIFICANCE 
(J DECIMAL DIVIDE ME SPECIFICATION: 
(1 DECIMAL OVERFLOW 
C1 EXECUTE 











NOT A FLOATING-POINT REGISTER 

OP 1 NOT ON HALF-WORD BOUNDARY 
OP 2 NOT ON HALF-WORD BOUNDARY 
OP 2 NOT ON FULL-WORD BOUNDARY 


OP 2 NOT ON DOUBLE-WORD 
BOUNDARY 


OP 1 NOT EVEN NUMBERED REGISTER 
OP 1 NOT ODD NUMBERED REGISTER 
NONE 


CJ EXPONENT OVERFLOW 
(C0 ExPONENT UNDERFLOW 
C) FIXED-POINT DIVIDE 

CO) FIXED-POINT OVERFLOW 
C] FLOATING-POINT DIVIDE 
MB OPERATION 








OOO OOoOOO 





Explicit and Implicit Format: 






A OPERATION A OPERAND 


[symbol] 
SETKEY 






2,3 
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SSM 












ieee cn en 
INST. 


13.2.5. Set System Mask (SSM) Instruction 
LGTH. 


Possible Program Exceptions 
TYPE 


Condition Codes 


CF RESULT =0,SET TOO 
OCF RESULT <0, SET TO1 
CIF RESULT > 0, SET TO 2 
ClF OVERFLOW, SET TO 3 
GEUNCHANGED 


By ADDRESSING @ PROTECTION 

(CO DATA (INVALID SIGN/DIG!IT)| [1] SIGNIFICANCE 

(0 DECIMAL DIVIDE [) SPECIFICATION: 

0 DECIMAL OVERFLOW NOT A FLOATING-POINT REGISTER 
0 execute OP 1 NOT ON HALF-WORD BOUNDARY 












(C0 EXPONENT OVERFLOW OP 2 NOT ON HALF-WORD BOUNDARY 
CO) EXPONENT UNDERFLOW OP 2 NOT ON FULL-WORD BOUNDARY 
OO FIXED-POINT DIVIDE OP 2 NOT ON DOUBLE-WORD 


OO FIXED-POINT OVERFLOW BOUNDARY 
CO FLOATING-POINT DIVIDE OP 1 NOT EVEN NUMBERED REGISTER 


OPERATION OP 1 NOT ODD NUMBERED REGISTER 
NONE 





Explicit Format: 








AOPERATION A 





LABEL OPERAND 










[symbol] 


SETSM 6(32) 
Implicit Format: 
LABEL A OPERATION A OPERAND 
[symbol] So 
SETSM SYSMASK 





13.3. INPUT/OUTPUT PRIVILEGED INSTRUCTIONS 


This set of privileged instructions initiates, controls, and ends all input/output operations 
in System 80. 
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@ CLRCH 


13.3.1. Clear Channel (CLRCH) Instruction 


Possible Program Exceptions 


OBJECT |] gy ADDRESSING @ PROTECTION 


OPCODE | FORMAT | INST. 
eae ieee 1 DATA (INVALID SIGN/DIGIT) | [] SIGNIFICANCE 


(Bytes) ||] DECIMAL DivIDE Wi SPECIFICATION: 
C1 DECIMAL OVERFLOW NOT A FLOATING-POINT REGISTER 
( execute OP 1 NOT ON HALF-WORD BOUNDARY 


C1] EXPONENT OVERFLOW OP 2 NOT ON HALF-WORD BOUNDARY 
C] EXPONENT UNDERFLOW OP 2 NOT ON FULL-WORD BOUNDARY 
BSET Too (1 FIXED-POINT DIVIDE OP 2 NOT ON DOUBLE-WORD 
WH seTTo1 C FIXED-POINT OVERFLOW BOUNDARY 
[] set T02 CJ FLOATING-POINT DIVIDE OP 1 NOT EVEN NUMBERED REGISTER 
C] Set To3 W@ OPERATION OP 1 NOT ODD NUMBERED REGISTER 


(CO UNCHANGED NONE 





Explicit Format: 







AOPERATION A OPERAND 


[symbol] 


: STCLR 48(6 


Implicit Format: 







LABEL A OPERATION A OPERAND 


[symbol] 
STCLR 








UP-8913 SPERRY UNIVAC 0S/3 13-8 
ASSEMBLER 


CLRDV 





13.3.2. Clear Device (CLRDV) Instruction 


Possible Program Exceptions 


OBJECT || gy ADDRESSING Mi PROTECTION 


OPCODE FORMAT | INST. 
TYPE LGTH. (0 DATA (INVALID SIGN/DIGIT) | [] SIGNIFICANCE 


(Bytes) |] () DECIMAL DIVIDE BB SPECIFICATION: 
(1 DECIMAL OVERFLOW NOT A FLOATING-POINT REGISTER 
CO execute OP 1 NOT ON HALF-WORD BOUNDARY 


CO EXPONENT OVERFLOW OP 2 NOT ON HALF-WORD BOUNDARY 
Condition Codes OO EXPONENT UNOERFLOW OP 2 NOT ON FULL-WORD BOUNDARY 
CO FIXED-POINT DIVIDE OP 2 NOT ON DOUBLE-WORD 


SET TOO 
| 0 FIxXED-POINT OVERFLOW BOUNDARY 


SET TO 1 
WM set T02 (0 FLOATING-POINT DIVIDE OP 1 NOT EVEN NUMBERED REGISTER 


HE sET T03 BB OPERATION OP 1 NOT ODD NUMBERED REGISTER 
(J UNCHANGED NONE 





Explicit Format: 







A OPERATION A OPERAND 





[symbol] 


CLEAR1 8,0(6) 


Implicit Format: 







A OPERATION A OPERAND 


[symbol] 


CLEAR1 8 


Operational Consideration: 


= The r, field you specify goes into bits 8—11 of the object code. 
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13.3.3. Enqueue !/O (EIO) Instruction 














OBJECT 
FORMAT } INST. 
TYPE LGTH. 
(BYTES) 


ADDRESSING 

(1 DATA (INVALID SIGN/DIGIT) 
[] DECIMAL DIVIDE 

C1 DECIMAL OVERFLOW 

C Execute 

C] EXPONENT OVERFLOW 

CO EXPONENT UNDERFLOW 

OO FIXED-POINT DIVIDE 

OD FIXED-POINT OVERFLOW 

(1) FLOATING-POINT DIVIDE 

Wi OPERATION 





OPCODE 











MNEM. JHEX,. 


Condition Codes 






















@ settoi 
® set To 2 
@ set TO3 
(CO UNCHANGED 


a BS No 


Explicit Format: 










LABEL A OPERATION A 





{symbol} 


QUEUE1 0(3,4),8(3,6) 


Implicit Format: 








_AOPERATIONA 


[symbol] 
QUEUE1 


Sy (i, ),So (r, ) 


Possible Program Exceptions 


W@W PROTECTION 
(J SIGNIFICANCE 
BB SPECIFICATION: 


NONE 


OPERAND 


d, (i, ,b, ),do(r, bo) 


13-9 





EIO 


NOT A FLOATING-POINT REGISTER 

OP 1 NOT ON HALF-WORD BOUNDARY 
OP 2 NOT ON HALF-WORD BOUNDARY 
OP 2 NOT ON FULL-WORD BOUNDARY 


OP 2 NOT ON DOUBLE-WORD 
BOUNDARY 


OP 1 NOT EVEN NUMBERED REGISTER 
OP 1 NOT ODD NUMBERED REGISTER 


OPERAND 


OP2(3),ENQ(3) 
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HDV 





13.3.4. Halt Device (HDV) Instruction 


Possible Program Exceptions 


BB ADDRESSING Wl PROTECTION 

(0 DATA (INVALID SIGN/DIGIT) | [] SIGNIFICANCE 

(J DECIMAL DiviDE OC SPECIFICATION: 

OJ DECIMAL OVERFLOW NOT A FLOATING-POINT REGISTER 
(1) execute OP 1 NOT ON HALF-WORD BOUNDARY 







OBJECT 
INST. 











OPCODE | FORMAT 
TYPE LGTH. 


Condition Codes 


fset Too 
Wiser to1 
Mset T02 
WMset tro 3 
(I UNCHANGED 








(0 EXPONENT OVERFLOW OP 2 NOT ON HALF-WORD BOUNDARY 
(1 EXPONENT UNDERFLOW OP 2 NOT ON FULL-WORD BOUNDARY 
DC FIXED-POINT DIVIDE OP 2 NOT ON DOUBLE-WORD 


O00 FIXED-POINT OVERFLOW BOUNDARY 
C0 FLOATING-POINT DIVIDE OP 1 NOT EVEN NUMBERED REGISTER 


@ OPERATION OP 1 NOT ODD NUMBERED REGISTER 
NONE 







Explicit Format: 







AOPERATION A OPERAND 





[symbo!] 


HALT10 8(10) 


Implicit Format: 





AOPERATION A OPERAND 






[symbol] 


S2 
HALT10 sTopcD 
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LCHR 


13.3.5. Load Channel Register (LCHR) Instruction 


Possible Program Exceptions 


OBJECT 


ADDRESSING @ PROTECTION 
OPCODE FORMAT | INST. a 


[0 DATA (INVALID SIGN/DIGIT)| (] SIGNIFICANCE 

(1 DECIMAL DIVIDE Mi SPECIFICATION: 

1) DECIMAL OVERFLOW NOT A FLOATING-POINT REGISTER 

C) execute OP 1 NOT ON HALF-WORD BOUNDARY 


LGTH. 
(BYTES) 


Condition Codes 


@serto1 
Q@set To 2 
Wiser To3 
CI UNCHANGED 





(— EXPONENT OVERFLOW OP 2 NOT ON HALF-WORD BOUNDARY 
C]) EXPONENT UNDERFLOW OP 2 NOT ON FULL-WORD BOUNDARY 
[) FIXED-POINT DIVIDE OP 2 NOT ON DOUBLE-WORD 


(1 FixED-POINT OVERFLOW BOUNDARY 
CE FLOATING-POINT DIVIDE OP 1 NOT EVEN NUMBERED REGISTER 


WB OPERATION OP 1 NOT ODD NUMBERED REGISTER 
NONE 







Explicit Format: 






LABEL A OPERATION A OPERAND 







[symbol] 


OP2 8(2) 


Implicit Format: 





A OPERATION A OPERAND 
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LDA 


13.3.6. Load Directive Address (LDA) Instruction 


Possible Program Exceptions 
iceegie i. a ADDRESSING @ PROTECTION 
FORMAT | IN 
TPE eet: (0 DATA (INVALID SIGN/DIGIT) | [] SIGNIFICANCE 


(Bytes) || (J DECIMAL DivIDE DD SPECIFICATION: 


CJ DECIMAL OVERFLOW NOT A FLOATING-POINT REGISTER 
OO execute OP 1 NOT ON HALF-WORD BOUNDARY 


(0 EXPONENT OVERFLOW OP 2 NOT ON HALF-WORD BOUNDARY 
CL] EXPONENT UNDERFLOW OP 2 NOT ON FULL-WORD BOUNDARY 
Ci necucree ser coo C FIx€D-POINT DIVIDE OP 2 NOT ON DOUBLE-WORD 
Cit Resuct <0, SET 101 (0 FIXED-POINT OVERFLOW BOUNDARY 
Clie RESULT >o. SET TO 2 C0 FLOATING-POINT DIVIDE OP 1 NOT EVEN NUMBERED REGISTER 
DF OVERFLOW, SET TO 3 OPERATION OP INOT-ODD:NUMBERED-REGISTER 
BBUNCHANGED NONE 





Explicit Format: 







AOPERATION A OPERAND 






[symbol] 
LOAD8 


11 dy (x2 ,b5) 
8,16(4,5) 


Implicit Format: 










A OPERATION A 





LABEL OPERAND 









[symbol] 
LOAD8 


14 So (Xo) 
8,ADDR(4) 
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@ LIA 


13.3.7. Load 1/O Address (LIA) Instruction 


Possible Program Exceptions 


(J ADDRESSING (C0 PROTECTION 

DD DATA (INVALID SIGN/DIGIT) OD SIGNIFICANCE 

(J DECIMAL DIVIDE WM SPECIFICATION: 

0 DECIMAL OVERFLOW NOT A FLOATING-POINT REGISTER 
OC Execute OP 1 NOT ON HALF-WORD BOUNDARY 


OBJECT 
OPCODE FORMAT | INST. 


TYPE LGTH. 
(BYTES) 


Condition Codes 


Cif RESULT = 0,SETTOO 
Clif RESULT <0, SET TO1 
Cite RESULT >0, SET TO 2 
CJtF OVERFLOW, SET TO 3 
G@ UNCHANGED 





DD EXPONENT OVERFLOW OP 2 NOT ON HALF-WORD BOUNDARY 
CJ EXPONENT UNDERFLOW OP 2 NOT ON FULL-WORD BOUNDARY 


CD FIXED-POINT OIVIDE OP 2 NOT ON DOUBLE-WORD 


0 FIXED-POINT OVERFLOW BOUNDARY 
C FLOATING-POINT DIVIDE OP 1 NOT EVEN NUMBERED REGISTER 


OP 1 NOT ODD NUMBERED REGISTER 
NONE 







HB OPERATION 





Explicit Format: 








LABEL A OPERATION A OPERAND 











Vy do (x ib. ) 
7,8(2,3) 


[symbol] 
LDADDR 


Implicit Format: 





LABEL A OPERATION A OPERAND 













ry 82 (x5) 
7,DATA1 


[symbol] 
LDADDR 
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13.3.8. Move 1/O (MIO) Instruction 


Possible Program Exceptions 


OBJECT 


ADDRESSING BB PROTECTION 
OPCODE FORMAT | INST. a 


(0 DATA (INVALID SIGN/DIGIT) | [] SIGNIFICANCE 

(CO DECIMAL DIVIDE WB SPECIFICATION: 

DO DECIMAL OVERFLOW NOT A FLOATING-POINT REGISTER 
OO execute OP 1 NOT ON HALF-WORD BOUNDARY 


TYPE LGTH. 
(BYTES) 


Condition Codes 


WMsetto1 
ser to2 
MseET TO3 
CI UNCHANGED 





(C0 EXPONENT OVERFLOW OP 2 NOT ON HALF-WORD BOUNDARY 
C1 EXPONENT UNDERFLOW OP 2 NOT ON FULL-WORD BOUNDARY 
OC FIXED-POINT DIVIDE OP 2 NOT ON DOUBLE-WORD 


OO FIXED-POINT OVERFLOW BOUNDARY 
C] FLOATING-POINT DIVIDE OP 1 NOT EVEN NUMBERED REGISTER 


HE OPERATION OP 1 NOT ODD NUMBERED REGISTER 
NONE 











Explicit Format: 









AOPERATION A OPERAND 





LABEL 









iz) V3 dy (b, ) 
6,10,24(3) 


[symbol] 
ADDR5 


Implicit Format: 





LABEL A OPERATION A OPERAND 













V4 N38 


ADDR5 6,10, BUFF 1 
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PRB 


13.3.8.1. Put [ORB (PRB) Instruction 


Possible Program Exceptions 
—___ Wi ADDRESSING C PROTECTION 
FORMAT | INST. 
TYPE LGTH. (DATA (INVALID SIGN/DIGIT)] [] SIGNIFICANCE 


| MNEM. |HEX. (Bytes) |} CJ) DECIMAL DIVIDE LC) SPECIFICATION: 
C) DECIMAL OVERFLOW NOT A FLOATING-POINT REGISTER 


CJ EXPONENT OVERFLOW OP 2 NOT ON HALF-WORD BOUNDARY 
Condition Codes (J EXPONENT UNDERFLOW OP 2 NOT ON FULL-WORD BOUNDARY 


OC FIXED-POINT DIVIDE OP 2 NOT ON DOUBLE-WORD 
Cit ResuLT <0, SETTO1 OO FIXED-POINT OVERFLOW BOUNDARY 
Cte RESULT >o. SET TO2 0 FLOATING-POINT DIVIDE OP 1 NOT EVEN NUMBERED REGISTER 


CIF OVERFLOW, SET TO 3 OPERATION OP 1 NOT ODD NUMBERED REGISTER 
BB UNCHANGED NONE 


CIF RESULT = 0,SET TOO 





Explicit and Implicit Format: 







AOPERATION A OPERAND 
[symbol] 


PUTIT 3,4 
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GRB 





13.3.8.2. Get IORB (GRB) Instruction 


Possible Program Exceptions 


OPCODE OBJECT || gy ADDRESSING C PROTECTION 
reece aleg (0 DATA (INVALID SIGN/DIGIT) | [) SIGNIFICANCE 
(sytes) || (] OECIMAL DivIDE C0 SPECIFICATION: 
OJ DECIMAL OVERFLOW NOT A FLOATING-POINT REGISTER 


CO execute . OP 1 NOT ON HALF-WORD BOUNDARY 


0 EXPONENT OVERFLOW OP 2 NOT ON HALF-WORD BOUNDARY 
Condition Codes CO EXPONENT UNDERFLOW OP 2 NOT ON FULL-WORD BOUNDARY 


(C0 FIXED-POINT DIVIDE OP 2 NOT ON DOUBLE-WORD 

Wir RESULT <0, SET TO1 C0 FIXED-POINT OVERFLOW BOUNDARY 

Or RESULT >0, SET TO 2 C1 FLOATING-POINT DIVIDE OP 1 NOT EVEN NUMBERED REGISTER 
OF OVERFLOW, SET TO 3 i | OPERATION OP 1 NOT OOD NUMBERED REGISTER 
CJ UNCHANGED NONE 


Mir RESULT = 0,SET TOO 





Explicit and Implicit Format: 







A OPERATION A OPERAND 





[symbol] 


GETIT 3,4 
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SDV 


13.3.9. Start Device (SDV) Instruction 


ee 
OPCODE FORMAT | INST. 
TYPE LGTH. 


Possible Program Exceptions 


ADDRESSING @ PROTECTION 

[J DATA (INVALID SIGN/DIGIT)] (] SIGNIFICANCE 

(J DECIMAL DIvIDE MI SPECIFICATION: 

( DECIMAL OVERFLOW NOT A FLOATING-POINT REGISTER 

OC execute OP 1 NOT ON HALF-WORD BOUNDARY 
(CJ EXPONENT OVERFLOW OP 2 NOT ON HALF-WORD BOUNDARY 
CL] EXPONENT UNDERFLOW OP 2 NOT ON FULL-WORD BOUNDARY 
OC] FIXED-POINT DIVIDE OP 2 NOT ON DOUBLE-WORD 


OD FIXED-POINT OVERFLOW BOUNDARY 
C1 FLOATING-POINT DIVIDE OP 1 NOT EVEN NUMBERED REGISTER 


HE OPERATION OP 1 NOT ODD NUMBERED REGISTER 
NONE 
























Condition Codes 


MsetTTOo 
WMsettoi 
BM set To2 
Wsetrro3 
(J UNCHANGED 




























OOO gmoooo 


Explicit Format: 










LABEL A OPERATION A 


OPE RAND 


[symbol] 


START1 16(4) 


implicit Format: 








AOPERATIONA OPERAND 


[symbol] 


So 
START1 STDATA 


13.4. DIAGNOSTIC PRIVILEGED INSTRUCTIONS 


The diagnostic instructions are execute diagnose (EXD), reset (RESET), and store status 
(STS) instruction. 
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EXD 





13.4.1. Execute Diagnose (EXD) Instruction 


Possible Program Exceptions 


Mi ADDRESSING Wi PROTECTION 










OBJECT 



























OPCODE 
oe Gee (1 DATA (INVALID SIGN/DIGIT)} [) SIGNIFICANCE 
(Bytes) || DJ DECIMAL DiviDE @ SPECIFICATION: 





(CJ DECIMAL OVERFLOW 

@ execute 

(C1 EXPONENT OVERFLOW 
(1 EXPONENT UNDERFLOW 
CJ FIXED-POINT DIVIDE 

(CJ FIXED-POINT OVERFLOW 
CJ FLOATING-POINT DIVIDE 
HB OPERATION 


NOT A FLOATING-POINT REGISTER 

OP 1 NOT ON HALF-WORD BOUNDARY 
OP 2 NOT ON HALF-WORD BOUNDARY 
OP 2 NOT ON FULL-WORD BOUNDARY 


OP 2 NOT ON DOUBLE-WORD 
BOUNDARY 


OP 1 NOT EVEN NUMBERED REGISTER 
OP 1 NOT ODD NUMBERED REGISTER 
NONE 








cas 
Condition Codes 


Clif RESULT = 0,SET TOO 
Ole Resutt <o,setto1 
Ore RESULT > 0, SET TO 2 
CF OVERFLOW, SET TO 3 
MB SEE NOTE 















Deo oOo 





Explicit Format: 










A OPERATION A 





LABEL OPERAND 





[symbol] 


DIAG1 8(4) 


Implicit Format: 








A OPERATION A OPERAND 


[symbol] 
DIAG1 


NOTE: 


Condition code may be set by the subject diagnostic or special function. 
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& RESET 


13.4.2. RESET Instruction 


Possible Program Exceptions 


(ADDRESSING C0 PROTECTION 

(0 DATA (INVALID SIGN/DIGIT)] [) SIGNIFICANCE 

(C0 DECIMAL DiviDE MB SPECIFICATION: 

C) DECIMAL OVERFLOW NOT A FLOATING-POINT REGISTER 
0) Execute OP 1 NOT ON HALF-WORD BOUNDARY 


OBJECT 
OPCODE FORMAT | INST. 


LGTH. 
(BYTES) 


Condition Codes 


Osetto1 
O set To 2 
MsetTTO3 
(J UNCHANGED 





(J EXPONENT OVERFLOW OP 2 NOT ON HALF-WORD BOUNDARY 
(CO ExPONENT UNDERFLOW OP 2 NOT ON FULL-WORD BOUNDARY 
() FIXED-POINT DIVIDE OP 2 NOT ON DOUBLE-WORD 


0 FIXED-POINT OVERFLOW BOUNDARY 
C0 FLOATING-POINT DIVIDE OP 1 NOT EVEN NUMBERED REGISTER 


OP 1 NOT ODD NUMBERED REGISTER 
NONE 










@@ OPERATION 






Explicit Format: 








OPERAND 







A OPERATION A 





LABEL 
© [symbol] 


INST3 44(3) 


Implicit Format: 









OPERAND 





LABEL A OPERATION A 








[symbol] 


So 
INST3 PLACE1 
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STS 





13.4.3. Store Status (STS) Instruction 


General Possible Program Exceptions 
OBJECT 
ADDRESSING @ PROTECTION 
OPCODE FORMAT | INST. a 
TYPE LGTH. 

































(J DATA (INVALID SIGN/DIGIT)] [] SIGNIFICANCE 
(BY TES) 


( DECIMAL DiviDE Wi SPECIFICATION: 
OD DECIMAL OVERFLOW NOT A FLOATING-POINT REGISTER 
eas 
Condition Codes 


DD execute OP 1 NOT ON HALF-WORD BOUNDARY 
(0 EXPONENT OVERFLOW OP 2 NOT ON HALF-WORD BOUNDARY 
CJ EXPONENT UNDERFLOW OP 2 NOT ON FULL-WORD BOUNDARY 
PI AesoEe CERT OO DO FIXED-POINT DIVIDE OP 2 NOT ON DOUBLE-WORD 
Clie RESULT <0.SETTO1 0 FIXED-POINT OVERFLOW BOUNDARY 
Or RESULT >0O, SET TO 2 
CIF OVERFLOW, SET TO 3 
BB UNCHANGED 













(0 FLOATING-POINT DIVIDE OP 1 NOT EVEN NUMBERED REGISTER 
OP 1 NOT ODD NUMBERED REGISTER 
NONE 









Wi OPERATION 


OOO goooo 


Explicit Format: 








AOPERATION A 





LABEL 


OPERAND 








[symbol] 
ADDSTORE 


Implicit Format: 







LABEL AOPERATION A OPERAND 


[symbol] 


S2 
ADDSTORE STDATA 


13.5. INTERVAL TIMER PRIVILEGED INSTRUCTION 


The OS/3 hardware contains an interval timer register that is controlled by the service 
timer register (STR) instruction. 
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@ STR 


13.5.1. Service Timer Register (STR) Instruction 


Possible Program Exceptions 


(J ADDRESSING C] PROTECTION 







OBJECT 















OPCODE t 
pestis aaa (J DATA (INVALID SIGN/DIGIT)| SIGNIFICANCE 
HEX. (Bytes) || CO) DECIMAL DIVIDE W@ SPECIFICATION: 


NOT A FLOATING-POINT REGISTER 
OP 1 NOT ON HALF-WORD BOUNDARY 
OP 2 NOT ON HALF-WORD BOUNDARY 
OP 2 NOT ON FULL-WORD BOUNDARY 
OP 2 NOT ON DOUBLE-WORD 
BOUNDARY 

OP 1 NOT EVEN NUMBERED REGISTER 
OP 1 NOT ODD NUMBERED REGISTER 


OC DECIMAL OVERFLOW 
() EXECUTE 






| sta [os] re | 2 
Condition Codes 


MsetTtToo 
WM setto1 
MM seTTO2 
MsetTTO3 
LI UNCHANGED 


(J) EXPONENT OVERFLOW 
(C) EXPONENT UNDERFLOW 
CJ FIXED-POINT DIVIDE 

(C) FIXED-POINT OVERFLOW 
CO FLOATING-POINT DIVIDE 
BB OPERATION 







N00 O0000 


2 
Le) 
2 
m 






Explicit and implicit Format: 





A OPERATION A OPERANP 










[symbol] 


TIMREG 5,6 


13.6. CONTROL REGISTER PRIVILEGED INSTRUCTIONS 


These instructions operate on the control registers maintained as part of System 80 
hardware. 
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LCTL 





.13.6.1. Load Control (LCTL) Instruction 


Possible Program Exceptions 
OPCODE FORMAT 
TYPE 


B ADDRESSING @ PROTECTION 
nfo ie | + | 
Condition Codes 


OCltr RESULT = 0,SETTOO 
Cif RESULT <O, SETTO1 
OliF RESULT > 0, SET TO 2 
(O1F OVERFLOW, SET TO 3 
MB UNCHANGED 




















a 

















aiee (J DATA (INVALID SIGN/DIGIT) CL) SIGNIFICANCE 
(BYTES) (] DECIMAL DIVIDE WI SPECIFICATION: 





LD DECIMAL OVERFLOW 

CO execute 

( EXPONENT OVERFLOW 
DC ExPONENT UNDERFLOW 
DD FIXED-POINT DIVIDE 

(J FIXED-POINT OVERFLOW 
OJ FLOATING-POINT DIVIDE 
OPERATION 


NOT A FLOATING-POINT REGISTER 

OP 1 NOT ON HALF-WORD BOUNDARY 
OP 2 NOT ON HALF-WORD BOUNDARY 
OP 2 NOT ON FULL-WORD BOUNDARY 


OP 2 NOT ON DOUBLE-WORD 
BOUNDARY 


OP 1 NOT EVEN NUMBERED REGISTER 
OP 1 NOT ODD NUMBERED REGISTER 
NONE 





















DOO OM8000 





Explicit Format: 







A OPERATION A 


OPE RAND 


{symbol ] 
CONT1 





1,13 dz (bo) 
4,6,12(3) 


Implicit Format: 







A OPERATION A OPERAND 





14 .13,S2 
4,6, CNTLSTOR 


[symbol] 
CONT1 
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STCTL 


13.6.2. Store Control (STCTL) Instruction 








—____ BB ADDRESSING Wi PROTECTION 
TYE cera. (CO DATA (INVALID SIGN/DIGIT)} (J SIGNIFICANCE 
| new. [HEX.| (Bytes) || (J DECIMAL DIVIDE BB SPECIFICATION: 
CD DECIMAL OVERFLOW NOT A FLOATING-POINT REGISTER 
CO execute OP 1 NOT ON HALF-WORD BOUNDARY 






fserfos| as | «| 


CF RESULT = 0, SET TOO 
DJ iF RESULT <o, SET TO1 
CIF RESULT >0, SET TO 2 
OIF OVERFLOW, SET TO 3 
WUNCHANGED 


D EXPONENT OVERFLOW OP 2 NOT ON HALF-WORD BOUNDARY 
(J EXPONENT UNDERFLOW OP 2 NOT ON FULL-WORD BOUNDARY 
(J FIXED-POINT DIVIDE OP 2 NOT ON DOUBLE-WORD 


DD FIXED-POINT OVERFLOW BOUNDARY 
C1 FLOATING-POINT DIVIDE OP 1 NOT EVEN NUMBERED REGISTER 


OPERATION OP 1 NOT ODD NUMBERED REGISTER 
NONE 





Explicit Format: 










LABEL A OPERATION A OPERAND 





14,13 do (b. ) 
3,5,0(6) 


[symbol] 
STOR1 


Implicit Format: 










A OPERATION A 





LABEL OPERAND 






[symbol] 
STOR1 


r1,° 3,82 
3,5, STORDATA 


13.7. RELOCATION REGISTER PRIVILEGED INSTRUCTIONS 


These instructions operate on the relocation registers maintained as part of System 80 
hardware. 
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LRR 





13.7.1. Load Relocation Register (LRR) Instruction 


OBJECT 


ADDRESSING @ PROTECTION 
OPCODE FORMAT | INST. a 


(0 DATA (INVALID SIGN/DIGIT) | [] SIGNIFICANCE 
(0 DECIMAL DIVIDE W@ SPECIFICATION: 
OJ DEcIMAL OVERFLOW 
OO execute 


TYPE LGTH. 
(BYTES) 


Condition Codes 


OiF RESULT = 0, SET TOO 
Clie REesuLT <o, SET TO1 
Olie RESULT >0O, SET TO 2 
CJ1F OVERFLOW, SET TO 3 
BUNCHANGED 


NOT A FLOATING-POINT REGISTER 

OP 1 NOT ON HALF-WORD BOUNDARY 
OP 2 NOT ON HALF-WORD BOUNDARY 
OP 2 NOT ON FULL-WORD BOUNDARY 


OP 2 NOT ON DOUBLE-WORD 
BOUNDARY 


OP 1 NOT EVEN NUMBERED REGISTER 
OP 1 NOT ODD NUMBERED REGISTER 
NONE 





D0 EXPONENT OVERFLOW 
OD EXPONENT UNDERFLOW 
0 FIXED-POINT DIVIDE 

0 FIXED-POINT OVERFLOW 
U0 FLOATING-POINT DIVIDE 
BO OPERATION 






OOO Owooo0 





Explicit Format: 


A OPERATION A OPERAND 





Implicit Format: 





A OPERATION A OPERAND 








Ty SQ 


DOLOAD 3,RELOC3 
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13.7.2. Store Relocation Register (STRR) Instruction 


Possible Program Exceptions 


ADDRESSING @ PROTECTION 

(J DATA (INVALID SIGN/DIGIT)| [] SIGNIFICANCE 

(J DECIMAL DIVIDE MI SPECIFICATION: 

C DECIMAL OVERFLOW NOT A FLOATING-POINT REGISTER 
OJ execute OP 1 NOT ON HALF-WORD BOUNDARY 


OBJECT 
OPCODE FORMAT | INST. 
TYPE LGTH. 


Condition Codes 





LD EXPONENT OVERFLOW OP 2 NOT ON HALF-WORD BOUNDARY 
(C) EXPONENT UNDERFLOW OP 2 NOT ON FULL-WORD BOUNDARY 
CO FIXED-POINT DIVIDE OP 2 NOT ON DOUBLE-WORD 


CO FIXED-POINT OVERFLOW BOUNDARY 
QO FLOATING-POINT DIVIDE OP 1 NOT EVEN NUMBERED REGISTER 


@ OPERATION OP 1 NOT ODD NUMBERED REGISTER 
NONE 





Cl iF RESULT = 0,SET TOO 
Or RESULT <0, SETTO1 
OIF RESULT >O, SET TO2 
CF OVERFLOW, SET TO 3 
BE UNCHANGED 









Explicit Format: 





A OPERATION A OPERAND 







[symbol] 


STOR12 4,8(3) 


Implicit Format: 





A OPERATION A OPERAND 







[symbol] 
STOR12 


13.8. GENERAL REGISTER PRIVILEGED INSTRUCTIONS 





These instructions operate on the problem general register set. 
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SLM 


> 13.8. GENERAL REGISTER PRIVILEGED INSTRUCTIONS 


13.8.1. Supervisor Load Multiple (SLM) Instruction 


Possible Program Exceptions 


ADDRESSING @ PROTECTION 

(0 DATA (INVALID SIGN/DIG!T)| [J SIGNIFICANCE 

CD DECIMAL DIVIDE CF SPECIFICATION: 

(CJ DECIMAL OVERFLOW NOT A FLOATING-POINT REGISTER 
QOlexecute ~ OP 1 NOT ON HALF-WORD BOUNDARY 


OBJECT 
OPCODE FORMAT | INST. 


TYPE LGTH. 
(BYTES) 


Condition Codes 


Clif RESULT = 0, SET TOO 
Or RESULT <0, SETTO1 
OF RESULT > 0, SET TO 2 
(C1F OVERFLOW, SET TO3 
BB UNCHANGED 





(0 EXPONENT OVERFLOW OP 2 NOT ON HALF-WORD BOUNDARY 
0 EXPONENT UNDERFLOW OP 2 NOT ON FULL-WORD BOUNDARY 
(2 FIXED-POINT DIVIDE OP 2 NOT ON DOUBLE-WORD 


0 FIxXED-POINT OVERFLOW BOUNDARY 
(0 FLOATING-POINT DIVIDE OP 1 NOT EVEN NUMBERED REGISTER 


fiat OPERATION OP 1 NOT ODD NUMBERED REGISTER 
NONE 






Explicit Format: 









A OPERATION A OPERAND 





LABEL 





11,13 dz (bo) 
3,6,20(9) 


[symbol] 
LOAD36 


Implicit Format: 





AOPERATION A 







OPERAND 






[symbol] 
LOAD36 


r4.13 82 
3,6,DATAFIVE 
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13.8.2. Supervisor Store Multiple (SSTM) Instruction 


Possible Program Exceptions 


@ ADDRESSING PROTECTION 







OBJECT 













OPCODE | fo INST. 
aon ede (1 DATA (INVALID SIGN/DIG!T)] [] SIGNIFICANCE 
HEX. (BYTES) }} LJ DECIMAL DIVIDE C SPECIFICATION: 


C2 DECIMAL OVERFLOW 
0 execute 


NOT A FLOATING-POINT REGISTER 

OP 1 NOT ON HALF-WORD BOUNDARY 
OP 2 NOT ON HALF-WORD BOUNDARY 
OP 2 NOT ON FULL-WORD BOUNDARY 


OP 2 NOT ON DOUBLE-WORD 
BOUNDARY 


OP 1 NOT EVEN NUMBERED REGISTER 
OP 1 NOT ODD NUMBERED REGISTER 


| ssrm joo} ms | 4 
Condition Codes 


CJ iF RESULT = 0, SET TOO 
CJ tf RESULT <0, SET TO1 
OF RESULT >0o, SET TO2 
OIF OVERFLOW, SET TO 3 
BB UNCHANGED 


(0 EXPONENT OVERFLOW 
1 EXPONENT UNDERFLOW 
O FIXED-POINT DIVIDE 

0 FIXED-POINT OVERFLOW 
OC FLOATING-POINT DIVIDE 
@@ OPERATION 


OOO Oooo 


2 
° 
2 
m 





Explicit Format: 










A OPERATION A 





LABEL OPERAND 


r.1%3,da (bz) 
4,7,0(2) 


[symbol] 
STORE47 


Implicit Format: 






A OPERATION A OPERAND 






[symbol] 
STORE47 


ry 13 82 
4,7,AREATWO 


13.9. DATA CHECKING PRIVILEGED INSTRUCTION 


Bit checking on main storage data is performed by the /ongitudinal redundancy check 
privileged instruction. 
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LRC 


13.9.1. Longitudinal Redundancy Check (LRC) Instruction 


OBJECT |} gy ADDRESSING Mi PROTECTION 


OPCODE | FORMAT | INST 
F 
VER Se (1 DATA (INVALID SIGN/DIGIT)} () SIGNIFICANCE 


(Bytes) {| LD) DECIMAL DIVIDE WE SPECIFICATION: 
(0 DECIMAL OVERFLOW 
OO Execute 


NOT A FLOATING-POINT REGISTER 

OP 1 NOT ON HALF-WORD BOUNDARY 
OP 2 NOT ON HALF-WORD BOUNDARY 
OP 2 NOT ON FULL-WORD BOUNDARY 


OP 2 NOT ON DOUBLE-WORD 
BOUNDARY 


OP 2 NOT EVEN NUMBERED REGISTER 
OP 1 NOT ODD NUMBERED REGISTER 
NONE 


OC EXPONENT OVERFLOW 

(CO FIXED-POINT DIVIDE 
Wiser 01 OO FIXED-POINT OVERFLOW 
O set To 2 C0 FLOATING-POINT DIVIDE 


oe TO3 OPERATION 
UNCHANGED 


OOgmg OOoO0 





Explicit Format: 








A OPERATION A OPERAND 


[symbol] 


PRM1 0(2) 


Implicit Format: 







AOPERATION A OPERAND 


[symbol] 


PRM1 CHECK1 


13.10. PROGRAM LOAD PRIVILEGED INSTRUCTION 


The initial program load (IPL) instruction performs the initial program load (IPL) function in 
the same manner as if the IPL key were pressed on the console workstation. 
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@ IPL 


13.10.1. Initial Program Load (IPL) Instruction 


Possible Program Exceptions 


[J ADDRESSING DC PROTECTION 

(C0 DATA (INVALID sIGN/DIGIT) | [] SIGNIFICANCE 

(C0 DECIMAL DIVIDE C) SPECIFICATION: 

0 DECIMAL OVERFLOW NOT A FLOATING-POINT REGISTER 
Olexecute © OP 1 NOT ON HALF-WORD BOUNDARY 
(] EXPONENT OVERFLOW OP 2 NOT ON HALF-WORD BOUNDARY 
CO EXPONENT UNDERFLOW OP 2 NOT ON FULL-WORD BOUNDARY 
CD FIXED-POINT DIVIDE OP 2 NOT ON DOUBLE-WORD 


OC FIx€D-POINT OVERFLOW BOUNDARY 
1 FLOATING-POINT DIVIDE OP 1 NOT EVEN NUMBERED REGISTER 


OPERATION OP 1 NOT OOD NUMBERED REGISTER 
NONE 


OBJECT 
OPCODE FORMAT | INST. 





TYPE LGTH. 
(BYTES) 


Condition Codes 


OF RESULT = 0, SET TOO 
Or RESULT <0, SET TO1 
Clif RESULT > 0, SET TO 2 
Cif OVERFLOW, SET TO 3 
WW UNCHANGED 









Explicit and Implicit Format: 


& A OPERATION A OPERAND 





13.11. SWITCH LIST PRIVILEGED INSTRUCTION 


One privileged instruction scans the supervisor switch list: the switch list scan (SWLS) 
instruction. 
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SWLS 





13.11.1. Switch List Scan (SWLS) Instruction 


Possible Program Exceptions 


[J ADDRESSING C PROTECTION 










OBJECT 















OPCODE | FORMAT 
TYPE 






ee (J DATA (INVALID SIGN/DIGIT)] I SIGNIFICANCE 
MNEM. (BYTES) || L) DECIMAL DiviDE C] SPECIFICATION: 


NOT A FLOATING-POINT REGISTER 

OP 1 NOT ON HALF-WORD BOUNDARY 
OP 2 NOT ON HALF-WORD BOUNDARY 
OP 2 NOT ON FULL-WORD BOUNDARY 


OP 2 NOT ON DOUBLE-WORD 
BOUNDARY 


OP 1 NOT EVEN NUMBERED REGISTER 
OP 1 NOT ODD NUMBERED REGISTER 
NONE 


0 DECIMAL OVERFLOW 

0 execute 

(0 EXPONENT OVERFLOW 
C0 EXPONENT UNDERFLOW 
OC FIXED-POINT DIVIDE 

0 FIxXED-POINT OVERFLOW 
(0 FLOATING-POINT DIVIDE 
OPERATION 






Condition Codes 


MsetT Too 









Wsetto1 
Msetto2 
C)set T03 
(CC) UNCHANGED 











OOs8 OOO0OO00 







Explicit and Implicit Format: 


The bit pattern is the format of the instruction. 











UP-8913 SPERRY UNIVAC OS/3 13-27 
ASSEMBLER Update B 
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13.12. SET PROGRAM MASK (SPM) STATUS-SWITCHING INSTRUCTION 


Possible Program Exceptions 


(J ADDRESSING (1 PROTECTION 

























OBJECT 

















OPCODE 
ee ces alt [] DATA (INVALID SIGN/DIGIT) | [] SIGNIFICANCE 
(Bytes) || DJ DECIMAL DIVIDE C] SPECIFICATION: 










0 DECIMAL OVERFLOW 

OJ €xEcuTE 

() EXPONENT OVERFLOW 
C1 ExPONENT UNDERFLOW 
OD FIXED-POINT DIVIDE 

OO FIXeD-POINT OVERFLOW 
(J FLOATING-POINT DIVIDE 
(J OPERATION 


NOT A FLOATING-POINT REGISTER 

OP 1 NOT ON HALF-WORD BOUNDARY 
OP 2 NOT ON HALF-WORD BOUNDARY 
OP 2 NOT ON FULL-WORD BOUNDARY 


OP 2 NOT ON DOUBLE-WORD 
BOUNDARY 


OP 1 NOT EVEN NUMBERED REGISTER 
OP 1 NOT ODD NUMBERED REGISTER 
NONE 


Condition Codes 


Msettoo 
@setroi 
@ settro2 
Wsettro3 
SEE OPER. CONSIDERATIONS 


Boo OoOo00 





The set program mask (SPM) instruction replaces bits 34 through 39 of the current PSW 
with bits 2 through 7 of the operand 1 register. 


Explicit and Implicit Format: 







A OPERATION A OPERAND 


[symbol] 
SETM 


Operational Considerations: 


= Bits O, 1, and 8 through 31 of the operand 1 register are ignored by the OS/3 
hardware. 


= = §=The condition code is set equal to bit positions 2 and 3 of operand 1. 
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Example: 
LABEL AOPERATIONA OPERAND 
1 10 16 


rr cS A Sr Ps a PN SP 


LODREG L 3,MASK 
SETM SPM 3 
MASK DC FL 


In this example, | loaded register 3 with the contents of a main storage area called MASK. 
MASK contains a full word of binary 1’s. When the SPM instruction is executed, bits 34 
through 39 of the PSW are replaced with bits 2 through 7 of register 3. 








UP-8913 SPERRY UNIVAC OS/3 


ASSEMBLER 


13-29 
Update B 





Svc 


13.13. SUPERVISOR CALL (SVC) STATUS-SWITCHING INSTRUCTION 


General 


OBJECT 


OPCODE INST. 
LGTH. 


MNEM. (BYTES) 


Condition Codes 


@ settoo 











(J ADDRESSING 

(CD DATA (INVALID SIGN/DIGIT) 
(J DECIMAL DIVIDE 

(J DECIMAL OVERFLOW 

OJ execute 

CJ EXPONENT OVERFLOW 

C1 EXPONENT UNDERFLOW 

OC FIXED-POINT DIVIDE 

CJ F1XED-POINT OVERFLOW 







FORMAT 


TYPE 








Possible Program Exceptions 


CO PROTECTION 
C] SIGNIFICANCE 
C] SPECIFICATION: 










NOT A FLOATING-POINT REGISTER 

OP 1 NOT ON HALF-WORD BOUNDARY 
OP 2 NOT ON HALF-WORD BOUNDARY 
OP 2 NOT ON FULL-WORD BOUNDARY 


OP 2 NOT ON DOUBLE-WORD 
BOUNDARY 










@ serto. 
@ setto2 
@ setto3 
SEE OPER. CONSIDERATIONS 












OP 1 NOT EVEN NUMBERED REGISTER 
OP 1 NOT ODD NUMBERED REGISTER 
NONE 


(1D FLOATING-POINT DIVIDE 
(J OPERATION 


BOO OOO0O0 


The supervisor call (SVC) instruction causes an interrupt and replaces bits 24 through 31 
of the current PSW with the 1-byte contents of operand 1. 


Explicit and Implicit Format: 







A OPERATIONA OPERAND 


[symbol] 
SUPCALL 


Operational Considerations: 


= The operand you specify is an immediate byte of data, which is a 1-byte absolute 
term. 


= Once the SVC instruction is executed, the PSW with its new contents is stored, and a 
new PSW is controlling your program. 


= The condition code is equal to bits 34 and 35 of the PSW after the supervisor call is 
granted. 





SPERRY UNIVAC OS/3 13-30 








UP-8913 
ASSEMBLER 
Example: 
LABEL AOPERATIONA OPERAND 
1 10 16 
CALL svc X'OF! 


A supervisor call interrupt is generated, and the value X‘00001111’ is stored in the 
old PSW. 











UP-8913 SPERRY UNIVAC OS/3 13-31 
ASSEMBLER Update B 





13.14. TEST AND SET (TS) STATUS-SWITCHING INSTRUCTION 


General 


OBJECT 
OPCODE FORMAT | INST. 


Possible Program Exceptions 


@ ADDRESSING M@ PROTECTION 

(J DATA (INVALID SIGN/DIGIT) | [] SIGNIFICANCE 

C1 DECIMAL DIVIDE C] SPECIFICATION: 

CZ DECIMAL OVERFLOW NOT A FLOATING-POINT REGISTER 
O EXECUTE OP 1 NOT ON HALF-WORD BOUNDARY 
OP 2 NOT ON HALF-WORD BOUNDARY 
OP 2 NOT ON FULL-WORD BOUNDARY 


OP 2 NOT ON DOUBLE-WORD 
BOUNDARY 


OP 1 NOT EVEN NUMBERED REGISTER 
OP 1 NOT ODD NUMBERED REGISTER 
NONE 


TYPE LGTH. 


MNEM. (BYTES) 


Condition Codes 


M sertoco 
@ serto.1 
O) set To2 
OJ set To3 
SEE OPER. CONSIDERATIONS 





(CJ EXPONENT OVERFLOW 
(0 EXPONENT UNDERFLOW 
CO FIXED-POINT OIVIDE 

CJ FIXED-POINT OVERFLOW 
(J FLOATING-POINT DIVIDE 
(J OPERATION 








O00 OOOOO 





The test and set (TS) instruction tests the zero bit of the operand 1 main storage area for a 
1 or a O and sets the condition code according to the result. 


© Explicit Format: 










A OPERATION A OPERAND 


[symbol] 


TEST 32(16) 


Implicit Format: 








LABEL A OPERATION A OPERAND 





$3 
STORAGE 


Operational Considerations: 
= #§ Only the first bit of the operand is tested to determine the condition code. 
a All eight bits of the operand are set to binary 1’s after the condition code is set. 
= The condition code is set as follows: 
e 


— 0 if bit position O is zero; or 


— 1 if bit position O is 1. 
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Operational Considerations: @ 
= Only the leftmost bit of the operand is tested to determine the condition code setting. 
= §@6All eight bits of the operand byte are set to 1 after the condition code is set. 
= The condition code is set as follows: 
— to O if the tested bit is 0; or 
— to 1 if the tested bit is 1. 
= This instruction can be used by two programs referencing the same main storage 


byte. A condition code setting of O indicates that the area is available for use by the 
testing program. A condition code setting of 1 indicates that the area is not available. 








Example: 
LABEL AOPERATION A OPERAND 
i 10 16 
TESTSW TS BYTE 
BYTE DC B'l1116p96' 


When the TS instruction is executed, the leftmost bit of BYTE is tested. Since the bit 
is 1, the condition code is set to 1. 
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DELETION 


Section 14 has been deleted. 





























DIRECTIVES | 
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15. Introduction to Directives 


The OS/3 assembly language includes assembler directives (Table 15—1) that enable the 
user to control assembler operation. Assembler directives control the assembler at 
assembly time just as application instructions control the processor at execution time. 
Housekeeping, program organization, assembly listing modification, and !/O control are 
the tasks of the directives. 


The assembler application instructions the programmer uses to control the processor 
operation are discussed in Part 3 of this manual. The major portion of the program 
statements consists of these instructions. Just as there are mnemonics to direct the 
generation of the instructions, there are directives to control the operation of the 
software language processor (the assembler). These are called assembler directives. 


Table 15—-1. Assembler Directives 


Directives 
EQUATE Symboi definitions 
OPSYM Delete operation code 


ASSEMBLER 
CONTROL 











Where 
Discussed 


LISTING CONTROL Control of the assembly listing 


















Control program name and 
organization 










BASE REGISTER 
ASSIGNMENT 


Directs registers to be 
used and when 










LINKING AND 
SECTIONING 


Control! of modules to be 
linked 
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16. Equate and Delete Operation 
Code Directives 


EQU 


16.1. EQUATE (EQU) 


The equate (EQU) directive defines the length and value of a symbol using another 
symbol as all or part of the definition. 


The format is as follows: 





A OPERATION A OPERAND 


where: 


Is an absolute or relocatable expression. 


Is an absolute expression. 
All symbols must be predefined. 


The symbol in the label field is defined as the value of the first expression in the 
operand. The maximum values are —223 to 223—1. The length attribute of the symbol is 
equal to the second expression (a) if explicitly stated. If the second expression (a) is 
omitted, the symbol will have the length attribute of the first term in the first expression 
(e). If the first term is an * or a self-defining term, the length attribute of the symbol is 
1. (See the following coding examples.) 
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Examples: 
LABEL AOPERATIONA OPERAND 
1 10 16 
1.1 TAG DS 25CL19 
2./HIDE EQU 1G6+TAG , 158 
3.1SEEK EQU TAG+1276-* 
4 .1GO EQU TAG+1276-* , 266 
5 [RP EQU 1) 
6.4R1 EQU 1 


If the value of the location counter is 2000 when instructions 1 through 4 are 
encountered, the symbols have the following location counter values: 


1. TAG has a relocatable value of 2000 and a length attribute of 10. The location 
counter is advanced to 2250. 


2. HIDE has a relocatable value of 2100 (100 + 2000) and a length attribute of 
150. The location counter remains at 2250. 


3. SEEK has an absolute value of 1020 (2000 + 1270 — 2250) and a length 
attribute of 10 (same as length of first term). 





4. If line 4 is substituted in place of line 3, then GO has an absolute value of 
1020 (2000 + 1270 — 2250) and a length attribute of 200. (The 200 overrides 
the length of TAG.) 


5. The registers O and 1 are equated to RO and R1. (See 6.1.) 
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OPSYM 
e 


16.2. DELETE OPERATION CODE (OPSYM) 


The delete operation code (OPSYM) directive allows you to tell the assembler not to 
accept a certain mnemonic operation code. 


The format is as follows: 







A OPERATION A OPERAND 





mnemonic OPSYM 
operation 


code 


After you use the OPSYM directive to declare a mnemonic code as unacceptable, the 
assembler will not generate the normal object code for that mnemonic if it appears after 
the OPSYM. You are then free to use the declared mnemonic another way, for example, 
as the mnemonic code of a macro prototype statement. 





Examples: 
LABEL AQPERATIOWA OPERAND 
2 1 10 16 

1. MACRO 

2. A EQUANT ,&Q2,&SUM 

be L 13,&QUANT 

h, A 13,€Q2 

5. ST 13,&SUM 

6. MEND 

7]. START ) 

8.) A OPSYH 

9 .| CALCU A PAY,RAISE, TOTAL 
To. END 


In this example, the program is preceded by a macro definition which is used in my 

program. Line 2 contains the mnemonic code A, which is the mnemonic operation 

code for an add full word instruction. Before you can call the A macro into your 

program, you must use an OPSYM directive to tell the assembler not to recognize A 

as the add full word mnemonic. The OPSYM directive must code before the line of 
& code which references the macro, that is, line 8 must precede line 9. 


The OPSYM directive cannot be used from within a PROC/MACRO or from within 
code generated as a result of conditional assembly statements. 
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17. Assembler Control Directives 


Assembler control directives are available to name the program and specify an initial 
location counter, section the program, alter the location counter to a specified value, 
indicate the end of a program, and designate the instruction the program will begin with. 
Table 17—1 is a Summary of the assembler control directives available to the user of the 


OS/3 assembler. 


Table 17—1. Assembler Control Directives 


CNOP 







Where 
Discussed 


Condition no operation 
aa 
Generate literal pool se 





Basic Function 











END 










Specify location counter 





UP-8913 SPERRY UNIVAC OS/3 17-2 
ASSEMBLER 


CNOP 





17.1. CONDITION NO OPERATION (CNOP) 


The condition no operation (CNOP) directive adjusts the location counter to a half-word, 
full-word, or double-word storage boundary. The format of the CNOP directive is: 





AOPERATION A OPERAND 


where: 


a, and a) 
Are absolute expressions consisting of predefined terms. 


The first expression in the operand field indicates a byte to which the location counter 
must be set. Legal values for the first expression are O and 2 for full-word boundary 
alignment, and O, 2, 4, and 6 for double-word boundary alignment. 


s §=©0 indicates a full-word or double-word boundary; 





= 2 indicates the second byte (first half word) past the boundary; 
= 4 indicates the fourth byte (second half word) past a double-word boundary; and 
= ~=©6 indicates the sixth byte (third half word) past a double-word boundary. 


Permissible values for the second expressions are 4 and 8, indicating that the 
adjustment is relative to a full-word or double-word boundary, respectively. 


If the location counter is already set to the indicated byte, the CNOP has no effect. When 
alignment is needed, one, two, or three no-operation instructions are generated to 
increment the location counter to the proper half-word boundary and to ensure correct 
instruction processing. All terms must be predefined. 
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S Examples: 


LABEL AOPERATIONA OPERAND 
1 10 16 


, CNOP 0,8 
2. CNOP 2,4 


1. The current location counter is advanced, if necessary, to the first byte of the 
next double-word boundary. A legal double-word boundary is any address value 
divisible by 8. 


2. The current location counter is advanced, if necessary, to the second byte (first 
half word) past the next full-word boundary. A legal full-word boundary is any 
address value divisible by 4. 
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17.2. PROGRAM END (END) 


The program end (END) directive indicates the end of a source program or macro 
definition written in PROC format. (See Appendix A and Section 25.) 


The format of the END directive is: 








A OPERATION A OPERAND 


[symbol] 


where: 


Is a relocatable expression. 


The END directive must be the last statement in the source program. An expression in 
the operand field designates the point in the program where contro! may be transferred 
after the program is loaded. If the END directive is missing, an END directive with a 
blank operand field is supplied by the assembler. If the END directive terminates a proc, 
the label and operand fields are not used. 








Examples: 
LABEL AOPERATIONA OPERAND 
1 10 16 
1.| Fox END BEGN 
2. END G0+324 
3. END 


All three of the END statements halt assembly, but each transfers control to a 
different address in the program. 


1. Control is transferred to a statement labeled BEGN in the program. The label 
FOX is assigned the address associated with the last byte of the assembly. 


2. If GO has a value of 1000, control is transferred, and the next instruction to be 
processed is located at address 1324. 


3. If no operand is specified, control is transferred to the first address of the 
program loaded. 
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LTORG 


17.3. GENERATE LITERALS (LTORG) 


The generate literal poo! (LTORG) directive generates all literals previously defined into a 
data pool within the source program. The format of the LTORG directive is: 






A OPERATION A OPERAND 


[symbol] 


The literals are pooled following the occurrence of the LTORG directive. A symbol in the 
label field represents the first byte of the generated literal pool and is assigned a length 
attribute of 1. LTORG directives may not appear within a dummy control section (19.3) or 
in a blank common storage area. If there are no LTORG statements in a program and 
literals are specified, or if any literals are specified after the last LTORG directive in a 
program, these literals are pooled at the end of the first control section. The programmer 
then must ensure that a valid base register is available to address the locations in the 
literal pool. 


Literals are placed in the literal pool according to their total length (duplication factor 
multiplied by the length of the constant). The literal pool consists of four sections: 


1. Literals with total lengths that are multiples of double words (eight bytes) 
2. Literals with total lengths that are multiples of full words (four bytes) 

3. Literals with total lengths that are multiples of half words 

4. Any remaining literals 


Within each pool section, the literals are stored in order of occurrence. Before the literal 
pool is generated, the location counter is adjusted to a double-word boundary. If two 
control sections are assembled together and a LTORG is not included in the second or 
following sections, then all the literals defined in all the sections will be pooled in the 
first control section and may subsequently be available only to that first section. To 
ensure that each linked control section can use the literals declared by it, an LTORG 
should be used within each control section. 
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17.4. SPECIFY LOCATION COUNTER (ORG) 


The specify location counter (ORG) directive sets or resets the location counter to a 
specified value. The format of the ORG directive is: 







AOPERATION A OPERAND 


[symbol] 


where: 


Is a relocatable expression. 


The location counter is set to the value of the expression in the operand field. When no 
expression is present, the location counter is set to the highest location previously 
assigned in that control section. A symbol in the label field has the same value as the 
expression in the operand field and is assigned a length attribute of 1. The expression in 
the operand field must be relocatable. Its value must represent an address in the same 
control section in which the ORG occurs. This address value must be equal to or greater 
than the initial setting of the current location counter. If the expression is in error, the 
ORG directive is ignored, and the line is flagged. All terms in the expression must be 
predefined. 





The ORG directive permits the location counter to be set to a value not on a half-word 
boundary. 


Bytes of storage reserved with an ORG directive are not set to zero or cleared when the 
program is loaded. 





Example: 
LABEL AOPERATIONA OPERAND 
1 10 16 
AREA ORG *+A+B 


This statement reserves A plus B bytes of storage, where A and B are previously defined 
symbols with absolute values. If A = 80,B = 160, and the value of the location counter is 
1048, then 240 bytes are reserved beginning at the location 1048. 


Additional examples of the ORG directive follow. 
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r Examples: 


LABEL AOPERATIONA 





| 10 
1. | INPUT DS 
2. ORG 
REC] DS 
FLD] DS 
3. ORG 
REC2 DS 
FLD2 DS 
FLD22 DS 
4, ORG 
REC3 DS 
FLD3 DS 
FLD33 DS 


16 


CL8O 
INPUT 
CL2¢ 
CL6¢G 
INPUT 
CL3¢ 
CL36 
CL2@ 
INPUT 
CLI5 
CL25 
CLAP 
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OPERAND ACOMMENTS 


eR cre eee ne ee RTT EY 


INPUT FIELD 8@ BYTES 
INPUT FOR REC] 


INPUT FOR REC2 


INPUT FOR REC3 


1. An input area for an 80-byte card is defined with no subfields. 


2. The input field is redefined in place to show two subfields. 


3. Redefine INPUT for different organizations of the field. 


and 


eS 4. 


Instructions 1 through 4 define four different types of cards or other 80-byte 


records. 
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17.5. PROGRAM START (START) 


The program start (START) directive defines the program name, the name of the first 
control section, and the initial location counter value. The format of the START directive 
is: 






A OPERATION A OPERAND 


[symbol] 





where: 


Is an absolute expression. 


A symbol in the label field becomes the name of the first or only control section in the 
program. If the label field is blank, an unnamed control section is begun. All statements 
following the START directive are assembled as part of the control section until another 
unique control section definition is encountered. @ 


The label field of a CSECT directive, which can contain the same name as the label field 
of the START directive, identifies the continuation of the control section. A blank label 
field in the CSECT directive identifies the continuation of an unnamed control section 
that began with an unnamed START directive. 


The symbol in the label field of the START directive also identifies or names the object 
program. If the START directive is unnamed, the object module is assigned the name 
ASMOBJ. The symbol must be a valid symbol. It is an automatic entry point and has a 
length attribute of 1. The START directive must not be preceded by any statements 
which would initiate a control section. 


The self-defining term in the operand field of the START directive establishes the initial 
location counter value for the first control section. If the self-defining term represents a 
value which is not a multiple of 8, the START directive is flagged and the location 
counter set to the next higher multiple of 8. If the operand is omitted, the initial control 
section is assigned a location counter value of zero. 
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Examples: 
LABEL AOPERATIONA OPERAND 
] 10 16 
TEST START 1963 
TEST START x 427) 


The location counter contents for either of these statements would be 1064, which is the 
next higher multiple of 8 from 1063. 
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18. Base Register Assignment Directives 


The OS/3 assembler converts storage addresses to base register and displacement 
values for insertion into instructions being assembled. To do this, the assembler must be 
informed of the available registers and the values assumed to be in those registers. The 
assembler directives USING and DROP are available for this purpose. 


= The unassign base register (DROP) directive informs the assembler that certain 
registers are no longer to be used for base registers. 


a The assign base register (USING) directive informs the assembler that the specified 
registers are available for use as base registers. 
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18.1. UNASSIGN BASE REGISTER (DROP) 


The unassign base register (DROP) directive informs the assembler that the registers 


specified are no longer available for base register assignment. The format of the DROP 
directive is: 







A OPERATION A OPERAND 


unused 


where: 


r[,-.-tn} 
Specifies that the declared registers (O through 15) are no longer available for 
base register assignment. 


Registers previously made available for base register assignment may be dropped and 
made available again in a USING directive. (See 18.2.) The value assumed to be in a 
base register may be changed by coding another USING directive without an intervening 
drop of that register. 





Examples: 
LABEL AOPERATIONA OPERAND 
1 10 16 
1. DROP ] 
ae DROP 1,3,4 


1. This directive specifies that register 1 is no longer available to the assembler 
for base register assignment. 


2. This directive specifies that registers 1, 3, and 4 are no longer available for 
base registers. 
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18.2. ASSIGN BASE REGISTER (USING) 


The assign base register (USING) directive informs the assembler that a specified register 
is available for base register assignment and will contain a specific value at execution 
time. The value must be loaded by the program into the base register that the USING 
directive specifies. The assembler maintains a USING table of the specified registers. The 
format of the USING directive is: 





A OPERATION A OPERAND 


where: 


Is the value assumed to be in the first specified register at execution time. This 
value may be relocatable or absolute. Literals are not permitted. 


r[,...,tn] 
Specifies that the declared registers (0 through 15) will be used as base 
registers loaded at execution. time. These register numbers do not necessarily 
have to be assigned in ascending sequence. 


The first register specified after v is assigned the value of v; the next register is assigned 
the value of the first register plus 4096; the next register is assigned the value of the 
second register plus 4096; and so on through all the registers specified. A USING 
directive may specify a single register or a group of registers, or the registers may be 
specified by individual USING directives. 


Register O may be specified as a valid base register; however, the assembler assumes 
that it always contains the value O and calculates displacements as if the operands were 
zero. Register O must be the operand specified by r,, and any registers specified in the 
operand field following register O are assumed to contain increments of 4096 from zero. 


When v is absolute, the indicated registers may be used to process only absolute 
effective addresses. 


When v is relocatable, the indicated registers can be used to process only relocatable 
effective addresses. The registers r;,....7_n are used to process only those addresses in 
the same control section as the address represented by v. 
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The value specification in a USING directive sets the lower limit of an address range; the 
upper limit is automatically set 4095 bytes above the lower limit. The upper limit of a USING 
directive may be set less than 4095 bytes by being overlapped by the lower limit of another 
USING directive. 


The range specified by a USING directive is used by the assembler to assign base 
register and displacement values to those effective operand addresses that fall within 
that range. 


If an operand address is specified as an effective address instead of a base register and 
displacement specification, the assembler searches the USING table for a value yielding 
a displacement of 4095 or less; if there is more than one such value, the value that 
yields the smallest displacement is chosen. If no value yields a valid displacement, the 
operand address is set to zero, and the line is flagged with an error indication. If more 
than one register contains the value yielding the smallest displacement, the highest 
numbered register is selected. 





Examples: 
LABEL AOPERATIONA OPE RAND 
1 10 16 
1. USING 4699 ,8 
2. USING 8669,1,2,3,6,7,8,12 
3. USING * 5 
4, USING TAG,R9 


1. A range of 4096 bytes is covered by register 8 at location 4000 through 8095. 
The value 4000 is assumed to be stored in register 8. 


2. The value 8000 is assumed to be in register 1, 12096 in register 2, 16192 in 
register 3, 20288 in register 6, 24384 in register 7, 28480 in register 8, and 
32576 in register 12. These register numbers and their assumed values are 
entered into the USING table in the order specified. 


3. Register 5 is used as the base register, with the value of the location counter 
contained in register 5. 


4. The register declared by the symbol R9 is assumed to contain the base address 
of the symbol “TAG”. 
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19. Program Linking and 
Sectioning Directives 


A program or a portion of a program assembled as a single unit is called a module. A 
complex program may consist of many modules; some may be standard subroutines that 
can be used in any program. 


The assembler provides, as part of its output, information that allows modules to be 
linked together, loaded, and then executed as a single program. Proper partitioning or 
sectioning reduces the execution time required to make changes to an existing program. 
If a change is required, only the module that is changed must be reassembled. The 
output is then linked with the remaining parts to produce the altered program. Proper 
partitioning of a program also reduces the number of symbols required in each of the 
separate assemblies. 


A symbol defined in the label field of module A and addressed in module B must be 
externally defined by an ENTRY directive in module A and defined by an EXTRN directive 
in module B. By using the ENTRY and EXTRN directives, proper linkage is supplied when 
the separate modules are assembled. This information is passed to the linkage editor by 
the external definition records and the external reference records, which are outputs of 
the assembler. 


The assembler also provides an optional capability of dividing one module into different 
sections. A control section is a group of instructions, constants, and storage areas, the 
positions of which, relative to each other, are fixed and must remain fixed to ensure 
proper coding. Proper execution of instructions and data in one control section must not 
depend on their positions relative to instructions or data in any other control section. 
Because the assembler maintains a separate location counter for each section, control 
sections may appear in any order for input to the assembled. Statements belonging to 
one control section may be intermixed with statements belonging to one or more other 
sections. If the first statement of a control section is a START directive, its label names 
the control section. 
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Each module may have a maximum of 255 external symbol identification (ESID) items. 
An ESID item contains special information used by the linkage editor in relocating 
modules and module sections and in resolving references between modules. The 
following items cause the assembler to generate an ESID item: 





s Each unique symbol used in a V-type address constant 
= Each symbol used in a V-type address constant 

= Each control section 

# Each dummy control section 


= Each common storage definition section 
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19.1. COMMON STORAGE DEFINITION (COM) 


The common storage definition (COM) directive enables the programmer to define a 
control section which is a common storage area for two or more separately assembled 
routines. The format of the common section may be described by DS and DC directives. 
Labels appearing within the sections are defined. Like a dummy control section, no data 
or instructions are assembled in a common section. It has a separate location counter 
with an initial value of zero. Data may be entered into a common section only by 
execution of a program which refers to it, or by loading a control section of the same 
name. Such CSECTS are called block data sections. DC instructions act as DS 
instructions in the COM area because neither instructions nor constants in a common 
storage area are assembled. Labels defined in a common section are not subject to the 
restrictions imposed on dummy section labels. 


One assembly can define only one blank (unnamed) common section. Several like-named 
COM directives may appear among the source statements. Each COM directive after the 
first defines a continuation of the common section previously described. When several 
routines defining like common storage are linked, the resulting module contains only one 
section corresponding to the like common sections in the input modules. The length of 
this section is the length of the largest like common section in the input modules. The 
format of the COM directive is: 






AOPERATION A OPERAND 





[symbol] unused 


If the common section is unlabeled, the area is addressed by referencing the label of a 
statement within the common section with a USING directive. (See 18.2.) 
Examples: 


MODULE |: 


LABEL AOPERATIONA OPERAND 
1 10 16 





2 .|ACOM COM 
REBEW DS CLI25 
CHAYA DS CL8¢ 
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MODULE 2: 

LABEL AOPERATIONA OPERAND 

1 10 16 
3.1 MOD2 CSECT 
4.| ACON CON 

EL! DS CL269 

END 


1. When module 1 is assembled, it uses the common storage area defined by line 2. 


2. The common storage area used by module 1 and module 2 


3. When module 2 is assembled, it also uses the common storage area defined by 
line 2. 


4. The common storage area used by module 1 and module 2 


The common storage area for these examples is 260 bytes long (see following 
listing). The fields REBEW and CHAYA are the same storage area as the first 205 


bytes of the field ELI. ®& 


Byte Hexadecimal Sisduie’ Hexadecimal Module 2 
Number Address Address 





If more than one object module element refers to a common storage area with the 
same name, the references are to the same storage area. Only one common storage 
area is allocated within a load module to satisfy all object module requests for 
common storage areas with the same name. The size of a common storage area in 
a load module is determined by the maximum size requested by any object module 


for common storage with that name. Blank common storage areas are allocated in 
the same way. 


In a multiphase load module, common storage areas are not normally overlaid. 
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The following rules apply to the use of common storage: 


An entry point cannot have the same name as a labeled common storage area 
included in the load module. 


When the linkage editor includes module elements (CSECT or COM) with the 
same name as a labeled common storage area, that section is treated as a 
block data subprogram (i.e., to initialize values of labeled common blocks) and is 
loaded into all or a portion of the common storage area. A block data 
subprogram is loaded when the phase in which it was included is loaded. Blank 
common cannot be initialized during loading unless the text encountered is for 
that COM ESD. 


If an object module has requested common storage, the partial inclusion of a 
single control section from that object module will cause the common storage 
area defined to be included also, regardless of whether or not the included 
control section refers to that common storage name. For further information, 
see the linkage editor portion in the system service programs (SSP) user guide. 
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19.2. CONTROL SECTION IDENTIFICATION (CSECT) 


The control section identification (CSECT) directive indicates to the assembler the 
initiation or continuation of a control section. The format of the CSECT directive is: 






A OPERATION A OPERAND 


[symbol] 


The symbolic name of the control section defines an entry point of the program being 
assembled. This symbol must not appear as a symbol for any other source statement 
except the START directive of its control section or another CSECT directive to indicate 
continuation of the coding in the same control section. 


Each control section is adjusted to begin on a double-word boundary. The value of the symbol 
is the address of the first byte of the control section and has a length attribute of 1. 


If the symbol is blank, the CSECT directive is a continuation of coding for an unnamed 
control section. If the symbol is blank and is not preceded by an unnamed control 
section, the CSECT initiates an unnamed control section. Only one unnamed control 
section is permitted in a module. 





Examples: 


LABEL AOPERATIONA OPERAND 
1 10 16 





1.)GROSS START 
2.;DEDUCT  CSECT 


3.|GROSS CSECT 





END 
(continued) 
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LABEL AOPERATIONA OPERAND 
1 10 16 





4] GROSS2X CSECT 


5.| DEDUCTX CSECT 


6.| GROSS2X CSECT 


END 
1. The first control section of coding is labeled GROSS. 
2. The second control section of coding is labeled DEDUCT. 
3. The coding beginning at line 3 is a continuation of the section labeled GROSS. 
4. The first control section of coding is labeled GROSS2X. 
5. The second control section of coding is labeled DEDUCTX. 


6. The coding beginning at line 3 is a continuation of the section labeled 
GROSS2x. 
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19.3. DUMMY CONTROL SECTION IDENTIFICATION (DSECT) 


A program may contain references to areas that have been defined in other modules. 
Addressing such areas is facilitated by describing the area and its format to the 
assembler as a dummy control section. Any statement following a dummy control section 
identification (DSECT) directive is identified as belonging to the dummy control section. 
The format of the DSECT directive is: 







A OPERATION A OPERAND 


[symbol] 


Storage is not reserved by a DS directive within a dummy control section, and the data 
and instructions appearing in a dummy control section do not become part of the 
assembled program. A separate location counter with an initial value of zero is kept for 
each dummy control section. More than one DSECT directive with the same symbol may 
appear in a module. The first DSECT directive initiates the dummy control section; the 
remaining DSECT directives continue it. 





Symbols of statements in a dummy control section are called dummy section symbols. 
The following rules must be observed in using and assigning dummy section symbols: 


w= An unpaired dummy section symbol may appear only in an expression defining a 
storage address for a machine instruction or an S-type constant. 


= A base register may not be specified for an address field containing an unpaired 
dummy section symbol. 


= The programmer must ensure that the appropriate value is loaded into the register 
specified in the USING statement. 


To guarantee alignment between the actual storage area and the dummy control section, 
the user should align the storage area to a double-word boundary. 


Coding examples utilizing the DSECT directive follow. 
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& Examples: 
LABEL AOPERATIONA OPERAND ACOMMENTS 
1 10 16 
BEGIN BALR R3,8 
USING *,R3 
L R4&,AREA 
USING SECTION,R4 REGISTER 4 FOR DSECT 
MOVE MVC WORK (3) ,CODE 
MVC WORK] (28) ,NAME 
AREA DC A(TABLE) 
1.) SECTION DSECT 
NAME DS CL28 
NUMBER DS CLI5 
CODE DS CL3 
WORK DS CL3 
WORK] DS CL28 
2. CSECT 
TABLE DS CL59 
END 


1. The coding following DSECT is assigned to a dummy control section. 


2. CSECT begins a new control section or continues the current control section. 
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19.4. EXTERNALLY REFERENCED SYMBOL DECLARATION (ENTRY) 


Each module must declare to the assembler the symbols defined within the module to 
which reference is made by other modules. Each symbol is referred to as being externally 
referenced and is declared by the ENTRY directive. The format of the ENTRY directive is: 






A OPERATION A OPERAND 





symbol[,symbol.,...,symbol] 


Each symbol in the operand field is declared to be defined in this module. Their name and 
assigned values are included in the output of the assembler as external reference records. 
(See 19.5.) 








Example: 
LABEL AOPERATIONA OPERAND 
l 10 16 
ENTRY WRD32,REBEW, ILE, CHAYA 


WRD32, REBEW, ILE, and CHAYA are symbols defined in module 1 for the use of 
other modules. ENTRY permits other modules to reference the symbol defined by the 


ENTRY directive declaring it. 
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19.5. EXTERNALLY DEFINED SYMBOL DECLARATION (EXTRN) 


The assembler must be informed of all symbols used in the module being assembled that 
are defined in some other module. References to these symbols are called external 
definitions; these symbols are declared in the externally defined symbol declaration 
(EXTRN) directive. The format of the EXTRN directive is: 








A OPERATION A OPERAND 


unused 





symbol [,symbol,...,symbol] 


Each symbol in the operand field is declared to be a symbol defined in some other module. 
(See 19.4.) The symbolic name and the external symbol identification assigned by the 
assembler are input to the linkage editor as an external definition record. Each reference 
to the externalized symbol creates an appropriate relocation mask to allow reference 
resolution at linkage editor time. When an EXTRN and a definition for an identical symbol 
appear in the same assembly, the EXTRN reference is discarded automatically, and the 


& definition is accepted regardless of the order of appearance of either item. 
Examples: 
MODULE A: 
LABEL AOPERATIONA OPERAND 
1 10 16 
a a ee 
FOX MVO DEST(S) , ORIG (3) 
DC A(CAT) 
DC A(DOG) 
JOE BC 8, 1648 
MAT BCT 18, SET 
DC A(P 1G) 
ENTRY FOX, JOE, MAT 


EXTRN CAT,DOG,PIG 
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MODULE B: 
LABEL AOPERATIONA OPERAND 
1 10 16 

DC A(FOX) 
CAT PRINT DATA 

DC A(JOE) 
DOG MVC HAUS , NAD 

DC A(MAT) 
PIG AU 6,UNOR 

ENTRY CAT, DOG,PIG 

EXTRN FOX, JOE ,MAT 


In module A, the symbols FOX, JOE, and MAT are specified with the ENTRY 
directive so that they may be used in module B as specified by EXTRN. @& 


In module B, the symbols CAT, DOG, and PIG are specified with the ENTRY directive 
so that they may be used in module A as specified by EXTRN. 


19.6. SUBROUTINE LINKAGE 


In addition to writing the code in your external subroutines, you must provide for certain 
conventions that link your subroutines to your program. The conventions are: 


= Saving and restoring the contents of the registers 
= Establishing a new base register 


= Branching back to the program 


Each of these conventions uses a specific register. The table that follows lists the 
registers and their use. 
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Register Use 

1 Contains the address of the table holding variables being passed to the 
subroutine. 

13 Contains the address of an 18-word area that will save the contents of the 


registers as they were before your subroutine began execution. 


14 Contains the address that your program branches to after it finishes its 
execution. 
15 Used as the base register 


The format that follows shows how you should use these registers to meet these 
conventions. 


LABEL A OPERATION A OPERAND 
1. symbol CSECT 
2. STM 14,12,12(13) 
3. BALR 15,0 ‘ 
4. USING * 15 


processing code here 


5. LM 14,12,12(13) 
6. BR 14 





storage definition (if any) 


7. END 


Explanation: 
1. This line uses the CSECT directive to name the subroutine. 


2. This line saves the contents of the registers in an 18-word save area located at 
the address stored in register 13. 


3. These two lines establish register 15 as the base register for the execution of 
and the subroutine. 
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This line restores the contents of the registers from an 18-word save area & 





located at the address stored in register 13. 


This line returns control to your program by branching to the address stored in 
register 14. 


This statement must be the last line in the subroutine. 
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20. Listing Control Directives 


One of the outputs of the assembler process is a listing of source and object codes. The 
assembler directives that control the format of the listing have the following functions: 


# Provide headings for each page 

a Eject or skip to a new page 

= Space for extra blank lines 

= Provide for printing or nonprinting of the output 


Table 20—1 is a summary of the assembler listing control directives available to the user 
of the OS/3 assembler. 


Table 20—1. Listing Control Directives 
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20.1. ADVANCE LISTING (EJECT) 


The advance listing (EJECT) directive causes the assembler to continue the assembly 


listing (Part 6, Section 28) on the top of the next printout page. The format of the EJECT 
directive is: 





AOPERATION A OPERAND 


If the next line of the listing causes a page change, the EJECT directive has no effect. 


When the EJECT directive is encountered, the printing form is skipped to the next page. 
If a title has been previously specified, the title is printed on the new page. An EJECT 
directive appearing in a source code macro definition causes the form to be skipped 
whenever the definition is listed and each time the macro is generated. 


The assembler will advance the assembly listing to a new sheet whenever a sheet is full. 
However, if the programmer would like each new logical part or subroutine to start at 


the top of a new sheet, he can use the EJECT directive whenever he wants a new sheet 
to start. 





The EJECT directive itself is never printed. 
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20.2. LISTING CONTENT CONTROL (PRINT) 


The fisting content contro! (PRINT) directive enables the programmer to control the 
contents of the assembly listing. The format of the PRINT directive is: 


AOPERATION A OPERAND 





where: 





Specifies the listing is to be printed. 


OFF 
Specifies that no listing is printed. 





Specifies that lines generated by a macroinstruction are printed. 


NOGEN 
Specifies that lines generated by a macroinstruction are not printed, except that 
the macroinstruction and any MNOTE or PNOTE messages generated are 
printed. 


DATA 
Specifies that all characters of each constant representation are printed. 








pecifies that only the first eight characters of each constant representation are 
printed. 








Specifies that the source listing is single-spaced. 


DOUBLE 
Specifies that the source listing is double-spaced. 
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lf a PRINT directive specifies OFF plus other parameters, the other specifications are not 
effective until a PRINT directive is encountered that specifies the listing is to be turned 
ON. The options provided by the PRINT directive are keyword and not positional 
parameters; therefore, the comma is not required if a parameter is omitted. The initial 
print condition of assembly printing is ON, GEN, NODATA, SINGLE. This condition 
remains until the first PRINT directive changes it. PRINT directives may change from only 
one to all of the parameters; any unspecified parameters remain in their previous 
condition. A PRINT directive may not appear in a macro definition. 








Examples: 
LABEL AQPERATIONA OPERAND 
] 10 16 
1. PRINT DATA 
2. PRINT OFF 
3. PRINT ON ,GEN, DATA 


1. Data is printed in full. 


2. Assembly listing is suppressed. 


3. Assembly list printing is restored with complete printing of data constants. 
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20.3. LEAVE BLANK LINES ON LISTING (SPACE) 


The leave blank lines on listing (SPACE) directive causes the assembler to advance the 
paper in the printer a specified number of lines. The operand field contains an unsigned 
decimal integer specifying the number of lines the paper is to be advanced. If no operand 
is coded, one line will be spaced. 






A OPERATION A OPERAND 






unused 


where: 
i 
Is an unsigned decimal integer. 
Examples: 
LABEL AOPERATIONA OPERAND 
| 10 16 
1. SPACE 6 
2. SPACE 22 


1. The assembler advances the print form six lines before printing the next line. 


2. The assembler advances the print form 22 lines before printing the next line. 
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20.4. LISTING TITLE DECLARATION (TITLE) 


The /isting title declaration (TITLE) directive provides data for the heading of each page of 
the assembler listing and advances the printer form to a new page. The format of the 
TITLE directive is: 





A OPERATION A OPERAND 


where: 


Is a heading of up to 100 characters enclosed in apostrophes. 


The following conditions apply to characters in the operand field: 


= Any character may be specified, including spaces, within the defining apostrophes. 





= An apostrophe within the operand must be specified as a pair of apostrophes. 
= An ampersand within the operand must be specified as a pair of ampersands. 
= Spaces may be specified freely to separate heading words. 


More than one TITLE directive is permitted in a program. A TITLE directive provides the 
heading for all pages in the listing which succeed it. 





Examples: 
LABEL AOPERATIONA OPERAND ACOMMENTS 
1 10 16 72 
1. TITLE ' WEEKLY PAYROLL SOURCE AND OBJECT LISTING -- ASSEMBLED Z 
ON &SYSDATE AT &SYSTIME! 
2. TITLE ' PAYROLL SUBSECTION -- &SYSDATE' 


1. The Z in column 72 specifies that the title is continued on the next line. At 
assembly time, the assembler replaces the system variable symbols &SYSDATE 
and &SYSTIME with the current date and time, respectively. (See Appendix G.) 


2. The assembler puts the system date in &SYSDATE at assembly time. 
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21. Input and Output Control Directives 


The OS/3 assembler input and output control directives provide the necessary control for 
sequence checking, formatting, and reproducing data. The directives in this section help 
you in writing the source code program and controlling the source code punched cards. 
The six directives are: 


es  ICTL 


Controls the format of the program instructions. 


2 ISEQ 
e@ Controls the sequence of the punched cards in the source deck. 
= REPRO 


Controls the production of linkage editor control statements in the object module. 
= PUNCH 

Produces a specified record at assembly time. 
= COPY 

Controls the inclusion of prefiled source statements into your source programs. 


=» CCW 


Initiates input and output operations. 
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21.1. INPUT FORMAT CONTROL (ICTL) 


The input format control (ICTL) directive specifies new values for the begin, end, and 
continue columns. Normally, a source statement begins in column 1 of the coding form 
and ends in column 71. If a continuation statement is needed, a character is written in 
column 72, and the statement continues in column 16 of the following line. The format 
of the ICTL directive is: 






A OPERATION A OPERAND 






[b] [.e] [,¢] 





where: 

b 
Is an unsigned decimal integer specifying the beginning column. It must be 
between 1 and 75. 

e 
Is an unsigned decimal integer specifying the ending column. It must be greater 
than or equal to b+5 and less than or equal to 80. 

Cc 


Is an unsigned decimal integer specifying the continuation column. It must be 
greater than b and less than e. The line is continued starting in the column 
specified by c. 


If b is omitted, it is assumed to be 1. If e is omitted, it is assumed to be 71. If c is 
omitted or if e equals 80, continuation records are not allowed. If e is specified and e is 
less than 80, a continuation statement is signalled by putting a nonblank character in 
column e+1 of the line to be continued. 


There can be only one ICTL directive in a source code module and it must immediately 
precede or follow any program-defined macro definitions. The ICTL directive applies only 
to those source statements that follow it. All library macro definitions are assumed to 
have normal output format. If the ICTL appears before the START card and it is incorrect, 
the assembly is terminated. When an ICTL appears out of sequence (must be first card 
following START card), the ICTL terminates the assembly. 
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Examples: 
@ 





LABEL AOPERATIONA OPERAND 
| 10 16 

1. iCTL 2,79,18 

2. ICTL 2,,16 


1. Coding is to follow a new format by Starting in column 2, ending in column 79, 
and continuing on the following line in column 10. 


2. Coding is to follow standard format except that it is to start in column 2. 
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21.2. INPUT SEQUENCE CONTROL (ISEQ) 


The input sequence control (\SEQ) directive informs the assembler which columns of the 
source statement contain the field used for checking the sequence of statements and 
controls the initiation and termination of sequence checking. The format of the ISEQ 
directive is: 





AOPERATION A OPERAND 


where: 


Is a decimal integer specifying the leftmost column of the field to be used for 
the sequence check. 


ls a decimal integer specifying the rightmost column of the field to be used for 
the sequence check; r must be greater than or equal to |. 





Columns to be checked should not fall between the beginning and ending input columns 
specified for the program. 


The sequence check begins with the first source statement after the first ISEQ directive 
and is terminated by an ISEQ directive with a blank or invalid operand field. 


Sequence checking is not performed on statements generated from macro definitions or 
on statements inserted into the source code via a COPY directive. 


If no ISEQ directive is supplied, no sequence checking occurs. 





Example: 
LABEL AOPERAT IONA OPERAND 
1 10 16 
ISEQ 75,79 


Input record sequence is to be checked using the sequence numbers found in 
columns 75 through 79. 
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21.3. REPRODUCE FOLLOWING RECORD (REPRO) 


The reproduce following record (REPRO) directive is used to reproduce a record in its 
entirety (columns 1 through 80) during assembly time. This directive is used to produce 
statements to precede or succeed the object module and eliminates the necessity of 
manually inserting them. The format of the REPRO directive is: 





AOPERATION A OPERAND 


This directive causes the contents of the following source record to be reproduced as a 
record in the assembler output. Each REPRO directive produces one record; up to 80 
bytes are reproduced. 


A REPRO directive prior to the first control section-of the program produces records prior 
to the first control section. 


All REPRO directives following the declaration of the first CSECT (START) produce 
records which appear after the object module transfer record. Although this directive may 
be included anywhere in the program, it cannot be used before a macro definition. 


No substitution for variable symbols occurs in the record thus produced. 





Example: 
LABEL AOPERATIONA OPERAND 
! 10 16 
REPRO 


INCLUDE XYZ,USERLIB 


START Y] 


END BEGIN 
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21.4. PRODUCE A RECORD (PUNCH) 


The produce a record (PUNCH) directive produces a record at assembly time. This 
directive is used to produce job control card images to precede or succeed the object 
module; it eliminates the necessity of manually inserting them. The format of the PUNCH 
directive is: 





A OPERATION A OPERAND 


where: 
C1,+++,go 7 
Represents a string of up to 80 characters produced as a record in the object 
code output. 


The following conditions apply to the characters specified in the operand field: 





= Up to 80 characters, including spaces, may be specified within the apostrophes. 
= An apostrophe within the operand must be specified as a pair of apostrophes. 
= An ampersand within the operand must be specified as a pair of ampersands. 
= Spaces must be used to separate fields. 


= In counting characters for the limit of 80, a pair of apostrophes or ampersands 
written to express a single apostrophe or ampersand counts as one character. 


A PUNCH directive prior to the first control section of the program produces records prior 
to the first control section, and all others produce records after the last control section. 


Although this directive may be included anywhere in the program, it cannot be used 
before a macro definition. 


Variable symbol substitution is performed within the operand field. 
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Example: 
LABEL AOPERATIONA OPERAND 
1 10 16 
i 
PUNCH "INCLUDE XYZ,USERLIB! 


The record XYZ is included from USERLIB at assembly time. 
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21.5. INCLUDE CODE FROM A LIBRARY (COPY) 


The include code from a library (COPY) directive causes the source module identified in 
the operand field of the COPY directive to be included directly into the source program 
being assembled. The format of the COPY directive is: 





A OPERATION A OPERAND 


where: 


symbol 
Identifies the source module to be copied by the assembler. Only one symbol 
may be used. 


The assembler places the source code, identified by the operand, immediately after the 
COPY directive. This source module may not include any COPY, END, ICTL, MACRO, or 
MEND directives. Also, the last statement in the source module may not be continued into 
the source program being assembled. Statements included in the program by a COPY 
directive are assumed to be in standard format regardless of any ICTL directives in the 
program. 





Example: 
LABEL AOPERAT !0NA OPERAND 
1 10 16 
COPY SUBRUT 


SUBRUT is copied from a source library and placed into the calling program. 
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21.6. CHANNEL COMMAND WORD (CCW) 


The channel command word (CCW) defines an 8-byte field aligned on a double-word 
boundary and located in main storage. The CCW is used to initiate |/O operations such 
as reading and writing. It has four operands which specify the contents of the channel 
command word. Each operand is separated by a comma and all four operands must 
appear in the operand field. 


Format: 






A OPERATION A OPERAND 






[symbol] OP, ,OP, OP, OP, 


where: 


Op; 
Is an absolute expression that specifies the command code. The command code 
defines the |/O operation to be performed. This value is right-justified in byte 1. 


OP2 
Is an expression that specifies the address of the first byte of data in main 
storage to be controlled. This value is located in bits 13 through 31. Bits 8 
through 12 are set to zero. 


OP3 
Is an absolute expression that specifies the flags for bits 33 and 34, and zeros 
for bits 32 and 35 through 47. Flag bits are set if a specific option is being 
used. 


OP, 
Is an absolute expression representing the byte count which specifies the 
number of bytes to be controlled. This value is right-justified in bytes 7 and 8. 
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Operational Considerations: 





= ~=6lf a symbol is used in the label field, it references the address of the leftmost byte 
of the CCW. Its length attribute is eight. 


= # All four operands must be specified. 


= For more detailed information on the use of the CCW, see the _ processor 
programmer reference manual. 


Example: 
LABEL AOPERATIONS OPE RAND 
1 10 16 
CCW 2, INAREA,X'80' ,8¢ 
ccwl CCW X'G3!' ,LOC+24,X'98' 55 


CCW 5,8,X'66',128 
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22. Macro Facility 


22.1. THE MACRO PROCESSOR 


The OS/3 macro facility processes macro call instructions. This macro processor 
functions somewhat like a compiler and provides BAL users with a higher level basic 
assembler language. The OS/3 macro call instructions that make up this language are 
stored in the macro library file (SYSMAC). Each macro call instruction provided by Sperry 
Univac (data management, sort/merge, etc) generates an open subroutine each time it is 
used in a program. An open subroutine is a set of BAL source instructions, designed to 
perform a particular function, that must be inserted into a program at each place desired. 
(The set of BAL instructions that make up an open subroutine is also called inline 
expansion code}. The macro facility expands the OS/3 macro definitions from $Y$MAC 
and inserts them into a program in place of a macro call instruction. 


Although the macro processor is far from being a high-level language compiler like 
COBOL or FORTRAN, it has language statements that must be interpreted and reduced 
to machine instructions just like any compiler. We no longer have an assembler that just 
converts one source instruction to one machine instruction. We now have an assembler 
that accepts one source statement in the form of a macro call instruction and converts 
this one statement into as many BAL source instructions as required to perform the 
particular function. 


The macro processor is a valuable tool for the BAL programmer. Any programmer who 
writes his programs in assembly language quickly discovers the existence of 
macroinstructions (colloquially known as macros). Most programmers use data 
management macros to define their files and to process them (OPEN, DMINP, DMOUT, 
etc). These macros were created for a specific reason. For example, to open a file might 
take 15 instructions in a particular sequence. If you want to open five files, you have to 
code this 15-instruction sequence five times. The only differences in these instructions 
that you would have to code would be the instruction parameters that generally vary from 
file to file. To avoid this boring and repetitive process, which also provides opportunity for 
making coding errors, data management macroinstructions are provided for your use to 
define and process the necessary instruction sequences. These sequences are known to 
be error free, and you can generate your specific instruction sequences merely by filling in 
parameters in two or three lines of coding. 
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If you are an_ experienced BAL programmer, you should be familiar with 
macroprogramming because, to write any type of worthwhile BAL program, you have to 
use data management macroinstructions. This means you've studied the data 
management instructions, and possibly others, and used them when writing BAL 
programs. You know what inline expansion code looks like because you are a user of 
macro calls and have seen inline code in your source listings. 





For instance, look at the listing shown in Figure 22—1. This program has five macro call 
instructions, and the inline code that immediately follows each call instruction is marked 
with a plus sign. The inline code shown in this listing is generated via macro call 
instructions designed by Sperry Univac. Each call is designed to produce a sequence of 
source instructions that will perform a specific function. The CDIB macroinstruction, 
shown in Figure 22—1, is designed to generate all the DC statements required to define a 
file for data management. If a CDIB didn’t exist, you would have to code all the DC 
statements needed to create a printer file. The purpose of this part of the user guide is to 
teach you how to become more proficient at using macro call instructions. We are going to 
teach you how to design your own macros, not how to call macros. You can learn about 
the macroinstructions Sperry Univac provides by reading the related user guides. If you are 
experienced in macro design, you would be better off referring to the assembler 
programmer reference, and not this user guide, because the discussion in this part is 
meant for novice macro designers. 


22.2. MACRO SOURCE CODE 





Although you've probably seen a lot of inline expansion code, chances are you have 
probably never seen macro source code. Inline expansion code originates from macro 
source code. Whenever you use an OS/3 macro call instruction, the macro facility 
retrieves the macro source code from $Y$MAC, which contains a macro definition for 
each macro call instruction provided by Sperry Univac. Each macro definition holds the 
BAL source instructions that are to be generated inline. If you have a BAL program that 
has become popular and is recurring in other programs and you want to make this code 
available via a macro call instruction, you have to design a macro definition. You use the 
statements provided with the assembler macro facility to transform your BAL program 
into a macro definition. It is the responsibility of the macro facility, which is part of the 
assembler, to process your macro definition. The macro facility works entirely with macro 
source code while a conventional assembly recognizes and processes program source 
code. Macro source code consists of macro facility source statements and BAL source 
statements. 





‘ 
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LOC. OBJECT CODE ADDR1 AODR2 LINE “SOURCE STATEMENT 


cacoco 1 START G 

ocoo00 0560 2 BEGIN BALR 620 

oocon2 3 USING 456 

Gocod2 ocde 607F 6fe6 00081 4 EXAMPLE TR INDEX »TABLE 


Coduos 0006 6a7F eNse Ou081 5 EXAMPLEZ TRT INDEX, TABLE 
6 OPEN GUT, (OUTRIBD —<———— MACROINSTRUCTION 


QGcodE o700 7+ CNOP Ce4 

000010 601A 8+ BAL 1,**12 
000014 9* oc x"el° 

oaco1s 10+ oc AL3(0UT) 
000016 lle oc xene 

coco19 12+ oc AL3(OUTRIB)D 
ooraic 13¢ SVC 38 ISSUE SVC 
Goco1E 60AA 6O7F OG0AC 14 MVC BUF (7), INDEX 


coco24 ty) « SET ALIGNMENT 
caco24 60BE ie 1,=A(OUT) * LOAD R121, COIB ADOPESS 
oooo2e 60C2 L Lp=ACBUF) #& LOAD RTS, WORKAREA ADDRESS 
Gacaec 1902 MVI 2cld,x*2ue # SET FUNCTION CODE 
ooco30 1003 MVI 341),0 * SET FUNCTION CONTROL BYTE 1 
SCALL 47 
000034 os CH 
ooco34 SVC 239 
000036 z oc YL1¢16) 
Coco37 oc YL1(47) 
eoco3s svc 25 
OO0O3A NOPR & 
goco3c svc 28 
ooca3c GRG a-2 
aco3sc SVC 133 
CLOSE OUT} 
ooco3e tc ty) 
co003e ¢ L 1,=ACOUT) LOAD R1 wITH FILENAME ADDRESS 
Gocos2 i SvC_ 39 ISSUE SVC 
“CC UMP 
co0o4s os oH 


THE OUMP PARAMETER IS A 1-4 BYTE HEX CODE TO BE DISPLAYED BY DUMP 


000044 XR tsu CLEAR DUMP CODE 
Qocuve Svc <7? OUMP SVC 


ouT 
o0004s GF 
Coco4s 112Cc x*112c* « COIB IO ANC LENGTH 
oocu4#a uvouo 2x'ge 
OOOOsC D6ESE34O40O404N4N CL6E°OUT*® # FILENAME 
Gocos54 Gooog000ardna0u0 oc SFene 
1 


+ 


S666 PRINT ON 


Figure 22—1. Example of Inline Macro Expansion 


There are three types of source code that are always associated with the macro facility: 
1. Macro source code 

2. Macro call instruction 

3. Inline expansion code 


The order in which these different types of source code are listed is the order of their 
evolution. First, you must have a macro definition (macro source code) before you can 
use a macro Call instruction to generate inline expansion code. An important fact to keep 
in mind is that all of this code is source code. The macro facility works entirely at the 
source code level, from the macro call instruction, to the S$SY$MAC, to the inline 
expansion code. The following diagram shows the interactions of each type of code when 
a macro call instruction is used. 
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PROGRAM SOURCE CODE MACRO SOURCE CODE 


START 0 
BALR_~ 6,0 
USING *,6 


macro cal! instruction 


macro definition 


inline expansion code 
macro definition 


LA 13,SAVE 
END BEGIN 





The macro facility performs preassemble processing. It has nothing to do with turning 
source code into object code. The basic function of the macro facility is to search for the 
proper macro definition when a macro call instruction is used in a program, and 
generate the requested inline expansion code. This is done before the assembler starts 
creating an object module. When the assembler detects a pseudo-operation code (a 
mnemonic code that is not a machine instruction), that code is turned over to the macro 
facility. Each macro definition has a unique ca//-name that is identified in the operation 
field of the macro call instruction. The macro facility searches for the macro definition 
that matches the ca//l-name and generates the requested inline expansion code. The 
macro facility expands the code inline before the assembler starts converting the 
program source code to object code. 


The macro facility has capabilities other than just inserting the BAL source instructions 
that are contained inside a macro definition inline in place of the macro call instruction. 
There are other elements of the expansion that you can control. You can use the macro 
facility to perform variable parameter replacement and variable inline expansion code. If 
you've used macro call instructions supplied by Sperry Univac, then you are familiar with 
positional and keyword parameters. The values you code as positional or keyword 
parameters in the call instruction replace variable symbols coded in the macro definition. 
Using variable parameter replacement, you can use the values given in the call 
instruction to replace variable symbols coded in the /abel, operation, or operand field of 
any BAL instruction in the macro definition. 


Variable inline expansion code is another level of contro! that allows you to design a 
macro definition that will vary the pattern of BAL instructions generated from within the 
macro definition. Conditional assembly language statements are used to design the logic 
for variable inline expansion code. Variable parameter replacement and variable inline 
expansion code allow you to give the user of your macro call instruction more control 
over the code that is generated. If you use these coding techniques when designing 
macro definitions, the user can control calculations performed by the open subroutine 
and select the functions that are to be performed. 
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23. Macro Design 


23.1. THE MACRO DEFINITION 


You can define your own macro call instructions by using the statements provided with 
the assembler macro facility. When you define a call, it must be in a formalized pattern 
called a macro definition. Each macro definition is organized into the following parts: 





TRAILER 


The two major areas to consider when designing a macro definition are the heading and 
the body; the trailer is merely a single statement indicating the end of the macro 
definition. The heading is always the first part of the macro, and it consists of 
statements you use to design the macro call instruction. The body, which immediately 
follows the heading, is where you design the inline expansion code. Model statements 
are used in the body to construct a model of the inline expansion code you want 
generated by the macro call instruction. If you design a basic macro definition, the model 
statements are merely a copy of the BAL source instructions that are to be expanded 
inline. A basic macro definition is one that does not require any parameters from the 
macro call instruction and will generate the same sequence of source instructions, with 
no modifications, each time it is called. The following diagram shows the operation of a 
basic macro definition. 


UP-8913 SPERRY UNIVAC OS/3 23-2 
ASSEMBLER 


MACRO DEFINITION MACRO CALL INSTRUCTION 










L 13,PAY 
A 13,RAISE 
ST 13, TOTAL 


TRAILER 





INLINE EXPANSION CODE 

















L 13,PAY 
A 13,RAISE 
ST 13, TOTAL 






The only real design consideration for the basic macro definition is the ca//-name, which 
is the mnemonic that appears in the operation field of the macro call instruction. You 
must give the ca//-name in the heading. , 


If you want variable parameter replacement in the body, you must give further 
consideration to coding the heading and body. Variable parameter substitution is 
substituting parameter values coded in the macro call instruction in place of arguments 
given in the /abel, operation, or operand fields of model statements. The following 
diagram shows the operation of a macro definition designed to perform parameter 
substitution. 


MACRO DEFINITION MACRO CALL INSTRUCTION 


HEADING ADD2 450,40, TOTAL 


Ee) «Aen Semen. INLINE EXPANSION CODE 
A 13,=F’ argument 


st 13,argument 


TRAILER 



























L -13,=F'450' 
A 13,=F'40° 
ST  13,TOTAL 





You must design the body to indicate where the arguments are and design the heading 
to indicate how the parameter values are to be coded in the macro call instruction and 
how the body is to reference the parameter values in the macro call instruction. 


If you want variable inline expansion code, you must include model statements other 
than the BAL source statements that you want expanded inline. These other model 
statements are called conditional assembly language statements, and they enable you to 
vary the pattern of the inline expansion code produced by the macro definition. The 
pattern of code generated depends on a value given in the macro call instruction. The 
following diagram shows the operation of a macro definition designed to perform variable 
inline expansion code. 


() 
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MACRO DEFINITION MACRO CALL INSTRUCTION 1 


HEADING PAY1 530,1,SAVE=TOTAL 


Ls 13,=F’argument’ 
MACRO CALL INSTRUCTION 2 


advance to STORE if P2=1 
PAY1 530, 2,SAVE=TOTAL,RAISE=40 


















A 13,=F’argument’ 
STORE ST 13,argument 


TRAILER 






INLINE EXPANSION CODE 1 













L 13,=F'530° 
ST = 13,TOTAL 


INLINE EXPANSION CODE 2 - 


L 13,=F‘530' 
A 13,=F‘40’ 
ST  13,TOTAL 


Parameter 2 in the call indicates which pattern of inline expansion code is to be 
generated. The second statement in the body is a conditional assembly that tests the 
value of parameter 2. If the value of parameter 2 is 1, then a branch is made to STORE 
and the A instruction is not included in the inline expansion code. If the value of 
parameter 2 is 2, no branch is made and all of the instructions are generated. 


23.2. MACRO DEFINITION STORAGE 


After you've designed a macro definition there are several things you can do with it. If it 
is for your program and not to be used by anyone else, you can put it in your source 
program when it is assembled. A macro definition is placed in the source program 
immediately following the start-of-data (/$) job control statement and before the START 
assembler directive (Figure 23—1). The macro definition is stored in the temporary job 
run library file (SYSRUN), and it is only available during execution of the current job. To 
make a macro definition available to anyone at anytime, it must be stored in a library 
other than $YSRUN (either SYSMAC or your own library). Figure 23—2 shows how a 
macro definition is obtained from S$Y$MAC. To add a macro definition from cards to a 
disk file, you can use the ELE librarian control statement. (For more information on the 
system library and creating library files, see the system service programs (SSP) user 
guide.) Whether a macro definition is stored in a library or is part of a source program 
depends on whether you want the macro to be temporary or permanent. 
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USING *\6 
5,RAG,BAG,SAG 
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WITH 
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AFTER INLINE EXPANSION 
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OF 
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| | A pP1,p3 
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A 5,BAG 
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Figure 23—1. Accessing a Macro Definition Submitted in the Source Deck 
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SYSRES DISK PACK 


$SYSRUN 
BEFORE INLINE EXPANSION 
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STORE 


START 0 

BALR 6,0 

USING *6 

STORE 5,RAG,BAG,SAG 





END BEGIN 


BAL PROGRAM SOURCE CODE 
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Figure 23—2. Accessing a Macro Definition Stored in a Library 
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23.3. THE MACRO CALL INSTRUCTION 


The macro call instruction has two functions: to call a macro definition and to pass 
parameters to the macro definition, if required. The /abe/ and operand fields of the macro 
call instructions are used for passing parameters, and the operation field is used to call 
the macro definition: 






A OPERATION A OPERAND 





call-name 





[symbol] [py Poe-++ Pogo] 


Just as the inline expansion code originates from the macro definition body, the macro 
call instruction originates from the heading. The contents of the /abel, operation, and 
operand fields of the macro call instruction are specified in the heading of the macro 
definition. You actually use the heading of the macro definition as a dummy call line to 
design the format of the macro call instruction. The following diagram shows an abstract 
representation of how the heading represents each field of the macro call instruction. 
(The fields shown in the diagram of the heading do not necessarily appear exactly where 
they are shown; the diagram is provided to illustrate the association the heading has 
with the call. The exact format of the heading is described in the following discussion.) 


call-name Parameter-list 


label parameter 
call-name eh ud 
HEADING argument specifications 


MACRO 
DEFINITION 





TRAILER 


Everything you want the user to code in the macro call instruction must be represented 
in the heading. If you design a basic macro definition, the only thing that you require 
from the macro call instruction is the ca//-name in the operation field. The ca//-name that 
you want the user to use to call your basic macro definition is duplicated in the heading. 
All call-names: 


1. Must begin with an alphabetic character or special letter. 


2. Must not exceed eight characters in length. 
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3. Must not contain embedded blanks or other special characters. 


4. Must not be the same name as any of the Sperry Univac mnemonic operation codes 
or any mnemonic operation codes you have in your library. This restriction is 
normally true unless you use the OPSYM directive to override a valid mnemonic 
code (16.2). 


A macro definition that is designed to perform variable parameter replacement must 
indicate, in the heading, the type and number of parameters to expect from the macro 
call instruction. Values may be passed to the macro definition from the /abe/ field or the 
operand field of a macro call instruction. If you want to use the symbol in the /abe/ field 
of a call instruction, you must have a /abel-argument in the heading. Before the macro 
definition can pick up the values from the parameter-list in the macro call instruction, 
they must be coded according to the parameter-specifications given in the heading. You 
use the heading to specify how many parameters are to be coded in the macro call 
instruction and whether the parameters are keyword or positional, or both. The macro 
call instruction must be coded in accordance with the heading before the values in the 
parameter-list can properly replace the arguments in the body. 


The heading can specify a parameter-list of up to 252 parameters. All parameters must be 
separated by commas and each parameter can be from 0 to 127 characters in length. In 
order to be properly picked up by the macro definition, the string of characters comprising 
a macroinstruction operand must satisfy the following conditions: 


= May include one or more sequences of characters enclosed in single apostrophes. 
The apostrophes enclosing each character sequence are paired. Paired apostrophes 
may appear within paired apostrophes. 


= May include a single apostrophe outside paired apostrophes if written as part of the 
following sequence: any special character except an ampersand, the letter L, an 
apostrophe, and a letter. 


= May include an ampersand as the first character of a variable symbol if the 
ampersand is a single ampersand or the last ampersand of a string containing an 
odd number of ampersands. 


= May include paired parentheses outside paired apostrophes. To determine pairing, a 
left parenthesis is paired with the immediately following right parenthesis (that is, 
no parentheses between them). Additional pairs are determined by ignoring the first 
pair and reapplying the rule. 


= = =May include an equal sign only as the first character of an operand or within paired 
parentheses or paired apostrophes. 


a May include a comma as a character in a string if the comma is enclosed in paired 
parentheses or paired apostrophes. A comma standing alone is interpreted as the 
end of an operand. 


= May include a blank within paired apostrophes. A blank not enclosed in apostrophes 
terminates the operand field. 
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NOTE: 


Operands can be coded on more than one line through the use of a continuation character 
in column 72. If a line is to be continued, the last operand on that line must be followed 
by a comma. A warning message is issued if a comma is not included. 


The specifications for the parameter-list of a macro call instruction should be thoroughly 
documented for the user of the macro. He should know the range of values each 
parameter is to have and the type of parameters. 


There are two ways the macro definition can recognize values in the parameter-list: by 
the position of the value in the list or by the name associated with the value in the list. 
A value identified by the position it holds in the list is called a positional parameter, and 
one that is identified by a name is called a keyword parameter. When the parameter 
specifications in the heading indicate that the parameter-/ist is to contain only positional 
parameters, the corresponding values in the operand field of the macro call instruction 
must appear in the same operands each time the call is used. If any positional 
parameters are omitted in the call, this omission must be indicated by retaining the 
comma in the parameter’s place. For instance, if a macro has the capacity to accept four 
positional parameters, the call doesn’t necessarily have to give all the parameters 
because some of the parameters may be optional to the macro’s function. The proper 
coding of some of the possible combinations for four positional parameters is: 


LABEL AOPERATIONA OPERAND 
1 10 16 

NAME 1 CALL P1,P2,P3,P4 

NAME2 = CALL ,P2,P3,P4 

NAME3 CALL P1,,P3,P4 

NAMES = CALL P1,P2,,P4 

NAMES —- CALL P1,P2,P3, 

NAME6 ~— CALL P1,,,P4 

NAME7 —- CALL P) 


It is not necessary to retain the commas for trailing positional parameters; if you are not 
going to code any of the remaining positional parameters in a call line, you do not have 
to code the commas for those parameters. But it doesn’t matter if you do code the 
commas. | could have left out the last comma for CALL in NAME5 or | could have left 
the commas in for CALL in NAME7. 


The following are typical examples of positional parameters with their calls: 


READIN DM INP INF ILE ,WORK1 
WRIT1 DMOUT PRINTER,HEDR 
ENDIN CLOSE INFILE 


ACTION —OPR TEXT, ,,REPLY,AREA 
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Keyword parameters, unlike positional parameters, are not referenced by the position 
they hold in the call line, but by the name of the keyword in the call tine. A keyword 
parameter consists of three parts: a keyword, an equal sign, and a value: 


keyword=value 


The keyword is an alphanumeric string from one to seven characters in length. Actually, 
a keyword may be longer than six, but the macro facility recognizes only the first seven 
characters as the true name and truncates the remaining characters. The value is 
dependent upon the arguments in the macro. 


Keyword parameters, like positional parameters, must be separated by commas but aren't 
restricted to being in the same position each time they are coded. This nonpositional 
characteristic eliminates the inconvenience of comma counting because keyword 
parameters can be coded in any order and, when a keyword is omitted, a comma does 
not have to be retained in the parameter’s place. Keyword parameters also provide 
another coding choice: default values for omitted parameters. The macro may be 
designed to automatically provide a preselected value for a keyword parameter that is 
omitted from a call line. To illustrate, suppose we had a keyword parameter called 
CHOICE. This parameter could be assigned optional values, such as ONE, NONE, or ALL. 
We could then write the parameter in the macro with a default value equal to ALL. Now 
when we call the macro, the ALL option is used unless the call specifically states 
another parameter such as CHOICE=ONE or CHOICE=NONE. This is true even if we omit 
the keyword parameter in the call. However, if a keyword is not given a default value 
within a macro and it is omitted in the call, it receives the value of a null character 
string. 


Following are examples of typical macros with keyword parameters: 





A OPERATION A 





OPERAND 






TAPRIB TYPEFLE=OUTPUT,FILABL=STD, 
RCFM=FIXBLK,RCSZ=220,IOA1=TAPAREA, 
WORK=YES 

PRINTRIB RCFM=FIXUNB,BFSZ=120,IOA1=LIST, WORK=YES, 


PRAD=2,PRINTOV=YES 


Both positional and keyword parameters may appear in the same call line. This is known 
as a mixed-mode macro call. In a mixed-mode macro call, the positional parameter string 
must be coded before the keyword parameter string: 





AOPERATION A OPERAND 






[symbol] call-name 
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Positional and keyword parameters may have a subordinate list of parameters called 
subparameters. This sublist of parameters permits the macro call line to provide more 
than one value in a single parameter position. A sublist for positional parameters is 
coded as follows: 





A OPERATION A OPERAND 






[symbol] call-name (p, Py ey in VwlP, 4 Py a) 


A sublist for keyword parameters is coded as follows: 





A OPERATION A OPERAND 





call-name 






[symbol] Kk, =(Py seP, deere, =(P, oP, ) 


The parameter sublist must always be enclosed by parentheses, and the subparameters 
are coded as positional parameters (parameter omission is indicated by retaining 
commas). 


When you design a macro definition that requires parameters from the macro call 
instruction, the heading is the means to pass values from the call to the body. There are 
two methods available for designing the call-to-heading-to-body communications cycle 
that generates inline expansion code. You can use a macro definition in PROC format or 
a macro definition in MACRO format. Each uses a different technique in the heading for 
designing the call instruction. If a SET symbol appears in the operand entry of a 
macroinstruction, attribute information is not provided and the operand may not be 
accessed as a Sublist. 
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24. Two Types of Macro Definitions 


24.1. PROCS AND MACROS 


The OS/3 macro facility can process two types of macro definitions. One type is called a 
procedure (PROC) and has been the standard type of macro definition for Sperry Univac 
systems for many years. The other type is called a macro (MACRO) and is available 
primarily to be compatible with the IBM 360/20 system. You can design a macro 
definition in PROC format.or MACRO. format; the OS/3 macro facility will accept and 
process either one. Although the statements inside a PROC are a little different from 
those inside a MACRO, both types of definitions will always have a heading, a body, and 
a trailer and will always be in that order. Actually, the only differences between the two 
types of definitions occur in the heading and the trailer. The body, which contains the 
model statements, is the same for both PROCs and MACROs. Let’s take a look at a 
macro definition heading in MACRO format and compare it to the same macro definition 
heading in PROC format and discuss their differences without going into a lot of detail 
about the operation of each. Look at Figure 24—1 and you'll see the differences between 
the headings for the PROC and the MACRO. 


PROC HEADING 


LABEL A OPERATION A OPERAND 


MACRO HEADING 


LABEL A OPERATION A OPERAND 


CALL INSTRUCTION ? 


LABEL A OPERATION A OPERAN 
ee 


Figure 24—1. PROC and MACRO Heading 













PROC STATEMENT 


NAME STATEMENT 






MACRO STATEMENT 





PROTOTYPE STATEMENT 
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24.2. CALL INSTRUCTION DESIGN 


Even through the format for the PROC and MACRO headings is different, it doesn't affect 
the coding rules for the call. instruction format. When a user issues a call instruction, he 
is completely unaware of whether the call communicates with a PROC or MACRO. This 
is because both headings have the same counterpart fields that represent each field of 
the call. The /abel-argument in each heading represents the symbo/ in the label field of 
the call instruction, the ca/l-name in each heading is the ca//l-name used in the call 
instruction, and the parameter-specifications in each heading define the specifications for 
the parameter-list in the call. The fields representing the call instruction are in different 
positions in the heading for the PROC and MACRO, but they serve the same function for 
each. 


Variable symbols are used to create the label-argument and parameter-specifications in 
the PROC and MACRO heading. The variable symbol is a macro language symbol used 
as a dummy argument in a macro definition. It's a dummy argument because the 
variable symbol will be replaced with a value when the macro definition is called by the 
macro call instruction. Since a variable symbol is recognized and processed only by the 
macro facility, it is distinct from the symbols used in program source code. The macro 
facility requires that any symbol to be used as a variable symbol must have an 
ampersand (&) as an identifier in the first character position. There are seven character 
positions after the ampersand that:are used to construct the variable symbol. Because a 
variable symbol must always. be identified with an ampersand in the first character 
position, a variable symbol will always be at least two characters in length (an 
ampersand and a character) and eight characters at the most (an ampersand and seven 
characters)..The character position after the ampersand can contain a letter (A through Z) 
or a special letter (?$#@) and each of the remaining seven positions can contain a letter, 
special character (see 2.4. for character types), or a digit (O through 9): 


(2 
$ letter letter 
& # special character ae special character 
@ digit digit 
A thru Z 


Some examples of legal variable symbols are: 


&ABCDEFG 
&#BCDE67 
&S6 
&@ 


IHegal variable symbols: 


ABCDEFGHI 
&&CDEFGHI 
&=KEY | 
&95&95 
a 


(, 
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When variable symbols are used, the following restrictions must be considered: © 


= A-variable symbol may not be used to generate a new sequence symbol, a SET 
symbol, a parameter, or a system variable symbol. 


=. A variable symbol may not be used in the label or operand field of an END, ICTL, 
ISEQ, COPY, or PRINT directive. 


= A variable symbol may not be used in the operation field of a statement. 


= No variable symbol replacement is performed on the line following a REPRO 
directive. 


= Variable symbol replacement must not produce leading blanks in the label or 
operand fields. 


The OS/3 assembler provides system variable symbols. When a system variable symbol 
is used im a model statement, a value is automatically provided by the macro facility. The 
system variable symbols available with the macro facility are given in Appendix G. 


Both the PROC and the MACRO use two statements in the heading; the PROC may have 
more than two but must have at least two. When designing a MACRO, you use the first 
statement strictly for indicating MACRO format; the entire second statement, called the 
prototype statement, is used to design the call instruction. In a PROC, the first statement 
is not only used to indicate a PROC format but is also used, along with the second 
statement, for call instruction design. The heading of the PROC consists of the PROC and 
NAME statement, and the heading of a macro consists of a MACRO and prototype 
statement. ; : 


In MACRO format, each field of the prototype statement is used for designing each 
corresponding field in the macro call instruction. if you want to reference the /abel field 
in the call instruction, you must indicate a variable symbol for the /abe/l-argument in the 
label field of the prototype statement. The ca//-name for the call instruction is indicated 
in the operation field of the prototype statement, and the parameter-specifications for the 
parameter-list to be coded in the call instruction are indicated by variable symbols in the 
operand field of the prototype statement. The variable symbols for indicating a /abel- 
argument and for specifying positional and keyword’ parameters are coded in the 
prototype statement as follows: 













symbol | PROC &pos,m, &key=,...,&key = 
STATEMENT |” ceca Ym 
CALL’ symbol call-name | p,,....p_,key, =value,..., key mvalue 
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If you want the call instruction to pass values as positional parameters, variable symbols 
representing these positional parameters are coded starting in operand 1 of the prototype 
statement and are separated by commas. Each positional parameter is represented by a 
unique variable symbol that must be coded in the prototype statement in. the same 
position its corresponding values are to be coded in the operand field of the call. If you 
want a mixed-mode cail instruction, you. must code variable symbols representing the 
keyword parameters immediately following the variable symbols for positional 
parameters. The format of the keyword parameter variable symbol is: 


&key= 


where key is a 1- to 6-character keyword to be used in the call. The keyword in the call 
may be longer than six characters, but the macro facility will only use the first. six 
characters as the keyword name. If you want the call to pass values using only keyword 
parameters, then you code only keyword parameter variable symbols starting in operand 
1 of the prototype statement. When designing a call instruction from a _ prototype 
statement, you can match each field of the statement with each field of the call, and you 
can also match value in the parameter-list of the call with each variable symbol in the 
operand field of the prototype statement. The prototype statement is the dummy call 
instruction used for designing the macro call instruction. 


Even though you can compare the prototype statement with the call instruction on a 
field-by-field basis, you cannot use a single statement in the PROC heading for a similar 
comparison. This is because you must use both the PROC and the NAME statement to 
design the call instruction. The /abe/ field of the PROC statement is used to indicate the 
variable symbol for referencing the symbol in the /abe/ field of the call instruction, and 
the operand field of the PROC statement is used to indicate the variable symbols used 
for referencing the parameter-list in the operand field of the call. The coding of 
parameter-specifications in the operand field of the PROC statement is different from the 
coding in the prototype statement: 





You specify positional parameters by indicating a variable symbol in operand 1, and you 
indicate the number of positional parameters to appear in the call in operand 2. If you 
want a mixed-mode call, the keyword parameters are indicated by coding keyword variable 
symbols starting in operand 3. You specify keyword parameters only, by coding commas in 
operand 1 and 2 and then coding the keyword parameter variable symbols. The PROC 
statement is used to indicate the /abe/-argument._and the parameter-specifications, and the 
NAME statement is used for specifying the ca//-name. 
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In effect, what the NAME statement does is to make the ca//-name an independent entity 
in the PROC heading. Since the ca//l-name is disassociated from the parameter- 
specifications, it becomes easy to introduce another method of parameter submission 
without having any effect on the variable symbols in the heading. This order parameter is 
positional parameter zero and is submitted in the operand field of the NAME statement. 
Each value you want positional parameter zero to have must be coded in the operand field 
(pos-O) of a separate NAME statement. And each NAME statement must have a different 
call-name in the /abe/ field. Thus, you can vary the value of positional parameter zero by 
varying the ca//l-name used in the call instruction. At any point in time, positional 
parameter zero has the value of the pos-O coded in the operand field of the NAME 
statement that matches the ca//-name used in the call instruction. The PROC makes 
positional parameter zero possible through efficient use of two fields that are unused in 
the MACRO heading. These two fields are used in the PROC to disassociate the ca//-name 
from the parameter-specifications and split the call design responsibility between the two 
heading statements. 


So, where the MACRO uses one statement in the heading to communicate directly with 
the call line, the PROC uses both statements, one statement for associating parameter 
replacement and another for naming the ca//l-name. Using the one statement in the 
heading to interface the call-line instead of two, as the PROC does, seems like a 
straightforward way of doing things. But when you read about how to use the PROC, you'll 
find the split-heading characteristic of the PROC heading works to your. advantage. The 
PROC offers one more additional parameter reference (positional parameter zero) and 
intrinsically allows the body to reference the parameters in the call line by the number of 
the position and not by the symbolic name of the position. 


A complete picture of the PROC and MACRO construction compared with the call 
instruction format is shown in Figure 24—2. It shows the format of the heading, body, and 
trailer for each type of macro definition. The rules for coding the model! statements in the 
body are the same for the PROC and MACRO. These rules are: 


= The label field may contain a symbol, a variable symbol, or a sequence symbol, 
depending on the operation defined. Comments statements may not be created by 
substitution for variable symbols. 


= The operation field may contain any machine, assembler, or macroinstruction 
mnemonic code except END, ICTL, or ISEQ. 


= ~=Ejther ordinary symbols or variable symbols may be written in the operand field. The 
size of this field may not exceed 240 characters after substitution. 


= The comments field may contain any combination of characters; however, substitution 
for variable symbols is not performed on this field by the assembler. Comments are 
written in the format of the statement the model represents. 
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= A macroinstruction that is a model statement within a macro definition is called an 
inner macroinstruction, while a macroinstruction in the program source module is 
called an outer macroinstruction. A macroinstruction that appears in a macro 
corresponding to an outer macroinstruction is called a second-level macroinstruction. 
Macroinstructions within macro definitions are nested. The number of levels to which 
macroinstructions may be nested in an assembly depends upon the amount of main 
storage available to the assembler. 


™ Because COPY statements within a macro definition are processed prior to the 
generation of code from a macro definition, they are not considered to be model 
statements nor are they ever processed as such. 


The trailer indicates the end of a macro definition. The mnemonic code END is used in the 
PROC and MEND is used in the MACRO. The /abe/ and operand fields are not used. 


PROC CONSTRUCTION 


LABEL AOPERATIONA OPERAND 
HEADING PROC [58,4 ) 
NAME [pos-0} 


BODY symbol mnemonic-code operands 


&symbol 
symbol 


mnemonic-code operands 


MACRO CONSTRUCTION 


LABEL AOPERATIONA OPERAND 


symbol 
&symbol 
symbol 
















HEADING 








mnemonic-code operands 













mnemonic-code operands 


CALL INSTRUCTION FORMAT 








TRAILER 





A OPERATION A OPERAND 





[symbol] call-name 


[P, Po r-sP oso! 


Figure 24—2. PROC, MACRO, and Call Instruction Comparison 
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& 24.3. PASSING PARAMETERS TO THE BODY 


The discussion of the heading thus far has been from the call instruction design point of 
view, but the heading also establishes a homologous relationship between the call 
instruction and the body. Body references to the values in the call instruction stem from 
the variable symbols used for designing the call instruction. The variable symbols used in 
the heading to represent the /abe/ and operand fields of the call instruction are used as 
arguments in the body to reference the values in the call instruction. Variable symbols in 
the body that directly reference values in the call instruction are called symbolic 
parameters. When you use a symbolic parameter in the body, you are directly referencing 
its associated value in the call instruction and, when you call the definition, the values in 
the call are substituted in place of the symbolic parameters. This call-to-body 
communications cycle is as follows: 


MACRO CALL INSTRUCTION 


| symbot | cattname Perereieds: 


label parameter 
a ana) sitdelenecrl 
symbolic parameter specifications &pos{n) 
&symbol onehey 


value for 


referenced label 
& value for 


referenced parameter 


BODY 


TRAILER 


The heading of the macro definition thus serves not only as the design medium for the 
macro call instruction but also dictates how the arguments in the body are to reference 
the values in the call instruction. Coordination of values and arguments is accomplished 
by using variable symbols in the /abe/-argument and parameter-specifications fields of the 
heading. The variable symbols used in the heading to represent the symbol, and the values 
in the parameter-list, are the variable symbols used in the body to reference the /abe/ and 
operand fields of the macro call instruction. Communications between a macro call 
instruction and a macro definition that is capable of variable parameter replacement is 
shown in Figure 24—3. 
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PROGRAM SOURCE CODE MACRO DEFINITION 





CALLMAC START 0 


BEGIN BALR 6,0 


USING *.6 @ 


F j pl, p2, p3, p4 } heading 
STORE” 5, RAG, BAG, SAG I 


5,R AG 
5, BAG 


5, SAG 


13, SAVE 
AB, CD } trailer 


EF, GH 





LEGEND: 





@ ~~ Call the macro. 
@ _—_ Substitute the parameters. 
@ Inline expansion 


p Variable symbol 


Figure 24—3. Communication between Macroinstruction and Macro Definition 


The following sequence of events occurs when a macro call is issued: The macro facility 
finds the macro definition called upon, matches the parameters given in the call to the 
variable symbols in the heading, and (wherever the body references a variable symbol in 
the heading), plugs the matched value into the body. Then, the body, with the substituted 
parameters, is put in the source program where the macro call instruction appeared. A 
variable symbol in a macro definition body represents either the label in an issued macro 
call instruction or one of the operands in that macroinstruction. 
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When a variable symbol appears as a symbolic parameter in a model statement, it may be 
concatenated (joined) with other variable symbols or characters. Some combinations of 
variable symbols and characters require a period as a separator between the variable 
symbol and the joined character to distinguish where the variable symbol stops and the 
concatenation begins. Other combinations do not require a period as a connector because 
the concatenation is implied by certain characters that are recognized as character string 
terminators. When the period is properly used as a concatenator, it will not appear in the 
generated inline expansion code. The replacement value for the variable symbol and the 
concatenated string appear as one String in the inline expansion code. 


The period must be used to concatenate a character string that immediately follows a 
variable symbol if that character string starts with a letter, digit, left parenthesis, or period. 
Some examples of this are: 


&Z.BC 
&Z.12 
&Z.(5,6) 
&Z..BC 


If the replacement value for the variable symbol &Z is 12, the values generated in the 
inline expansion code would be: 


12BC 

1212 

12(5,6) 

12.BC 
The opposite combination reproduces the intended concatenation period in the inline 
expansion code. If you code a character before a variable symbol, don’t use a period to 
concatenate the character with the variable symbol. The period, in this particular 
combination, is not considered to be a concatenator. A character coded before a variable 
symbol does not have to be concatenated with the variable symbol; the period is 
considered to be part of the character code and is generated as such. Take each previous 
example and switch the variable symbol and the characters: 


BC.&Z 
12.&2 
(5,6).&Z 
BC..&Z 


lf &Z has a replacement value of 12, the following would be generated inline: 


BC.12 
12.12 
(5,6).12 
BC..12 


errr. 
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The period will not be generated, however, if the character coded before the variable 
symbol is contained within quotes. The following is the proper way to concatenate a 
variable symbol prefixed with a character string if the period is used: 





‘BC’.&2Z’ 
12° '&Z’" 
“(5,6)''&2Z’ 
‘BC’ &Z' 


However, it isn’t necessary to concatenate a variable symbol with a prefixed character. If 
you code: 


BC&Z 
12&Z 
(5,6)&Z 
BC.&Z 


and &Z equals 12, then the following would be generated: 


BC12 
1212 
(5,6)12 
BC.12 


You do not need a period after a variable symbol to indicate concatenation, if the variable © 
symbol is followed by another variable symbol or a special character other than a left 
parenthesis or a period. Some examples of this are: 


&A&B 
&A+23 
&AAB 
&A=23 


You could use periods as concatenators in these examples with no adverse side effects. 
lf &A equals TAG and &B equals 1, then the following is generated inline: 

TAG1 

TAG+23 


TAGAB 
TAG=23 
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There are really only two items that you can concatenate with variable symbols: characters 
and other variable symbols. When concatenating variable symbols with variable symbols, 
the period is optional and, when certain combinations of characters are concatenated with 
a variable symbol, the period is necessary. 


Each format uses a different method for coding symbolic parameters to reference 
positional parameters, and this relates back to differences in the parameter-specifications 
between the PROC and MACRO. The PROC specifies positional parameters by indicating a 
variable symbol in operand 1 and the number of positional parameters in the call in 
operand 2. The variable symbol in operand 1 of the PROC statement is the symbolic 
parameter used in the body to reference positional parameters in the call. In addition to 
coding the symbolic parameters, you must also give the position of the parameter in 
parentheses immediately following the symbolic parameter: &pos(n). You do not give a 
positional reference after the symbolic parameter when referencing positional parameters 
in a MACRO body. The MACRO works differently because the prototype statement has to 
give a different variable symbol for every positional parameter in the call. To reference a 
positional parameter from a MACRO body, the symbolic parameter that you use is the 
variable symbol in the prototype statement that represents the desired positional value. 
This means you must keep track of all the variable symbols used to represent positional 
parameters, while with the PROC, you only require one variable symbol for the symbolic 
parameter. However, you can use the system variable symbol (&SYSLIST) in a macro to 
reference by position. (See 26.2.) 


Symbolic parameter references to keyword parameters and symbolic parameter references 
to the label field of the call are the same for the PROC and MACRO. The symbolic 
parameter used to reference a keyword parameter in the call is the &key portion of the 
variable symbol used in the heading to represent the keyword parameter. And the 
symbolic parameter used to reference the /abe/ field of a call instruction is the variable 
symbol used as a /abel-argument in the heading. These symbolic parameters are used the 
same way for both formats because the mechanics for coding them in each heading are 
the same. 


The details of how to use symbolic parameters in model statements in the PROC and the 
MACRO are given in Sections 25 and 26. PROC design of call instructions is encouraged 
because it is easier and because most of the call instructions designed by Sperry Univac 
are PROCs. Model statements using symbolic parameters are shown in Figure 24—4. 
More detailed examples of PROCs and MACROs are given in Section 30. 


UP-8913 SPERRY UNIVAC 0S/3 24-12 
ASSEMBLER 








To write the macro in PROC format: 
Statements LABEL 


Proc 

Name 

Model 13,&TAG(1) 
\ Body 


Heading SrARS 


Mode! 13,&TAG(2) 
Model 13,&TAG(3) 
End \ Trailer 
To call the macro (macro call instruction): 
cAL1 | PAY,RAISE,TOTAL 
Generates this pattern of coding: 
13,PAY 


13,RAISE 
13, TOTAL 


MACRO Format 


To write the macro in MACRO format: 


Statements LABEL AOPERATIONA OPERAND 





Macro 


Prototype &TAG1,&TAG2,&TAG3 
Model 13,&TAG1 
\ Body 


{ Heading 


Model 13,&TAG2 
Model 13,&TAG3 
Mend } Trailer 


To call the macro (macro call instruction): 


CAL2 PAY, RAISE,TOTAL 


Generates this pattern of coding: 


13,PAY 
13,RAISE 
13, TOTAL 





Figure 24—4. Example of MACRO and PROC Definitions 
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25. PROC Format 


25.1. BASIC PROC DESIGN 


The most basic type of PROC that you can design is one that requires no parameters from 
the call, no label, and no positional or keyword parameters in the operand field. All that is 
required is a mnemonic in the operation field. 





A OPERATION A OPERAND 


When this type of call is used, it generates the same sequence of instructions with no 
parameter replacement. The call instruction ADD1 is designed to generate the following 
code every time it is used in a source program: 







A OPERATION A OPERAND 





13,PAY 
13,RAISE 
13, TOTAL 


The design structure of a PROC that accomplishes this type of basic inline expansion is: 


LABEL A OPERATION A OPERAND 


PROC 
call-name NAME 


mnemonic-code operands 


mnemonic-code operands 
END 
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The PROC and NAME statements make up the heading of the PROC and must always be 
coded in the order shown. You use the PROC statement to identify the beginning of a 
macro definition in PROC format and the NAME statement to assign a call-name to the 
PROC. The cal/l-name is coded in the /abe/ field of the NAME statement and is a 1- to 8- 
character symbol (it cannot be a variable symbol) defining the mnemonic operation code by 
which the macro definition may be referenced. The ca//-name must be unique. It may not 
be the same as any Sperry Univac mnemonic operation code or any ca//-name in your own 
library. (The only way that you can duplicate a ca//-name is if you override the established 
call-name with the OPSYM directive. (See 16.2.) 





After the NAME statement is the body that contains the model statement and then the 
trailer, an END statement that indicates the end of the PROC. The model statements in the 
body are the source code statements that are generated when you use the ca//-name in 
your program. If you don’t require parameter replacement, the model statements could be 
any BAL instruction, assembler directive, or call instruction except END, ICTL, or ISEQ. 


The model statements for the ADD1 call are the BAL instructions that are generated every 
time ADD1 is used. A completely designed ADD1 PROC is as follows: 






A OPERATION A OPERAND. 





13,PAY 
13,RAISE 
13, TOTAL 





Although the basic PROC design that accomplishes direct instruction substitution saves 
the programmer time and effort, the most valuable role of the macro definition in BAL is 
variable parameter replacement. Variable parameter replacement allows you to vary the 
value of the /abel, operation, or operand field of any model statement by using the 
parameters submitted with each call. This means that you can design the ADD1 example 
PROC so that it accepts values from the call line and replaces the PAY, RAISE, and TOTAL 
operands of the model statements with the call line values. To accomplish parameter 
replacement in model statements, you indicate the fields that are variable by using 
symbolic parameters. 


The symbolic parameter is the type of variable symbol used to indicate variable parameter 
replacement directly from the call line to the body. You can use symbolic parameters in 
the /abel, operation, or operand field of model statements to indicate parameter 
replacement. If you wanted the PAY, RAISE, and TOTAL operands of the ADD1 example to 
be variable, you would code symbolic parameters for those operands. The symbolic 
parameters in the model statements reference the values in the call through the PROC 
statement, and no symbolic parameter may be used in a model statement unless it also 
appears in the PROC statement. The value referenced in the call line replaces the symbolic 
parameter, and the manner in which you reference the parameters in the call depends on 
the kinds of parameters you design the call to have. 
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As shown in Figure 22—1, comments or instructions within a PROC call will be shifted 
one space beyond the last operand when they are assembled. This permits a maximum 
amount of space for comments on instructions that generate variable symbols. 


25.2. REFERENCING POSITIONAL PARAMETERS IN THE CALL 


You can define the call to submit values to the PROC body via positional parameters. This 
is done by indicating a variable symbol in operand 1 of the PROC statement and by 
indicating the total number of positional parameters that can appear in the call in operand 
2 of the PROC statement: 





A OPERATION A OPERAND 


The &pos variable symbol is the symbolic parameter used in the body of the PROC to 
reference positional parameters in the call instruction. Following the symbolic parameter is 
a decimal number in parentheses (&pos(n)) that references the positional parameter in the 
call. For instance: 


&pos(1) references. positional parameter 1 in the call. 
&pos(2) references positional parameter 2 in the call. 
&pos(3) references positional parameter 3 in the call. 


You can reference a positional parameter from the /abel, operation, or operand field of a 
model statement, and the value coded in the referenced position in the call line is 
generated in place of the symbolic parameter. If an omitted positional parameter is 
referenced, a null character string is generated in place of the symbolic parameter that 
made the reference. The following example shows the PROC source code and inline 
expansion code for an ADD2 call instruction that is designed to submit three positional 
parameters. 


PROC SOURCE CODE CALL INSTRUCTION 


ADD2 450,40, TOTAL 


13,=F'&TAG(1)’ INLINE EXPANSION CODE 


13,=F'&TAG(2)' 

13,&TAG(3) L 13,=F'450° 
A 13,=F'40 
ST  13,TOTAL 
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Operand 1 of the PROC statement indicates the variable symbol &TAG is used as the 
symbolic parameter reference in the body, and operand 2 indicates that there can be three 
positional parameters in the call. The NAME statement assigns the ca//-name ADD2 as the 
mnemonic to call the PROC. The body is a model for a procedure that adds two numbers 
and stores the result in a main storage location. The two numbers are picked up from 
positional parameter 1 of the call instruction, which is someone’s pay, and positional 
parameter 2, which is their raise. The main storage location is picked up from positional 
parameter 3 of the call instruction. (One of the requirements for using this call instruction 
is that the user supply a DS statement with a symbo/ the same as that of positional 
parameter 3 for the PROC to store the result.) The first model statement is a /oad 
instruction that uses a variable symbol in operand 2 to reference positional parameter 1 in 
the call instruction. The PROC generates the /oad instruction with a full-word fixed-point 
literal value of 450 in operand 2. The add instruction is generated with a 40 in operand 2, 
and the main storage address TOTAL is generated in operand 2 of the store instruction. 





25.3. REFERENCING KEYWORD PARAMETERS IN THE CALL 


Instead of having the call submit values to the PROC body via positional parameters, you 
can use keyword parameters. This is done by using keyword parameter variable symbols 
starting in operand 3 of the PROC statement. Commas are used in operands 1 and 2 to 
indicate there are no positional parameters in the call (and key is the keyword name): 





AOPERATIONA OPERAND 





Since a variable symbol can only be eight characters long and we've used two positions 
with the ampersand and equal sign, the keyword name portion of the variable symbol can 
only be six characters long. But the keyword name in the call can exceed six characters 
and still be accepted by the PROC. However, anything after six characters is ignored by the 
PROC; it recognizes only the first six characters as the true keyword name. 


The symbolic parameter used in the body of the PROC to reference keyword parameters in 
the call is the variable symbol indicated in the PROC statement, without the equal sign 
(&key). 
For instance: 

&PAY references keyword parameter PAY=value in the call. 


&RAISE references keyword parameter RAISE=value in the call. 


&SAVE references keyword parameter SAVE=value in the call. 
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You can reference a keyword parameter from the /abel, operation, or operand field of a 
model statement, and the value after the equal sign in the call line will be generated in 
place of the symbolic parameter. The following example shows the PROC source code and 
inline expansion code for an ADD3 call instruction that is designed to submit three 
keyword parameters: 


PROC SOURCE CODE CALL INSTRUCTION 


ADD3 PAY=450,RAISE=40,SAVE=TOTAL 


INLINE EXPANSION CODE 












PROC ,,&PAY=,&RAISE=,&SAVE= 










ADD3. NAME 





L 13,=F’&PAY’ 
A 13,=F’&RAISE’ 
ST 13,&SAVE 







13,=F‘450° 





13,=F’40° 
13, TOTAL 





Operands 3 through 5 of the PROC statement indicate that there can be three different 
keyword parameters in the call with the keyword names of PAY, RAISE, and SAVE. The 
NAME statement assigns the ca//-name ADD3 as the mnemonic to call the PROC. (The 
body of this PROC is designed to perform the same function as the ADD2 example PROC.) 
The symbolic parameter &PAY in operand 2 of the first model statement references the 
keyword parameter PAY in the call, and since PAY=450, the value 450 is substituted in 
operand 2 of this model statement. The same processing takes place with symbolic 
parameters &RAISE and &SAVE. 


You can design a PROC so that a preselected value is generated for a symbolic parameter 
that references an omitted keyword parameter in the call. Otherwise, symbolic parameters 
that reference omitted keyword parameters receive the value of a null character string. 
The default value for a keyword parameter is coded after the equal sign of the variable 
symbol in the PROC statement. 


The following example shows a PROC with a default value indicated in the PROC 
statement: 


PROC SOURCE CODE CALL INSTRUCTION 


PROC ,,&PAY=,&RAISE=40,&SAVE= ADD4 = PAY=490,SAVE=TOTAL 
ADD4 NAME 
INLINE EXPANSION CODE 


L 13,=F’&PAY’ 
A 13,=F’&RAISE’ 
13,&SAVE 







13,=F’490° 


13,=F‘40’ 
13, TOTAL 





The call instruction doesn’t use the RAISE keyword parameter so the default value of 40 
indicated in the PROC statement is generated in the inline expansion code. 
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Another type of PROC is one with mixed-mode parameters. This PROC is designed to 
accept both positional and keyword parameters from the call. The format of the PROC 
statement for designing mixed-mode calls is: 









AOPERATION A OPERAND 


&pos,n,&key , =,...,&key,, = 


We could design the ADD4 example PROC to have the call submit the &PAY symbolic 
parameter as a positional parameter and the &SAVE and &RAISE symbolic parameters as 
keyword parameters, with RAISE having a default value of 40: 


PROC SOURCE CODE CALL INSTRUCTION 


ADDS 530,SAVE=TOTAL 


INLINE EXPANSION CODE 













L 13,=F‘&PAY (1) 
A 13,=F’&RAISE’ 
ST 13, &SAVE 












L 13,=F’530° 
A 13,=F’40 
ST = 13, TOTAL 





The following example shows what happens if you have a default value indicated in the 
PROC statement and submit a value for the keyword in the call instruction; the value in 
the call overrides the value in the PROC heading: 


PROC SOURCE CODE CALL INSTRUCTION 


ADDS _530,SAVE=TOTAL,RAISE=60 


INLINE EXPANSION CODE 















13,=F’PAY(1)’ 
A 13,=F’&RAISE’ 
13, &SAVE 











L 13,F ‘530° 
A 13,=F'60’ 
ST 13, TOTAL 
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@ 25.4. REFERENCING SUBPARAMETERS IN THE CALL 


Another way to generate values in a field of a model statement is by referencing values in 
a parameter sublist. The parameter sublist is a list of subparameters that are subordinate 
to either a positional or keyword parameter. When you use a sublist, you can submit 
multiple parameter values from a single operand in the call. No coding is required in the 
PROC statement to support a sublist in a call line. It is a matter of referencing the sublist 
from a model statement by using a symbolic parameter with a sublist reference. The 
symbolic parameter reference to a subparameter in a positional parameter sublist is: 


&pos(n,x) 
where: 
&pos 


Is the variable symbol used in operand 1 of the PROC statement to represent 
positional parameters. 


n 
Is the number of the positional parameter in the call. 
x 
Is the position of the subparameter in the sublist. (All subparameters are 
@ referenced by position.) 


Sublists for positional parameters must be coded within parentheses in the operand field 
of the call: 


Pigs Pisa PiglalPoiePan) 
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The following example shows a PROC referencing a positional parameter sublist in the call 
line: 


PROC SOURCE CODE CALL INSTRUCTION 









ADD7 450, (40,TOTAL) 










L 13,=F’&TAG(1)' 
A 13,=F’&TAG(2,1)’ 
ST 13,&TAG(2,2) 


INLINE EXPANSION CODE 


L -13,=F'450" 
A 13,=F'40’ 


ST 13, TOTAL 





The symbolic parameter reference to a subparameter in a keyword parameter sublist is: 
&key(x) 
where: 
&key 
Is the variable symbol in the PROC statement. 
Is the number of the position of the subparameter in the sublist. 


Sublists for keyword parameters must be coded within parentheses after the equal sign in 
the operand field of the call: 


Ky =(D1,---P x deer p=(P1,---Px) 
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The following example shows a PROC referencing a keyword parameter sublist in the call 
line: 


PROC SOURCE CODE CALL INSTRUCTION 







L 13,=F’&PAYRAS(1)’ 
A 13,=F’&PAYRAS(2)‘ 
ST 13,&SAVE 


13,=F'450° 


13,=F’40’ 
13, TOTAL 





In addition to having the individual subparameters in a call generated in model statements, 
you can have the entire sublist generated. You do this by referencing the positional or 
keyword parameter with no reference to its subparameters. Simply use the symbolic 
parameter as you normally would reference a keyword or positional parameter; its 
associated sublist, including the parentheses, will be generated. If a SET symbol appears 
in the operand entry of a macroinstruction, attribute information is not provided and the 
operand may not be accessed as a Sublist. 


25.5. MULTIPLE PROC NAMES AND POSITIONAL PARAMETER 0 


The split heading characteristic of the PROC permits another means of parameter 
modification. The parameter value is submitted by varying the mnemonic name in the 
operation field of the call. You can design a PROC so it may be called by many mnemonic 
names, and each name represents a different parameter value. This is easily done in the 
PROC because the NAME statement separates the ca//-name from the parameters in the 
PROC statement and therefore leaves the operand field of the NAME statement open for 
use. The PROC utilizes the operand field of the NAME statement for assigning a value to 
the call-name: 








A OPERATION A OPERAND 


call-name 
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pos-O can be a decimal or alphanumeric value but it cannot be a variable symbol. The value 
in the operand field of the NAME statement is referenced as positional parameter O by using 
the same symbolic parameter you indicated in operand 1 of the PROC statement (&pos(0)). 
You can vary the value for positional parameter O by using multiple NAME statements. Each 
NAME statement has a different ca//-name and a value in the operand field for positional 
parameter O. A symbolic parameter referencing positional parameter O receives the pos-O 
value from the NAME statement whose cal//-name is used in the operation field of the call. 
All NAME statements must appear directly after the PROC statement and before any model 
statements, including comments. 





We could design the ADD2 example PROC to have several different ca//-names and, each 
time a different ca//l-name is used, the Poulter number for operand 1 of the model 
statements is changed: 


CALL INSTRUCTION 1 


ADD9 450,40,TOTAL 











INLINE EXPANSION CODE 


13,=F'450" 
13,=F'40' 
13,TOTAL 


PROC SOURCE CODE 





CALL INSTRUCTION 2 


ADD10 450,40,TOTAL 





L &TAG(0),=F’&TAG(1)’ 
A &TAG(0),=F’*&TAG(2)’ 


ST  &TAG(0),&TAG(3) INLINE EXPANSION CODE 


12,=F’450° 
12,=F’40' 
12, TOTAL 





CALL INSTRUCTION 3 


ADD11 =450,40, TOTAL 


INLINE EXPANSION CODE 


11,=F'450’ 
11,=F'40 


11,TOTAL 
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25.6. THE LABEL ARGUMENT 


The /abel-argument is used to reference the symbol coded in the /abe/ field of a call 
instruction. To establish a /abe/-argument, you must code a variable symbol in the /abe/ 
field of the PROC statement. The format of the PROC statement with a /abe/-argument is 
as follows: 






A OPERATION A OPERAND 


&pos,n,&key, =,... key = 


The variable symbol that is coded in the /abe/ field of the PROC statement is used as the 
reference to the symbol in the /abe/ field of the call instruction. This variable symbol is 
used to take the label field from a call instruction and generate it in a model statement. 
Any model statement can have a /abe/-argument. A label-argument is useful when you 
use a label in a PROC and you expect several copies of the inline expansion code to be in 
one program. The user can change the name of the label by changing the symbol in the 
label field of the call. 


The following PROC uses a /abel-argument. The purpose of this PROC is to add the 
number of salaries indicated in positional parameter 1 and located where indicated by 
keyword parameter RAISE. The results are stored in the location indicated by keyword 
parameter TOTAL, and control is returned to the user program at the location indicated by 
keyword parameter OUT. 


CALL INSTRUCTION 


















GROUP1 PLUS 


PROC SOURCE CODE 


4,PAY=PAY 1,RAISE=RAISE1,TOTAL=TOTAL1,OUT=EXEMPT 





INLINE EXPANSION CODE 






8,&PAY 
LA  9,&RAISE 
LA 10,&TOTAL 

&LABEL L 13,08) 
















8,PAY1 
LA 9,RAISE1 
LA 10,TOTAL1 

GROUP? L 13,0(8) 











A 13,0(9) A 13,0(9) 
ST — 13,0(10) ST — 13,0(10) 
A 12,=F'1' 12,=F'1' 
c 12,=F‘&COUNT’ 12,=F'4’ 


C 8&OUT 
8=F'4" 


B C  8,EXEMPT 
A 

A 9=F‘4! 

A 

B 


A 
c 
B 
A 8=F'4 
A 
A 
B 






g=F'4" 
10,=F'4’ 
GROUP1 





10,=F'4’ 
&LABEL 
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26. MACRO Format 


26.1. BASIC MACRO DESIGN 


A basic MACRO does not perform variable parameter substitution and, therefore, does not 
require any values to be passed from the call instruction. The design structure of a 
MACRO that accomplishes this type of basic inline expansion is: 









A OPERATION A OPERAND 






MACRO 
call-name 
mnemonic-code 






operands 









mnemonic-code operands 


MEND 





The statements in a MACRO must always be coded in the order shown. First is the 
MACRO statement which indicates the beginning of a macro definition in MACRO format. 
Next is the prototype statement, which is where you code the ca//-name. Then, you code 
the model statements, which can be any BAL instruction, assembler directive, or call 
instruction except END, ICTL, or ISEQ. The last statement in a MACRO is the MEND 
statement, which indicates the end of the definition. 


If we take the ADD1 PROC shown in Section 25 and design an ADD1 MACRO, it appears 
as follows: 








A OPERATION A OPERAND 









LABEL 





13,PAY 
13,RAISE 
13, TOTAL 


UP-8913 SPERRY UNIVAC OS/3 26-2 
ASSEMBLER 





The ADD1 example MACRO produces the same inline expansion code as the ADD1 @ 
example PROC: 











LABEL A OPERATION A OPERAND 








13,PAY 
13,RAISE 
13, TOTAL 


As shown in Figure 22—1, comments on instructions within a MACRO call will be shifted 
one space beyond the last operand when they are assembled. This permits a maximum 
amount of space for comments on instructions that generate variable symbols. 


26.2. REFERENCING POSITIONAL PARAMETERS IN THE CALL 


Designing a MACRO to reference positional parameters in the call is a little different from 
the way it is done in the PROC. In MACRO design, the prototype statement must indicate 
a variable symbol for each positional parameter to be coded in the call. Positional 
parameter variable symbols are coded in the prototype statement as follows: 







A OPERATION A OPERAND 





call-name &pos, r++ SPOS, 


The variable symbol representing a positional parameter in the call is used as the symbolic 
parameter to reference that positional parameter. You can reference a_ positional 
parameter from the /abel, operation, or operand field of a model statement, and the value 
coded in the referenced position in the call is generated in place of the symbolic 
parameter. If an omitted positional parameter is referenced, a null character string is 
generated in place of the symbolic parameter that made the reference. 


The following example shows the ADD2 example PROC given in Section 25 recoded in 
MACRO format: 


MACRO SOURCE CODE CALL INSTRUCTION 


ADD2 450,40,TOTAL 


INLINE EXPANSION CODE 












13,=F’&PAY’ 
A 13,=F'&RAISE’ 
13,&TOTAL 13,=F'450’ 
A 13,=F’40' 

13, TOTAL 
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You can also reference the positional parameter values in the call by position rather than 
by using the symbolic parameters coded in the prototype statement. To do this, you must 
use the system variable symbol &SYSLIST. Instead of coding the positional parameter 
variable symbol for the symbolic parameter reference, you code: 


&SYSLIST(n) 


where: 


Is the number of the positional parameter in the call and can be an expression that 
is a self-defining term or a SETA symbol. (SETAs are discussed in Section 27.) 


If you miscount the positional parameter string in the call and n is greater than the actual 
number of parameters that are supposed to be in the call, then a null character string is 
generated in place of &SYSLIST(n). When you use &SYSLIST, it isn’t necessary to have 
positional parameter variable symbols in the heading. &SYSLIST references the call 
instruction, not the heading. The function of &SYSLIST is to provide the MACRO designer 
with the option to reference positional parameters by position, similar to the way it is done 
in the PROC. However, &SYSLIST does not allow you to reference keyword parameters by 
position as you could do in the PROC. In the PROC, you could use &pos(n+1) and continue 
right on through into the keyword parameters in the parameter-list. This won’t work with 
&SYSLIST because &SYSLIST only references positional parameters. 


The following example shows the ADD2 example MACRO redesigned with &SYSLIST 
symbolic parameter references: 


MACRO SOURCE CODE CALL INSTRUCTION 


ADD2 450,40,TOTAL 


INLINE EXPANSION CODE 


13,=F’&SYSLIST(1)’ 


13,=F’&SYSLIST(2)' 

13,&SY SLIST(3) 13,=F'450° 
13,=F'40' 
13, TOTAL 





rr 
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26.3. REFERENCING KEYWORD PARAMETERS IN THE CALL 


The MACRO references keyword parameter values in the call in the same way as the 
PROC. A keyword parameter reference is made by a symbolic parameter that consists of 
the &key portion of the keyword variable symbol. If the call is to have only keyword 
parameters, the prototype statement is coded as follows: 







A OPERATION A OPERAND 


call-name 






You can reference a keyword parameter from the /abel, operation, or operand field of a 
model statement and the value after the equal sign in the call will be generated in place of 
the symbolic parameter. 


The following is the ADD3 example PROC, shown in Section 25, recoded in MACRO 
format: 


MACRO SOURCE CODE CALL INSTRUCTION 


ADD3 PAY=450,RAISE=40,SAVE=TOTAL 


INLINE EXPANSION CODE 





13,=F'&PAY' 


13,=F’&RAISE’ 
13,&SAVE 13,=F'450' 


13,=F'40' 


13, TOTAL 





If you want any of the keyword parameters in the call to have a default value, you code 
that value after the equal sign of the keyword variable symbol in the prototype statement. 
Whenever a keyword parameter in the call is omitted, the symbolic parameter receives the 
value given the keyword variable symbol. A symbolic parameter referencing a keyword 
parameter that doesn’t have a default value receives the value of a null character string. 


To design a MACRO that references positional and keyword parameters in the call, you 
code the positional symbolic parameters before the keyword symbolic parameters in the 
prototype statement. The prototype statement for a mixed-mode MACRO is as follows: 


LABEL A OPERATION A OPERAND 


call-name &pos, ,...,2pos, key, =,...,key, = 
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The following example shows the ADD5 example PROC, shown in Section 25, redesigned 
in MACRO format: 


MACRO SOURCE CODE CALL INSTRUCTION 


4 ADDS 530,SAVE=TOTAL | 


INLINE EXPANSION CODE 





13=F’&PAY’ 
13,=F’&RAISE’ 


L 13,=F’530’ 
A 13,=F'40' 


13,&SAVE 


ST 13, TOTAL 





26.4. REFERENCING SUBPARAMETERS IN THE CALL 
Like the PROC, the MACRO does not require support from the heading to use sublists in 
the call. It is a matter of referencing the sublist from a model statement by using a 
symbolic parameter or &SYSLIST with a sublist reference. The &SYSLIST reference to a 
subparameter in a positional parameter sublist is: 

&SYSLIST(n,x) 


where: 


n 
Is the number of the positional parameter in the call. 


Is the number of the subparameter in the sublist. 


The following example shows the ADD7 example PROC, shown in Section 25, recoded in 
MACRO format: 


MACRO SOURCE CODE CALL INSTRUCTION 


igi Gas 
ADO7 450, (40,TOTAL) 


INLINE EXPANSION CODE 













13,=F'&PAY’ 
A 13,=F'&SYSLIST(2,1)’ 
13,&S Y SLIST (2,2) 











L 13,=F'450° 
A 13,=F‘40' 
st 13, TOTAL 


er 
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The symbolic parameter reference to a subparameter in a keyword parameter sublist for a @ 
MACRO is the same as for the PROC: 


&key(x) 
where: 
&key 
Is the variable symbol in the prototype statement. 
Is the number of the subparameter in the sublist. 


The following example shows the ADD8 example PROC, shown in Section 25, redesigned 
in MACRO format: 


MACRO SOURCE CODE CALL INSTRUCTION 


ADD8 PAYRAS=(450,40),SAVE=TOTAL 


INLINE EXPANSION 
13,F‘&PAYRAS(1)' ANSION CODE 


13,F‘&PAYRAS(2}' 

13,&SAVE 13,=F450' 
13,=F'40’ 
13, TOTAL 





If you reference a positional or keyword parameter with a sublist and do not include a 
reference to a subparameter within the list, you will generate the entire sublist, including 
parentheses, in place of the symbolic parameter. The same thing happens in a PROC. If a 
SET symbol appears in the operand entry of a macroinstruction, attribute information is 
not provided and the operand may not be accessed as a sublist. 


26.5. THE LABEL ARGUMENT 


The label argument for a MACRO is used the same way it is used in the PROC. To 
establish the label-argument, you must code a variable symbol in the label field of the 
prototype statement. The format of the prototype statement with a label argument is as 
follows: 







A OPERATION A OPERAND 


&symbol call-name &pos, po++ tPOS,, key, =,... Skey, = 
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@ The following MACRO uses a label argument. This example MACRO is the PLUS example 
PROC recoded in MACRO format (25.6). 


GROUP1 PLUS 


PROC SOURCE CODE 


CALL INSTRUCTION 
















4,PAY=PAY1,RAISE=RAISE1, TOTAL=TOTAL 1,OUT=EXEMPT 





INLINE EXPANSION CODE 









8,&PAY 














8,PAY1 























LA 9,&RAISE LA 9,RAISE1 

LA 10,&TOTAL LA 10,TOTAL1 
&LABEL L 13,0(8) GROUP1 oL 13,0(8) 

A 13,0(9) A 13,0(9) 

ST 13,0(10) ST —_13,0(10) 

A 12,=F'1" A 12=F'1' 

c 12,=F’&COUNT’ c 12,=F'4’ 

BC 8,20UT BC 8,EXEMPT 

A 8,=F'4’ A 8,=F'4’ 

A 9,=F'4’ A 9,=F'4' 

A 10,=F‘4’ A 10,=F'4' 

B &LABEL B GROUP? 
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Conditional assembly statements are used to control the pattern of coding generated 
within a macro definition, and to define and assign values to set symbols that can be used 
to vary parts of generated statements. Conditional assembly statements are used by the 





27. Conditional Assembly 


programmer to direct the asssembler to: 


exclude lines of code from the assembler output; 


include a set of lines more than once in the assembly output; or 


establish and alter values to determine whether a set of lines should be included in 


the output listing. 


Table 27—1 lists the function of each conditional assembly statement. 


Table 27—1. Conditional Assembly Language Statements (Part 1 of 2) 


ACTR Sets a conditional assembly loop counter Branching 


An unconditional branch 


AIF A conditional branch 

*AIFB 

ANOP Provides a branch destination point for a location 
*LABEL that already contains a symbol or variable symbol 
MEXIT Stops processing of macro definitions 


Defines starting point of the code and the number of 
times it is to be generated 


| ENDO | Defines the end of the code to be repeated 


MNOTE Generates messages in macro definitions or program Used for generating messages 
PNOTE source code 






















Used for defining the range 
for repetitive code 
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Table 27—1. Conditional Assembly Language Statements (Part 2 of 2) 


eT 
LCLA Declares an arithmetic local set symbot 
ae 


SETA Assigns an arithmetic value to a set symbo! 
SETB Assigns a binary value of 0 (false) or 1 (true) 
to a set symbo! 


SETC Assigns a character value to a set symbol 


*Alternate mnemonic 










Used for declaring set symbols 
that are to be used only inside 
the macro definition that is 
declaring the set symbol 





















Used for declaring set symbols 
that are to be used not only in 
the macro definition in which. the 
set symbol! is declared but also 
outside the macro definition in 
other macro definitions 















Declares a character global set symbol 













Assigns an arithmetic or character string value 
to a set symbol! 


Used to assign values to arithmetic, 
Boolean, or character set symbol 








27.1. SET SYMBOLS 


Set symbols are a type of variable symbol (Appendix G). The rules for writing set symbols 
are the same as for other variable symbols: 


= An ampersand (&) is followed by an alphabetic character followed by up to six 
additional characters (total maximum characters is eight). 


= = If the ampersand is omitted, the assembler interprets the character string as a symbol 
and not as a set symbol. 


The following are valid set symbols: 
&C 


&A1 
&PARAM 
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@ The following are not valid set symbols for the reasons stated: 


CAT 
Valid for an ordinary symbol but not as a set symbol; no leading ampersand. 


&1 
First character after & is not alphabetic. 


&S12345678 
There are too many characters in the string (maximum length, including &, is 
eight characters). 


Because set symbols are evaluated in the macro generation phase of the assembler, they 
may be used as counters, switches, or values to control the sequence of code generated. 
Unlike an ordinary symbol, the value assigned to a set symbol may be altered during 
assembly. 


A set symbol may be either global or local. A global set symbol, once declared and given a 
value by a SET statement, retains the same value until that value is changed by another 
SET statement. A local set symbol is defined only within the macro definition in which it is 
declared. The value of a local set symbol within one macro definition is not affected by the 
declaration of either a global or local set symbol with the same name in another macro 
definition. 


@ Set symbols must be declared after macro prototype or NAME statements and before being 
referenced. 
27.1.1. Local Set Symbols 
A local set symbol is available for use only in the macro definition in which it is declared. 
Four statements are available for declaring local set symbols. The declarative chosen 
determines the values to which the set symbol may be set and the type of SET statement 


used to assign the values. 


The basic format for a local set symbol declaration is: 







A OPERATION A OPERAND 


unused 


2 
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where: 

LCL 

Declares a general-purpose local set symbol. 
LCLA 

Declares an arithmetic local set symbol. 
LCLB 

Declares a Boolean local set symbol. 
LCLC 

Declares a character local set symbol. 
$1,S2,....S, 


Are set symbol names. 


The operand field of the local set declaration may contain one or more set symbol names. 
A local symbol is considered defined when declared. A set symbol declared by an LCLA or 
LCLB statement is assigned an initial value of zero. 


A set symbol declared by an LCLC or LCL statement is assigned an initial value of a null 
character string. 








Examples: 
LABEL AOPERAT 1ONA OPERAND 
l 10 16 
1. LCLA &A,&B 
2. LCLB &BIG 
3. LCLC &B1G3 


1. Declares arithmetic local set symbols &A and &B. 


2. Declares a Boolean local set symbol &BIG. 


3. Declares a character local set symbol &BIG3. 
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® 27.1.2. Global Set Symbols 


Global set symbols are initialized only once and are used to pass values back and forth 
between macro definitions. A global set symbol is available to all macro definitions in 
which it is also declared. 


Four statements are available for declaring global set symbols. The declarative chosen 
determines the range of values to which the set symbol may be set and the type of set 
statement used to assign the values. 


The basic format for a global symbol declaration is: 







OPERAND 





A OPERATION A 





unused 


where: 
GBL 
@ Declares a general-purpose global set symbol. 
GBLA 
Declares an arithmetic global set symbol. 
GBLB 
Declares a Boolean global set symbol. 
GBLC 
Declares a character global set symbol. 
$1 ,S9,+--,Sn 


Are set symbol names. 


The operand field of the global set declaration may contain one or more set symbols. A 
global set symbol is considered defined when declared. It is initialized only once; that is, 
the first time it is declared. With subsequent declarations in other contexts, the global set 
symbol is available for use but is not reinitialized. A set symbol must be declared before it 
is available for use. A set symbol declared by a GBLA or GBLB statement is assigned an 
initial value of zero. A set symbol declared by a GBLC or GBL statement is assigned an 
initial value of a null character string. 


if a set symbol is declared as a global set symbol in more than one macro definition, it 
must be declared with the same statement code in each macro definition. 
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ASSEMBLER 
Examples: 
LABEL AOPERAT 1ONA OPERAND 
1 10 16 
1. GBL &BR 
2. GBLA &SET1,&SET2 
3. GBLB &BUT 
h, GBLC &GLB 


1. Declares a general-purpose global set symbol. 


2. Declares arithmetic global set symbols. 
3. Declares a Boolean global set symbol. 


4. Declares a character global set symbol. 


27.1.3. Set Symbol Value Assignment 


Four statements are provided to assign values to set symbols: SETA, SETB, SETC, and 
SET. The statement used depends on the statement chosen to declare the set symbol. 


= SETA ® 
Assigns values to set symbols declared in either LCLA or GBLA. 

= SETB 
Assigns values to set symbols declared in either LCLB or GBLB. 

w SETC 
Assigns values to set symbols declared in either LCLC or GBLC. 

= SET 


Assigns values to set symbols declared in either LCL or GBL. 
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27.1.4. SET Statement 


The SET statement can be used to assign either an arithmetic or character string value to 
a variable symbol declared by an LCL or GBL statement. 


The format of the SET statement is: 





A OPERATION A OPERAND 





where: 
&s 
Is a set symbol declared by LCL or GBL. 
SET 
Defines the operation. 
a 
Is a valid arithmetic expression. 
c 


Is a valid character expression. 


When the operand of the SET statement contains an arithmetic expression, the value of 
the expression may range from —2?23 to +223—1. When the operand of the SET statement 
contains a character expression, the maximum length that may be specified is eight 
characters. 


lf a SET variable symbol is assigned a character value, a reference to the SET symbol 
yields the same result as a reference to a SETC symbol assigned the same character 
value. Similarly, if a SET variable symbol is assigned an arithmetic value, a reference to 
the SET symbol yields the same result as a reference to a SETA symbol assigned the same 
value. A SET variable symbol with a character value may be reassigned an arithmetic 
value, and vice versa. 


A SET expression is a SETA expression allowing the use of the operators ><, */,//,=,**, 
— —, and ++ in the SET expression when an arithmetic operator is valid. The two 
characters ** represent the logical product AND, the two characters ++ represent the 
logical sum OR, and the two characters — — represent the logical difference XOR. 


UP-8913 
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Each bit of the first term is compared with its corresponding bit in the second term, and 
the result of the comparison is placed in the corresponding position in the resulting term. 
The result of the bit comparison for each operator is: 





where: 





1 
1 
1 
18) 


The three relational operators are the equal (=) operator, the greater than (>) operator, 
and the less than (<) operator. 


Compares the value of two terms or expressions. If the two values are equal, the 
assembler assigns a value of 1 to the expression. If the values are not equal, a 
zero value is assigned. 


Compares two terms or expressions. If the value of the first (left) term is greater 
than the value of the second (right) term, a value of 1 is assigned to the 
expression. If the value of the second term is greater than the value of the first 
term, a zero value is assigned. 


Compares the value of the first (left) expression or term with the second (right) 
expression or term. If the value of the first expression or term is less than the 
value of the second, a value of 1 is assigned to the expression. If the value of the 
second expression or term is less than the value of the first, a zero value is 
assigned. 


Given the expression A+B>C, if the expression A+B has a greater value than the value of 
C, the assembler assigns a value of 1 to the expression. If the value of C is greater than 
the value of A+B, a zero value is assigned. 


Since the value of a relational character or logical expression is arithmetic, the expression 
may be used as a term in an arithmetic expression. 


Operator priority is shown in Table 27—2. 
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Table 27—2. Operator Priority 


[Operator | Herarchy | 





Examples: 
LABEL AOPERATIONA OPERAND 
| 10 16 
1.| SARK SET ‘ANIM! 
2.1 &NUM SET 6 





1. The SET symbol &ARK is assigned the value of ANIM. 


2. The SET symbol &NUM is assigned the value of 6. 


27.1.5. SETA Statement 


The SETA statement assigns an arithmetic value to a variable symbol that was declared by 
an LCLA or GBLA statement. 


The format of the SETA statement is: 





AOPERATION A OPERAND 


where: 


&s 


Is a set symbol declared by either LCLA or GBLA. 


SETA 
Defines the operation. 


Is a valid SETA term or an arithmetic combination of valid SETA terms. 
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A valid SETA term is: 





s a self-defining term; 
= a variable symbol with an arithmetic value; or 
= a character value consisting of one to eight decimal digits. 


The arithmetic operators used in writing SETA expressions are +, —, *, and /. The 
expression may not begin with an operator. Two operators or two terms may not succeed 
one another. 


The rules of precedence for the evaluation of a SETA arithmetic expression are the same 
as stated in Table 27—2. The value of a SETA expression may range from —2?3 to 223—1. 


When the SETA symbol is used in an arithmetic expression, the arithmetic value of the 
symbol! is substituted for the symbol. If the SETA symbol is used in another context, the 
arithmetic value of the SETA symbol is converted to an unsigned decimal integer with 
leading zeros removed. This decimal value is then substituted for the SETA symbol. If the 
value of the SETA symbol is zero, a single zero is substituted. 


Examples: 
LABEL AOPERATIONA OPE RAND 
] 10 16 








1.] &ART SETA 5 
2.{ &LOC SETA 7 
3.1 HER SETA &ART+&L0C 


1. The SETA symbol &ART is assigned a value of 5. 
2. The SETA symbol &LOC is assigned a value of 7. 


3. The SETA. symbol &HER is assigned a value of 12. 


27.1.6.. SETB Statement 


The SETB or set Boolean value statement may be used to assign a binary value of zero or 
one to a variable symbol which was declared by an LCLB or GBLB statement. The format 
of the SETB statement is: 





AOPERATION A 
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where: 


&s 
Is a-set symbol declared in either LCLB or GBLB. 


SETB 
Defines the operation. 


Is a valid logical expression that must be enclosed in parentheses or a O or 1 
enclosed in parentheses. 


The logical expression in the operand field may have a value of either O (false) or 1 (true), 
and the set symbol specified in the name field of the set statement is assigned the 
resultant binary value. The logical expressions may consist of a single term or logical 
combination of terms. 


The permissible terms are: 

= a SETB arithmetic relational expression; 

# a SETB character relational expression; and 

= a SETB symbol. 

The SETB logical operators that may be used to combine the terms are AND, OR, and NOT. 
The logical expression must not contain two terms in succession. Two operators may 
appear in succession if the first operator is either AND or OR, and the second operator is 
NOT. Only the operator NOT is allowed prior to the first term of the expression. 

A SETB arithmetic relational expression consists of two arithmetic expressions. connected 
by a SETB relational operator. A SETB character relational expression consists of two 


character strings connected by a SETB relational operator. The SETB relational operators 
are: , 


e NE 

Not equal 
# EQ 

Equal 
« LT 


Less than 
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i 


=» LE 





Less than or equal 
= GT 
Greater than 
=m GE 
Greater than or equal 


The arithmetic expression that may be used as a term in the SETB arithmetic relational 
expression is defined under the SETA statement. The rules under the SETC statement 
define the format of the character string that may be used in a SETB character relational 
expression. If two character strings are of unequal length, the shorter will always compare 
less than the longer, regardless of actual value. The maximum length of character strings 
that may be compared is 127 characters. 


In writing SETB expressions, the SETB relational or logical operators must be preceded 
and followed by at least one blank or other special character. The relational expression 
may be optionally enclosed in parentheses. 


The procedure for evaluating a SETB expression is: 





= Each term (SETB symbol, SETB arithmetic expression, or SETB character expression) 
is evaluated and given a value of either 1 (true) or O (falge). 


# Evaluation is from left to right. The weight of the logical operators is: 


OR = 1 
AND= 2 
NOT= 3 


Therefore, NOT is performed prior to AND, and AND is performed prior to OR. 


If a SETB variable symbol is used in the operand field of a SETA or DO statement, or in an 
arithmetic relation (in either a SETB or AIF term), the binary values O and 1 are converted 
to the arithmetic value +O and +1. 


If the SETB variable symbol is used in the operand field of a SET statement, the value 
substituted is dependent on the context. In an arithmetic expression, +1 or +0 are 
substituted. In a character expression, the character values 1 and O are substituted. 
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@ Examples: 


LABEL AOPERATIONA OPERAND 
} 10 16 


1.1 SCONT SETB (L'sTO EQ 4) 
2.| GEXP SETB (1) 


1. If the expression L’&TO EQ 4 is true, the symbol &CONT is assigned a value of 1; 
otherwise, it is assigned a value of O. 


2. The symbol &EXP is assigned a value of 1. 


27.1.7. SETC Statement 


The SETC statement may be used to assign a character value to a variable symbol that 
was declared by an LCLC or GBLC statement. 


The format of the SETC statement is: 





AOPERATION A OPERAND 


Is a set symbol declared by either LCLC or GBLC. 


SETC 
| Defines the operation. 
Is a valid SETC operand. 
A SETC operand must be a character expression. (See 27.1.8.) 
The maximum length of the value that may be specified for a SETC symbol is eight 


characters. If more than eight characters are specified, only the leftmost eight characters 
are used by the assembler. 
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‘Examples: 
LABEL AOPERATIONA OPERAND 
1 10 16 


1.] STYPE SETC ‘S6A1D' 
2.| EC ITY SETC "CHINN! 


1. The symbol &TYPE is assigned the value of &AID. 


2. The symbol &CITY is assigned the value of CINN. 


27.1.8. Character Expressions 


A character expression is either a character string, a character substring, or a 
concatenation of strings or substrings. Character-expressions are used as the operand of a 
SET or SETC statement or as terms in a SETB, SET, AIF, or DO relational expression: Any 
character string is considered to be greater in value than any shorter character string. A 
character expression may have a length of up to 127 characters. 


27.1.9. Subscripted SET Symbols 





-Subscripted SET symbols may be defined as both global and local SET symbols. The local 

SET symbols previously defined were all nonsubscripted SET symbols. Subscripted SET 
symbols provide you with a convenient way to use a SET symbol plus a subscript to refer 
to many binary,. arithmetic, or character values. The subscript may be any arithmetic 
expression that is allowed in the operand of a SETA statement in the range of 1 to the 
specified dimension. The subscripted SET symbol consists of.a SET symbol immediately 
followed by a subscript enclosed in parentheses. 


A SETA or SETB operand permits only five levels of parentheses. 
The following are valid subscripted SET symbols: 

&INPUT(30) 

&B45723(&A1) 

&A6B9(2+&B1) 


The following are invalid subscripted SET symbols: 


&AB No. subscript 
(300) No SET symbol 
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27.1.9.1. Defining Subscripted SET Symbols 


To use a subscripted SET symbol, you must write. in a GBLA, GBLB, GBLC, LCLA, LCLB, or 
LCLC instruction with a SET symbol immediately followed by an unsigned decimal integer 
enclosed in parentheses. The number of SET variables associated with the SET symbol is 
indicated by the decimal integer and is called the dimension. Every variable associated 
with a SET symbol is assigned. an. initial value that is the same as the initial value 
assigned to the corresponding type of nonsubscripted SET symbol. If a subscripted SET 
symbol is defined as global, the same dimension (decimal integer} must be used with the 
SET symbol each time it is defined as global. 


The maximum dimension of 255 can be used with a SETA, SETB, or SETC statement. A 
subscripted SET symbol may be used only if the declaration was subscripted, while a 
nonsubscripted SET symbol may be used only if the declaration had no subscript. 


27.2. BRANCHING 


The sequence of processing macro source code statements may be altered by branching. 
The assembler provides for conditional and unconditional branching. 


27.2.1. Sequence Symbols 


A sequence symbol is used to define a branch destination point. A sequence symbol! may 
appear in the label field of any statement that does not contain a symbol or a set symbol, 
except for a macro prototype statement, a local or global symbol declaration statement 
(LCL, LCLA, LCLB, LCLC, GBL, GBLA, GBLB, GBLC), or MACRO, PROC, NAME, ICTL, or 
ISEQ statement. 


A sequence symbol is written in the following form: a period followed by at least one 
alphabetic character followed by up to six alphanumeric characters. The following are valid 
sequence symbols: 

.D 

.D3 

-BRNCPNT 
When a sequence symbol is written in the label field of a macroinstruction, statement, and 
the prototype (MACRO format) or PROC statements (PROC format) for that macro definition 


that contain a variable symbol in their label! fields, the sequence symbol does not replace 
the variable symbol. 
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27.2.2. Unconditional Branch (AGO) 


The unconditional branch (AGO) statement unconditionally alters the sequence of source 
statement processing. The format is: 





A OPERATION A OPERAND 





[.s4 ] 


where: 


AGO 
Defines the operation. 


+S; 
Is a sequence symbol. 


+S2 
Is a sequence symbol defined in a source code statement. 


The label field of the AGO statement may contain a sequence symbol. AGOB or GOTO 
may be used in lieu of AGO in the operation field. The sequence symbol in the operand 
field is the symbol of the next statement to be processed. Branching forward or backward 
from the AGO statement is permitted. 


When an AGO statement is used in a macro definition, the sequence symbol specified in 
the operand field must appear in the label of another statement in that macro definition. 


Examples: 
LABEL AOPERATIONA OPERAND 
1 10 16 


: AGO .STOP 
2.1 .BRANCH AGO . BUG 
1. An unconditional branch is made to another statement in the source code 


labeled .STOP. 


2. An unconditional branch is made to an instruction labeled .BUG somewhere else 
in your program. Notice a sequence symbol is used in the label field. 
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27.2.3. Conditional Branch (AIF) 


The conditional branch (AIF) statement conditionally alters the sequence of source 
Statement processing. The format is: 








A OPERATION A OPERAND 





where: 
$1 
Is a sequence symbol. 
AIF 
Defines the operation. 
(b) 
Is a SETB logical expression enclosed in parentheses. 
So 


Is a sequence symbol defined in a source code statement. 


The label field of the AIF statement may contain a sequence symbol. AIFB is permitted in 
lieu of AIF in the operation code field. 


Any logical expression permitted in the operand field of a SETB statement (27.1.6) is valid 
in the operand field of the AIF statement except a O or a 1 enclosed in parentheses. The 
sequence symbol in the operand field must be written immediately after the parenthesis 
terminating the logical expression. 


If, after the logical expression has been evaluated, the condition is true (a value of 1), you 
branch to the statement specified by the operand. If the condition is false (a value of 0), 
the statement in the source code following the AIF statement would be the next statement 
to be processed. Branching either forward or backward from the AIF statement is 
permitted. When an AIF statement is written in a macro definition, the sequence symbol 
specified in the operand field must appear in the label field of another statement within 
that macro definition. 
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LABEL AOPERATIONA OPERAND 
1 10 16 
1. AIF (6BRO NE @).S1S 
2.1 .1F AIF (L'&TO EQ L'éFROM) .END 


1. If the value of the symbol &BRO is zero, the next statement to be processed is 
&IF. 


2. If the length attributes of the symbols &TO and &FROM are equal, a true (1) 
results and a branch is made to a statement in the source code labeled .END. 


27.2.4. Define Branch Destination (ANOP) 


The define branch destination (ANOP) statement is provided to facilitate branching. If a 
branch is necessary and no statement within the source code supplies the branch 
destination in its label field, an ANOP statement can be coded to provide a label to which 
to branch. The format is: 










A OPERATION A OPERAND 








Neaee \ 
LABEL 






where: 
S 
Is a sequence symbol. 
ANOP 


Defines the operation. 
The label field must contain a sequence symbol. 
When the label field of a statement which is desired as a branch destination point already 
contains a symbol or variable symbol, the branch destination is indicated by preceding the 


statement by an ANOP statement. 


LABEL is an acceptable synonym for ANOP in the operation field. 
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Example: 
LABEL AOPERAT IONA OPE RAND 
I 10 16 
AlF (STYPE NE L) .DEST 


.DEST ANOP 
&STATE SETC ‘PENN! 


If the Boolean expression in the AIF operand is true, a branch is made to the ANOP 
statement with the label .DEST. Since no uperations are performed by ANOP, control 
passes immediately to the following statement, a SETC whose label field is already 
occupied by the variable symbol &STATE. 


27.2.5. Macro Definition Exit (MEXIT) 

The macro definition exit (MEXIT) statement is used when it is necessary to process only 
one section or operation of a macro definition rather than the entire macro definition. This 
statement indicates to the assembler that the processing of a macro definition should be 


terminated before ending normally with a MEND statement. 


The format of the MEXIT statement is: 





A OPERATION A OPERAND 


When MEXIT is used, the assembler terminates processing the macro definition and 
processes the statement in the source program following the macro call instruction that 
called the macro definition containing the MEXIT. A coding example of the MEXIT 
statement is included in 27.3.". 


27.3. ERROR MESSAGES AND COMMENTS 


PNOTE or MNOTE statements are used to generate error messages or comments in a 
macro definition or in source code statements. 





i eeeEeEEEEOEe=eEeeE 
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27.3.1. MNOTE Message Statements (MNOTE) & 
A MNOTE message statement is used to generate an error message. It indicates how 

dangerous the error is or generates a comment that supplies information. A MNOTE 

statement is used in a macro definition or in source code statements. 


The MNOTE statement source code statement format is: 







A OPERATION A OPERAND 


unused 


. 
. 


. 


By 


FANE 
3333 


This format can be used to specify a message enclosed in apostrophes, a comma followed 
by a message enclosed in apostrophes, a severity code followed by a message, or an 
asterisk followed by a message. In all cases, the message is printed in the assembly listing 
source code. The severity code indicates the danger of the error that occurred. The severity 
code is a decimal value of zero to 255. 


If you want to indicate a severity code of 1, you leave a blank space (A) followed by the 
error message enclosed in apostrophes. An asterisk used as the severity code indicates 
that the message following it is informational and not an error. Any of these specifications 
causes the message to be printed in the assembly listing. Also, MNOTE lines are flagged 
as errors and listed in the diagnostics portion of the assembly listing if they do not have an 
asterisk in operand 1. Messages which are preceded by an asterisk are not flagged or 
listed in the diagnostics because they are not errors. 





Variable symbols can be used as operands in a MNOTE statement. 


The following example contains a MNOTE statement that generates a message in the 
source code of the assembly listing, and causes the line of code to be flagged in error. The 
error also is listed in the diagnostics portion of an assembly listing produced by this code. 


Example: 

LABEL AOPERATIONA OPERAND 

| 10 16 
MACRO 
MOVE &A,&B,é&C 
AIF (€A GT O AND &A LT 257) .TAG 
MNOTE "INVALID LENGTH SPECIFIED' 
MEXIT 

. TAG MVC &B(&A) ,&C 





MEND 
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27.3.2. PNOTE Message Statements (PNOTE) 


A PNOTE message statement is used to generate an error message or a comment. A 
PNOTE statement is used in a macro definition or a source code statement. 


The PNOTE source code statement format is: 


A OPERATION A OPERAND 





In this format, there are two operand fields. In the first field, you can specify an asterisk to 
indicate that the message is informational and not an error; or you can specify a character 
expression containing up to six characters. The second operand field contains the 
message. It can contain up to 79 characters. Regardless of the choice you make for the 
first operand, the message is printed in the assembly listing source code. If it does not 
contain an asterisk as operand 1, a PNOTE statement is flagged as an error and listed in 
the diagnostics portion of the assembly listing. If there is an asterisk in the first operand 
field, the line is not flagged or listed in diagnostics. This is done because the asterisk 
indicates that the message is not an error. 


Variable symbols can be used as operands in a PNOTE statement. 


27.3.3. Comments Statement 


A comments statement written within a macro definition causes the assembler to 
generate comments on the output listing. This type of comments statement is written with 
an asterisk in column 1 of the assembler coding form followed by the comment. 


A special form of the comments statement also is available for use within macro 
definitions. It is used to include comments in a macro definition that are not to be 
generated in the output listing. This comments statement is written with a period in 
column 1 of the assembler coding form, followed by an asterisk (*) in column 2, followed 
by the comment. 


Neither comments statement form can be created by substitution for variable symbols. 
Substitution for variable symbols is not performed on comment lines. 
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Examples: 
LABEL AQPERATIONA OPERAND 
1 10 16 
MACRO 
GEN 
* THIS COMMENT WILL BE GENERATED ON THE LISTING 
* THIS COMMENT IS FOR INTERNAL USE, NOT GENERATED 
MEND. 


27.4. REPETITIVE CODE GENERATION 


A section of code can be generated one or more times. The statements DO and ENDO 
specify the code you want and the number of times you want it to be generated. 


27.4.1. Define Start of Range (DO) 


The define start of range (DO) statement defines the starting point of the code and the 
number of times it is to be generated. The format is: 







AOPERATION A OPERAND 





[&varisymb] 


where: 


&varisymb 
ls. an optional variable symbol. 


DO 
Defines the operation. 


Is a valid SET expression (27.1) written in a macro definition. 


The expression in the operand field indicates the number of times the source code 
statements following the DO statement are produced in the object code. All lines of coding 
appearing between a DO statement and its associated ENDO statement (27.4.2) are 
generated. The value of the expression in the operand field may be any value from 0 to 
2231. If the value of the expression is negative, the DO statement is flagged and ignored 
(that is, treated as if the value has been 1). 


The set of statements between the DO statement and its associated ENDO statement are 
said to be within the range of the DO statement. Any valid source code statement may be 
within the range of a DO statement including other DO statements with their 
corresponding ENDO statements. DO statements may be nested up to 10 levels. 
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A variable symbol may be declared in the label field of the DO statement. The rules for 
writing variable symbols are described in Section 26. When the variabie symbol in the 
label field is specified, it is used as a counter for the number of times a set of lines within 
the range of a DO statement has been generated. The value of this variable symbol is 1 
the first time through the set of statements; 2 the second time through; and so forth. It is 
referenced in the same manner as a SETA symbol (27.1.5). An example of a DO statement 
is shown in 27.4.2. 


27.4.2. Define End of Range (ENDO) 


The define end of range (ENDO) statement is used to indicate the end of the range of a DO 
statement. The format is: 





A OPERATION A OPERAND 


DO and ENDO statements must be paired. For every DO statement, there must be an 
ENDO statement to define the end of the range. 


Examples: 


LABEL AOPERATIONA OPERAND 
] 10 16 


ca é * 


a 


OOnN awn Pwn — 
e 
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Lines 2, 3, and 4 are produced in the assembler output five times. 





Lines 9, 10, 11, 21, and the lines produced by the operation of the DO directives on 
lines 12 and 15 are produced in the assembler output 10 times. 


Within each of the 10 sets of code produced by the DO directive on line 8, lines 13, 
14, and the lines produced by the operation of the DO directive on line 15 are 
generated in the assembler output three times. 
Within each of the 30 sets of code produced by the DO directives on lines 8 and 12, 
lines 16, 17, and 18 are generated in the assembler output five times. 
27.4.3. Conditional Assembly Control Counter (ACTR) 
You use the ACTR statement to limit the number of AGO, AIF, GOTO, AGOB, AIFB, and 
GO statements that may be processed by the assembler either within a macro or within 


the source program. 


The ACTR statement source code format is: 







A OPERATION A OPERAND 


SETA expression 





The ACTR statement must be written immediately following the local and global symbol 
declarations in either the source program or in a macro definition. There can be a separate 
ACTR statement in the source program and in each macro definition. 


The value of the expression in the operand field may be any positive value from 1 to 
2231, The value specified in the operand field causes a counter to be set to that value. 
This counter is decremented by 1 for each AGO, AGOB, or GOTO statement that is 
processed for each AIF or AIFB statement whose evaluation resulted in a true condition 
and for each time that the range of a DO statement is generated. 


If the counter is zero prior to decrementing, the following occurs. If a macro is being 
processed, its processing and that of any macros above it in a nest are terminated. The 
next statement to be processed is in the source code following the macroinstruction that 
initiated the nest. If the source code is being processed (outside a macro definition), an 
END directed is generated. The assembly continues with only that portion of the program 
generated thus far. 


lf an ACTR statement is not written, the value of the counter is 409645. 
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27.5. ATTRIBUTE REFERENCES 


The assembler assigns certain attributes to symbols and macro call operands that you may 
refer to in conditional assembly statements. These attributes are type (T), length (L), scale 
(S), integer (I), count (K), and number (N). 


You can specify attributes in conditional assembly statements to control logic, which in 
turn can control the sequence and contents of the inline expansion code generated from 
model statements. Each kind of attribute has a specific purpose, which determines when 
you use it. The format of an attribute reference is as follows: 






A OPERATION A OPERAND 









conditional 
assembly 
operation 
code 


[symbol] 


‘ symbol ; 
&symbol 


Zx-OaraA 


The attribute notation (T, L, S, |, K, or N) denotes which attribute of a symbol or parameter 
you are using. The symbol or parameter is a reference to the data or field which possesses 
the attribute. The operation code must be a conditional assembly operation code except 
when you are using the length attribute. (See 4.4.5 for a discussion of the use of length- 
attribute references in program source code.) 


The origin of an attribute value is always either a symbol or a parameter. Table 27—3 
gives the restrictions for using a symbol or parameter as the reference to obtain a 
particular data attribute. Whether a symbol or parameter can be used in an attribute 
reference depends on where it is referenced. If an attribute reference is made in macro 
source code (from inside a macro definition), a symbol may be referenced for any data 
attribute except K or N. A symbol cannot be used in a count or number attribute reference 
in macro source code because, when K or N is used inside a macro definition, the only 
data that can be referenced is an operand field in the macroinstruction call. Any one of the 
valid attributes can be acquired for a symbol or &SYSLIST. A SET symbol and the system 
variable symbols listed in Table 27—-3 can only be used in the T and K attribute references 
when in macro source code. You can get all but K or N attributes of a symbol in program 
source code by using the symbol in the attribute reference. Macroinstruction operands 
cannot be referenced from program source code so a symbolic parameter or a &SYSLIST 
cannot be part of an attribute reference in program source code. However, A SET symbol 
and the system variable symbols listed in Table 27—3 can be used in an attribute 
reference in program source code. 


aaa 
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Table 27—3. Valid Attribute Reference Applications 


Attribute | 
moans cue 


Ve 
FA 
Vv : 











&SYSNDX, &SYSPARM, 
&SYSJDATE, &SYSECT, 
and &SYSTIME 


SET symbol 


&SYSPARM, &SYSDATE, 
&SYSJDATE, and &SYSTIME 













V= valid application 


There are two requirements that must be met before using symbols in attribute 
references. First, the symbol must appear either in the operand field of an EXTRN directive é 
used outside of a macro or in the label field of at least one assembler directive or 
instruction outside a macro. Second, there must not be any variable symbol in the source 

line in whose label field the symbol appears. In regard to the call operand attributes, you 

must abide by the same criteria in addition to the following. The operand must be a 

symbol and it may not be one generated by variable symbol replacement. The attributes of 

the operand are really the attributes of the symbol itself. A nested call operand. may be a 

symbolic parameter whose attributes are then the same as the corresponding outer 

operand. You cannot use a length attribute if the type attribute is J, M, N, O, T, or U (see 

27.5.1). 





Since a call operand may be a sublist, you can also refer to attributes of a sublist or each 
individual parameter in the sublist. When you refer to these attributes, they will be 
assigned the same value as the first parameter in the sublist. 


You can refer to attributes on conditional directives both inside and outside of macros. 
Symbols that appear in the label field of instructions generated by a macro are not 
assigned attributes. If a SET symbol appears in the operand entry of a macroinstruction, 
attribute information is not provided and the operand may not be accessed as a sublist. 
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27.5.1. Type Attributes 


You can use the type attribute to test for the characteristic of the operand or symbol. This is 
done by writing a T followed by the symbol or symbolic parameter to be tested. This can also 
be used in SETC directive operand fields or as character expressions in SETB and AIF 
directive operand fields. Table 27—4 summarizes the type attributes and the circumstances 
under which they are produced. 


Table 27—4. Type Attributes of Symbols (Part 1 of 2) 


i Symbol Length 
T e Pater Alignment 

eeeelisenn : 
Type A address Full-word 
constant 
Binary constant Implied or Not applicable 

explicit 
Cc Character Implied or Not applicable 

constant explicit 

Double-word Implied Double-word 

floating-point 

constant 

Full-word Implied Full-word 

floating-point 

constant 

Full-word Implied Full-word 

fixed-point 

constant ; 

G Fixed-point Explicit Not applicable 

constant 


H Half-word Implied Half-word 
fixed-point 
constant 


| 1 [Machine instruction | aes lage 
J Control section Not applicable Double-word 
name 
K Floating-point Not applicable 
constant 


bit pies pis oe 
| oN @ | Self-defining term Not applicable Not applicable 
ane gai 


Packed decimal Not applicable 
constant 






























Not applicable 










Implied or 
explicit 
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Table 27—4. Type Attributes of Symbols (Part 2 of 2) 












Symbol 
Definition 





Length 
Specification 


Unaligned address Explicit Not applicable 
constant (A, S, V, or Y) 

Type S address Implied Half-word 
constant 


External symbol Not applicable Not applicable 
Type not available Not applicable Not applicabie 


Vv Type V address Implied Full-word 
constant 





















Ww CCW statement Implied Double-word 
Hexadecimal Explicit or Not applicable 
constant implied 
Type Y address Implied Hal f-word 
constant 

Not applicable 


@ This type attribute is produced only for macroinstruction operands. 





Zoned decimal 
constant 







Explicit or 
implied 





@ Type cannot be assigned. !t is produced for inner and outer macroinstruction 
operands that cannot be assigned any other attribute, as well as for literals appearing 
as macroinstruction operands. symbols appearing in the label field of LTORG, ORG, 
or EQU directives, symbols appearing more than once in a source statement label 
field, and symbols appearing in the label field of DC or DS directives containing 
expressions or variable symbols in the modifier subfields. The latter is true even if 
the modifier subfield expression consists solely of self-defining terms. 


27.5.2. Length Attributes 


You can reference the length attribute by writing an L’ followed by the symbol or 
parameter whose attribute you want. The length attribute has a numeric value, which 
refers to the number of bytes assigned by the assembler to a data field. If the length- 
attribute value is required for conditional preassembly processing, the symbol you specify 
in the attribute reference must appear in the label field of a statement in open source 
code. The operand field of that statement must contain a self-defining term. 
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The length modifier or length field must not be coded as a multiterm expression because 
the assembler does not evaluate this expression until assembly time. 


LABEL AOPERATIONA OPERAND 
] 10 16 
DATA dC FL7'7E+9' 


When the length attribute is used in conditional assembly statements, it can be specified 


only within an expression. Examples: L’&P(4),L’&VARY(1,2),L‘&SYSLIST(5). These could be 
written in conditional statements such as: 


AIF (L'sP(4) LT 6P(3)).PE 
&LBL SETA L'éTAG 
DO L' §NAME=6 


An L’ cannot be generated directly by a macro/proc; it can be done indirectly as follows: 


LCLC &A,6B 
&A SETC 12! 
&B SETC Te 
MVC &A.(&BE&A) ,X 


After generation this would result in: 


MVC 2(L‘Z),X 


sss es 
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27.5.3. Scale Attributes 





You can reference scale attributes of variable symbols by coding an S‘ followed by the 
desired symbol. Scaling attributes are available only for labels of statements defining 
fixed-point constants. This restricts them to H, F, D, E, P, type Z, type K, and type G 
constants in the OS/3 assembler. The scaling attribute is the value you have assigned for 
the scale modifier of a fixed- or floating-point constant. This modifier is an integer used to 
assign a number of bits in an unnormalized constant for the fractional portion of the 
constant. For example, the scale modifier of a DC statement such as HF8A’—19.788' 
would be 8, since it is specifying 8 bits for the fractional part of the number. For decimal 
type constants the scaling attribute is the number of decimal digits to the right of the 
decimal point. 


The following examples illustrate typical usages of scale attributes: 





LABEL AOPERATIONA OPERAND 
] 10 16 

AIF (S'éS(1) EQ $'6S(2)) .S1 
ESCALE SET S'eP(1) 

DO S'EVARY 6 


27.5.4. Integer Attributes 


An integer attribute can be written with an I’ followed by the symbol you wish. An integer 
attribute is computed from length and scaling attributes and is thus also applicable only to 
a symbol which is the label of a statement defining a fixed-point or floating-point constant 
(F, H, D, E, P, type Z, type K, and type G). A fixed-point integer attribute is equal to 8 times 
the length attribute, minus the scaling attribute, minus 1 (I'=8*L—S‘—1). For floating 
point, you obtain the integer attribute, multiplying by 2, and subtracting the scaling 
attribute |I’'=2*(L’—1)—S’. Typical fixed-point constants and their computed integer 
attributes are: 


HLFWRD DC HS4'97.65! 
FULLWRD OC FS12 ‘47.8959! 
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A half-word fixed-point constant (H) would have a length attribute of 2 (L'=2) and a scale 
attribute specified as 4 (S‘=4). Therefore, the integer attribute would be (8x2)—8—1=7. A 
full-word fixed-point constant would have a length of 4 (L’=4) and a scale attribute 
specified here as 12 (S‘=12). The integer attribute in this case would be (8x4)—12—1=19. 


- Some floating-point constants and their computed integer attributes are: 


LABEL AOPERATIONA OPERAND 
1 10 16 
FLTHFWRD DC  £S3'64.495'! 

- FLTFLWRD DC DS6'17.99.2' 


Since E is a floating-point full word, its length attribute is 4 (L‘=4). The scale attribute is 
‘specified to be 3 (S‘=3). Thus, the integer attribute is 2 (4—1)—3=3. When we have a 
floating-point double-word constant (D), its length attribute is 8 (L‘=8). The scale attribute 
is shown to be 6. We can then compute the integer attribute to be 2(8—1)—6=8. For 
decimal constants, the integer attribute is the number of decimal digits to the left of the 
decimal point. 


27.5.5... Count Attributes 


You can use the count attribute of a call operand to reference the number of characters in 
the operand, excluding commas. This attribute is determined after substitution of any 
variable symbols; that is, it uses the replacement characters rather than the variable 
symbol to determine the count attribute. You can use the count attribute in SETA or DO 
operand fields, and in relational expressions of SETB and AIF operands that are within a 
macro. 


If the operand selected is a sublist, the count attribute will include the parentheses and 
commas within the sublist. Examples using count attribute references in statements are: 


OPCT SETA K'&SYSLIST(1) 
&GBLB SETB (K'6P(3) NE @) 


AIF (K'éP(2) EQ 6) .NG 
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27.5.6. Number Attributes 





For call operands you can also reference the number of operands in an operand sublist. 
You reference the number attribute by writing an N’ followed by the symbol or parameter 
whose attribute you want. This number is equal to 1 plus the number of commas 
separating or indicating the omission of operands in the sublist. This attribute is available 
in SETA, DO, SETB, or AIF directives. 


Examples of number attribute usage are: 


LABEL AOPERATIONA OPERAND 
| 10 16 
&NUM SETA N'sP 
sCOUNT SETB (N'&SYSLIST NE 2) 
AIF (N'SSYSLIST NE 3).ERRI 
DO N'&ESYSLIST-2 
DO N'EP>2 


If an operand is not a sublist, the number attribute is 1. lf an operand is omitted, its value 


is O. @ 
The following is an example showing all the attribute references available, along with the 


related constants and local directives that a SET directive requires in a program 
environment. 





PROC &PARAM,] 
DATTR NAME 
*DISPLAY ATTRIBUTES OF MACRO INSTRUCTION OPERAND 
-* THIS COMHENT 1S NOT GENERATED 


LCLA &5Q,610,&KQ,ENQ,ELQ 
LCLC &TQ 

&10 SETA 1'&PARAM(1) 

&SQ SETA S'§PARAM(1) 

&KQ SETA K'g PARAM (1) 

&NQ SETA N'& PARAM (1) 

&LQ SETA L'&PARAM(1) 

&TQ SETC T'SPARAM(1) 
pc C'SPARAM(1)' THIS IS THE OPERAND 
pc Y(&LQ) LENGTH ATTRIBUTE OF PARAM 
pc Y(&KQ) COUNT ATTRIBUTE OF PARAM 
pc Y(&10) INTEGER ATTRIBUTE OF PARAM 
DC Y(&SQ) SCALE ATTRIBUTE OF PARAM 
DC Y(&NQ) NUMBER OF OPERANDS IN SUBLIST 
pc C'sTQ! TYPE ATTRIBUTE OF PARAM 
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28. Organization of Listing 


28.1. HEADER LINES 


The assembly listing produced by the OS/3 assembler consists of five sections, each with 
its own headings. The five sections are: 


= PREFACE 
Lists of options and assembler identification. 
= CODEDIT 
Object code and source code entries 
m EXTERNAL SYMBOL DICTIONARY LISTING 
™ CROSS-REFERENCE LISTING 


# DIAGNOSTIC LISTING 


28.2. PREFACE 


The first section or preface section identifies the assembler variant (if any), its version and 
update number, and the time and date of the assembly. The format is: 


UNIVAC SYSTEM OS/3 ASSEMBLER 
DATE yy/mm/dd TIME — hh.mm 


The preface also lists parameters indicating the assembler options selected in the job 
control stream, if any. 
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28.3. CODEDIT S 


In this section, source coding is printed beside the object code generated for it. The first 
header line in this section contains the operand field used in the TITLE statement. The 
header, except for the page number, will be blank. The headings in the second line are 
shown in Table 28—1. 


Table 28—1. CODEDIT Listing Content 


Second Heading Line Field Contents 
Assembler address of the object code in hexadecimal. 


OBJECT CODE 









Contains the object code produced from the source statement. 
This field is left-justified and is in hexadecimal. Machine 
instructions are printed in the format: 





mmmmmmmmmmmm 


Constants are printed in the form: 


















c— —C 
ADDR1 Contains the effective address in hexadecimal for the first 
operand of an instruction referencing main storage. 
ADDR2 Contains the effective address in hexadecimal for the second 
operand of an instruction referencing main storage. 


LINE Contains the sequential record number in decimal. {f the 
statement is macro-generated, each line of generated code 
indicates its nest level in the leftmost portion of the 
column containing the line number. This macro level indicator 
is an alphabetic character (A through Z) that represents the 
nest level at which the coding was generated. If more than 26 
levels are nested, the indicator wraps around from Z to A. The 
line counter columns can record 10,000 lines of code (from O 
to 9999). If line 10,001 of code is nested, the line number 
will wrap around from 9999 to OOOO. The next level indicator 
enables you to see the nest level on any line of source code. 


SOURCE 
STATEMENT 


















Contains the source program statement. The listing also contains 
any macro-generated statements, following the source statement 
that called it. The assembly listing also prints embedded macro or 
proc call lines when one macro or proc calls another into the 
program. The embedded lines contain the original keyword and 
positional parameters supplied by the caller. 






Although a sequence heading does not print in the assembly listing, you are permitted to 
have a sequence field that does print. Lines of code generated by a macro or proc call line 
retain any sequence number they had when they were originally coded. That is, the 
original sequence number is printed in the assembly listing on the same line as the 
generated statement. 
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28.4. EXTERNAL SYMBOL DICTIONARY LISTING 


This section is optional; you can request its omission at assembly time. Entries are 
generated in the external symbol dictionary listing for named and unnamed section 
definitions (defined by CSECT statement), entry points (defined by an ENTRY statement), 
external symbols (EXTRN statement and type V constants), and common sections (COM 


statement). A description of the information which is contained in this section is given in 
Table 28—2. 


Table 28—2. External Symbol Dictionary (ESD) Listing Content 


Second Heading Line Field Comments 
SYMBOL Contains the symbol that caused the ESD entry to be generated. 


Defines the type of entry: 










CSECT Section definition (CSECT or START) 





ENTRY 












Symbol appeared in operand field of 
ENTRY statement. 





External reference (symbol appeared in 
EXTRN operand field or defined as type 
V address constant) 


COM Common control section definition 












Two-digit external symbol identification number (in hexadecimal) 
of item. 


ADDRESS 
LENGTH 









Contains the address of the symbol in hexadecimal for ENTRY 
ESDS, the starting address of the control section for CSECT 
and COM items, and blank for EXTRN ESDS. 


Contains a hexadecimal value which is the assembled length 
{in bytes) of control on common section. Blank for ENTRY 
and EXTRN ESD items. 
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28.5. CROSS-REFERENCING LISTING 





This section is optional; you can request its omission at assembly time. When this section 
is included, each symbol in the object program is listed in alphanumeric sequence with the 
statement number of the statement defining it, and the statement numbers of all 
references to it. Also included in the data for the symbol are the length attribute of the 
symbol and the value assigned to the symbol in the assembly. 


The first heading line of every page contains the following: 


CROSS REFERENCE 


The information on each page of the cross-reference listing appears in one column on the 
left half of the page. If more space is needed, the assembler prints a second column of 
cross-reference data on the right half of the page. Each column has a heading line followed 


by one or more data lines. The formats of the column heading and data lines are given in 
Table 28—3. 


Table 28—3. Cross-Reference Content 


Second Heading Line Field Comments 
SYMBOL Symbol to which cross-reference data pertains. 


LENGTH Length {in decimal) of data associated with symbol (i.e., implied 
length of symbol). 


VALUE Hexadecimal value of symbol. 
DEFN Statement number of statement in which symbol is defined. 


(Actual line 
numbers of 
reference) 






















May contain from 0 to 5 entries of the form nnnndA, where nnnn 
is a statement number, and AA represents two bianks. Each entry 
represents a statement number of a line in which the symbol 

is referenced. Succeeding lines will be used as necessary to 

list all the references or duplicate definitions. Leading zeros 

are suppressed. 












Printing of the symbol cross-reference listing is in double-column 
format. Continuation occurs from the bottom of the left-hand 
column to the top of the right-hand column and from the bottom of 
the right-hand column to the top of the left-hand column on the 
next page. The last page of the listing may contain any part of a 
partial page. 
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28.6. DIAGNOSTIC LISTING 


Statements containing errors are flagged and appear in the diagnostic listing. The 
diagnostic listing follows the assembly listing and contains a detailed accounting of any 
errors that occurred in the assembly. The listing contains the line number of the statement 
in which the error occurred, the error code, and a message indicating the cause of the 
error. The messages are listed in the order in which they occurred. A diagnostic listing is 
optional and can be suppressed by using the PARAM statement (Appendix F) with the 
LST=ND option in its operand field. The PARAM statement also provides the LST=DBG 
option for debugging a macro definition. 


When a macro definition is retrieved from a library, those of its statements that contain 
errors are listed and flagged immediately after the END statement. If the macro definition 
is part of your source program, source statements in error are flagged both within the 
definition itself and wherever they appear in inline expansion code. In all cases macro 
errors are listed in the diagnostic listing. 


The first heading line contains the following: 


DIAGNOSTICS 


The format of the second heading line and the data line contents are given in Table 28—4. 


Table 28—4. Diagnostic Listing Content 


Field Contents 


May contain from 1 to 10 entries of the form nnnn&, where nnnn 
represents a statement number of a line in which the error occurred 
and “ represents two blanks. Leading zeros are suppressed. 


ERROR CODE Error code of the error in form annn. 
MESSAGE An actual error message giving details about the error. 


After the listing of the diagnostics, the assembler prints the total number of statements 
that were in error as follows: 


Second Heading Line 


STMT 














nnnn STATEMENTS FLAGGED IN THE ASSEMBLY — yy/mm/dd hh.ss 


The final error statement message is also displayed on the console or master workstation 
upon completion of the assembly. This lets you know immediately if there are any 
diagnostic errors in your source program. 


28.7. EXAMPLE OF ASSEMBLY LISTING 


Section 29 contains a sample assembly listing. 























ae 




































. rt ‘ f 3 5 : POA pt i OFS, Seuss 



















7. PRO 
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29. Job Control Procedures 


29.1. HOW TO RUN A JOB 


To assemble, link edit, and execute your program, you must tell the computer what you 
want it to do for you. You assign peripheral devices and then request other programs and 
routines for use in your program. Job control is your means of communicating with the 
computer. Job control procedures are designed to enable you to get your program into the 
computer in the most efficient way. These procedures are similar to macro definitions. 
They generate a series of job control statements by using one calling line of code. This 
section includes the job control procedures you need to assemble your program into an 
object module, to link-edit your program into a load module, and finally, to execute it. 
There are job control procedures available for many other functions but they are not 
discussed here. The minimum number of job control statements needed to run your 
program are provided. For additional information on job control, refer to the interactive job 
control user guide. 


When using a multisectioned program or unfamiliar instructions, assemble the program 
and correct any syntax, addressability, or other errors. Then, add the job control cards 
needed to link-edit and execute, and resubmit the job. Assemble your program and store 
the object module in a private library for execution at another time or store the object 
module and link it to another object module for combined execution. The system service 
programs user guide contains information about link-editing and how to create and access 
files of stored information. 


29.2. INTRODUCING THE SOURCE DECK 


To assemble your source program into an object code module, you need to surround your 
source code deck with job control statements. The job control statements needed to 
introduce the source deck are discussed in 29.2.1 and 29.2.2. 
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29.2.1. JOB Control Statement & 





The first job control statement in your deck is the JOB control statement, which assigns a 
unique name to your job. It is the only required parameter, as you can see from the 
format. See the interactive job control user guide for an explanation of the other 


parameters. 
fimink Caras Ey 
fee | 
DR 
[,acet-no] [,nXm] | NONE \ . \ 


NOLOG 
The jobname can have up to eight alphanumeric characters. The name you specify on the 
JOB control statement has no bearing on the name you assign on the START card (see 
17.5) within your assembly program. The jobname parameter distinguishes one job from 
another. Use a unique name, since only one job can be scheduled for processing by the 
operating system under a name. (If two jobs have the same name, the second job would 
replace the first job.) 


//{symbol] JOB jobname F 





\] [,max-time] [,(op-list-1,...,op-list-n) ] 








29.2.2. OPTION Job Control Statement 





Following the JOB control statement, you can include an OPTION job control statement to 
cause a program dump at the end of your assembly listing. There are three kinds of dumps 
you can request, depending on the parameter you choose: 


LABEL AOPERATIONA OPERAND 
| 10 16 





1.]// OPTION DUMP 
2.|// OPTION JOBDUMP 


3.|// OPTION SYSDUMP 


These dumps are explained in the system service programs user guide. When a program 
terminates normally, the OPTION job control statement alone does not produce a dump. 
You must have a corresponding DUMP or SNAP card within your assembly program. 
DUMP and SNAP are supervisor macros created to dump portions or all of your assembly 
program. DUMP and SNAP are explained in the supervisor macroinstructions user guide. 


If your program terminates abnormally and you've included an OPTION job control 
statement, you'll get a dump following the assembly listing. 
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If an OPTION job control statement is not present in the control stream, the DUMP 
macroinstruction acts as an EOJ macroinstruction. The OPTION job control statement 
must also be in the job step in which you want the dump to occur. For example, if you 
assemble, link-edit, and execute your load module, and you want the dump to occur when 
you execute your load module, you place the OPTION job control statement in the job step 
that executes your load module, not in the one that assembles or link-edits. 


29.3. ASSEMBLE; ASSEMBLE AND LINK-EDIT; OR ASSEMBLE, LINK-EDIT, AND 
EXECUTE 


You can assemble, link-edit, and execute your program in steps or do it a// at once. Each of 
these functions requires a different job control procedure (jproc) call statement. You can 
use any one of these jproc call statements, depending on what you want to do: 


= ASM — Assembles your source deck. 
= ASML — Assembles and then link-edits. 


= ASMLG — Assembles, link-edits, and then executes the generated load module. 


29.3.1. Assemble (ASM) 


When you assemble, you create and name (either directly or indirectly) an object module. 
Errors incurred during assembly are flagged and listed on the printout in the diagnostics 
following the assembly listing. Once you have an error-free assembly, you are ready to 
execute. To execute, you must add the job control statements to your deck (and ASM jproc 
call statement) that link-edit and execute your program. Or, you can replace the ASM jproc 
call statement with the jproc call statement to assemble and link-edit (ASML) or assemble, 
link-edit, and execute (ASMLG). The latter approach is suggested. It is more practical to let 
the prewritten job control procedures do the work rather than having to keypunch the 
additional cards. If you do not use ASML or ASMLG jprocs, you will have to consult the 
interactive job control user guide for the additional cards needed. 


Remember, the object module you produce during assembly is not saved (unless you say 
so with a parameter). After the assembly is complete, the object module is removed from 
the temporary job S$YSRUN file. If you want to save it for later use, you must store it in a 
system library, or a library of your own. The librarian portion of the system service 
programs user guide describes system and user libraries. 
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29.3.1.1. ASM Jproc Call Statement 


The format of the jproc call statement that generates only an assembly follows. Except for 
the OUT parameter, the format also applies to the ASML and ASMLG statements 
discussed in 29.3.2 and 29.3.3. 


lun [,dest] 
/! [symbol] AASMA PRNTR=< N[,dest] 
26[,dest] 


(vol-ser-no,tabel) 
(RES) 
IN=< (RES, label) 


(RUN, label) 
(* label) 


(vol-ser-no,labet) 
(RES, label) 
ouT= (RUN, label) 


(* label) 
(N) 
{RUN SYSRUN) 


* label-1 ,) *,label-2 
N N 
RES,SYSMAC RES, SYSMAC 


vol-ser-no-1,label-1 vol-ser-no-2,label-2 
RES, label-1 RES label-2 
RUN, label-1 RUN, label-2 
PY= e ’ 
° * label-1 ') *,label-2 
N 


vol-ser-no-1 ,label-1 vol-ser-no-2,tabel-2 
RES label-1 RES, label-2 
- RUN, label- 
LIne RUN, label-1 abel-2 
: N 
RES.SYSSRC RES, SYSSRC 


LST= paar 
(opt-1,...,opt-n) 


( 
fe 
[ 


SCR fri ser-no \ 
{vol-ser-no,label) 
(RES, label) 
,ALTLOD= <¢ (RUN, iabel) 
(* labet) 
{RES,SYSLOD) 





The symbol field of the ASM jproc call statement is an optional field. There is no space 
between the // and the symbol. Normally, your input (the source module) is in the form of 
punched cards. But, possibly, you may have stored the source module in a library. The 
symbol field supplies the name of the source module (one to eight alphanumeric 
characters). (The symbol field is only needed when you use an IN parameter.) 
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& If no name is specified on the START directive, ASMOBJ is assigned. You can have only 
one unnamed assembly (the default, ASMOBJ) within a job unless all other assemblies 
are continuations of the first. For example, if performing two individual assemblies within 
the same job, proceed as follows: 


LABEL AOPERATIONA OPERAND 
| 10 16 72 


ee 


// JOB COMSTOR 

// ASM 

/S 

PROGA — START B 


END 
/* 
// ASM 
/$ 
PROGB START ’) 


END 
@ fs 
/& 
// FIN 


In this example, the first assembly is named PROGA, and the second is named PROGB. 
The jobname is COMSTOR. When you use the IN keyword parameter, you must also use 
the symbol field. (This is discussed when the IN keyword parameter is discussed.) 


The keyword parameters of the ASM jproc call statement are optional. The shaded areas 
indicate the default values generated if you do not use the parameter. You can use 
statement continuation to contain all the parameters you want to specify. Following are 
examples of correct and incorrect coding: 





Correct Example: 


// JOB ASSEMBLE 


//PROGNM ASM PRNTR=21, 1N=(DSC1 ,USSRC) , X age 
//\ OUT=(DSC2,USOBJ) ; X 

//2 LIN=(DSC1,USMAC 1 »DSC2,USMAC2) 

/& 
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Incorrect Example: 


You cannot break a parameter specification. The keyword and its value must be on the 
same card. You cannot code the IN parameter as follows: 


LABEL AOPERATIONA OPERAND 
1 10 16 72 





// JOB ASSEMBLE 
//PROGNM ASM PRNTR=21, | 






This coding would cause an error. To continue on another card you need a nonblank 
character (we used X) in 72, and, in the next card, a // in columns 1 and 2 followed by a 
number in column 3 as shown in the correct example. The column 3 numbers must be in 
ascending order in the deck, in the range of 1 through 9, or they can all have the same 
number. If there are two continuation cards, as shown in the correct example, the first 
card cannot be //2 and the second card //1. But it could be //2 and //2. 


The parameter definitions are as follows: 





PRNTR= 
Allocates a specific printer for the assembly listing. 
N 
If you specify N, the device assignment set for the printer is not generated 
by the jproc. Instead, the device assignment set for the printer is manually 
inserted by the user in the control stream (prior to the placement of the 
jproc call). This allows for the creation of specific load code and vertical 
format buffers (the LCB and VFB job control statements) by the user. For 
example: 
//DVC 26 // VFB LENGTH=66,DENSITY=6 
// LFD PRNTR 
// ASM PRNTR=N 
NOTE: 
When this parameter is used, the file name for the device assignment set 
for the printer must be PRNTR. 
lun 
If you want a logical unit number other than 20, you must specify the logical 
unit number associated with the printer you select. 
20 
If you specify 20 as the logical unit number, you will get the next available 
printer. This parameter is optional because 20 is the default value. 
dest 


If you spool the printed output and want to send it to a device at a remote 
site, you use this parameter to specify the device’s 1- to 6-alphanumeric- 
character destination identifier as it is defined by remote batch processing 
(RBP). 
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IN= 
You only use the IN keyword parameter when the source program is not on 
cards. If you have stored your unassembled program on a disk, you use the IN 
parameter to retrieve it for assembly. When using this parameter, you must have 
the name of the source program you are retrieving in the symbol field of the 
ASM jproc call statement. The options are: 
(vol-ser-no,label) 
Specifies the volume serial number and the file identifier where the source 
module is located. For example, it could be on a disk whose volume serial 
number is DSC1. The disk is assigned that number. On the disk, the source 
program, named PROGNM, is stored in a library called USSSRC. To 
assemble the source program, specify the IN keyword parameter to define 
the input. This parameter must be used when making source corrections via 
the SKI, REC, and SEQ statements. (See F.2.) 
LABEL AOPERAT IONA OPERAND 
| 10 16 


// JOB ASSEMB2A 
//PROGNM ASM IN=(DSC1,USSRC) 


(RES) 
Indicates you want to retrieve a source program from the system resident 
device (SYSRES) in the source library file (SY$SRC). 


(RES, label) 


Indicates you want to retrieve your source program from SYSRES. But it is not 
in $YSSRC; it is in a file identified by the label. 


(RUN, label) 
Indicates that you want to retrieve a source program from the volume 
containing the job’s run library file (SYS$RUN). The label is the file identifier. 


(*,label) 
Indicates that you want to retrieve a source program from a cataloged file. 


The label is the file identifier, which is all that is necessary to identify the file 
to the system. 


OUT= 
You use this parameter to store assembled object module in a library other than 
the job’s $YSRUN file to save your assembly. Remember that the ASM jproc only 
stores your program until the job is complete. To permanently save an object 
module, you must put it somewhere with the OUT parameter. This also generates 
a PARAM OUT job control statement. The options are: 


(vol-ser-no, label) 
Specifies the volume serial number and file identifier where you want to store 
the object module. It is assumed that this file has been already allocated. If it 
is not, you have to supply a device assignment set to allocate this file. 
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(RES, label) 
Indicates that you put your object module on SYSRES, but you didn’t use the 
reserved $Y$SRC file; you named your own file. The label is the file identifier. 





(RUN, label) 


Indicates you put the object module on the volume containing the job’s 
SYSRUN file in the file identified by label. 


(*, label) 
Indicates that you want to store the object module in a cataloged file. The 
label is the file identifier, which is all that is necessary to identify the file to 
the system. 


(N) 
Indicates you do not want the object module stored in your own file, or 
retrieved from SYSRUN. 





LIN= 
You can use the macro library file (SY$MAC) to store the macro definitions or you 
can use a nonsystem library. The LIN keyword parameter identifies the library you 
want searched. If you do not specify this parameter, SYSMAC is searched. The 
options are: 
(vol-ser-no-1,label-1[,vol-ser-no-2,label-2]) 
Provides the volume serial numbers and file identifiers. You can specify up to 
two volumes and files where macros are stored. $Y$MAC is searched if the 
desired macros are not found elsewhere. 
(RES, label-1[,RES,label-2]) 
Specifies two library files to be searched for macros; both files are on 
SYSRES. 
(RUN, label-1[,R UN, label-2]) 
Specifies two library files to be searched for macros; both files are on the 
volume containing the job’s run library file (SYS$RUN). 
(*,label-1[,*,label-2]) 
Specifies two library files to be searched for macros; you use this format 
when the files are cataloged, so you need only specify the file identifiers. 
([N]) 
Indicates that no macros should be retrieved. 
COPY= 


Identifies stored source programs that are to be copied into another source 
program. You can specify two volumes and two files. If you do not specify this 
parameter, SYS$SRC is searched for any source programs named in an assembler 
COPY directive. This parameter works with the COPY directive, which names the 
source programs you want to copy into your program. The options are: 
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(vol-ser-no-1,label-1[, vol-ser-no-2,label-2]) 
Provides the volume serial numbers and file identifiers. You can specify up to 
two volumes and files where source programs are stored. 


(RES, label-1[,RES, label-2]) 
Specifies two library files containing stored source programs; both files are on 
SYSRES. 


(RUN, label-1[,RUN, label-2]) : 
Specifies two library files containing stored source programs; both files are on 
the volume containing the job’s run library file (SYSRUN). 


(*,label-1[,*,label-2]) 
Specifies two library files containing stored source programs; you use this 
format when the files are cataloged, so you need only specify the file 
identifiers. 


({N}) 


Specifies that no source programs should be copied. 





UP-8913 SPERRY UNIVAC OS/3 29-9 
ASSEMBLER Update B 


& LST= 


Alters the normal assembly listing and generates a PARAM LST job control 
statement. If you do not use this keyword parameter, the assembly listing 
contains a source, object, cross-reference, and diagnostic listing. You can specify 
LST options in either of two ways: 


option 
Specifies a single option. 


(opt-1,...,opt-n) 
Specifies more than one option. The parentheses are required. 


The options are: 


N 
Specifies that no assembly listing is produced. 

NC 
Specifies that no cross-reference listing is produced. 

ND 
Specifies that no diagnostic listing is produced. 

NR 

& Specifies that the cross-reference listing is to contain only symbols that 

each have at least one reference. The NC option, if specified with NR, 
always overrides it. 

DBG 


Specifies the proc/macro debug mode feature, which shows the expansion 
of any macro or proc called within the use program. Source code is listed 
twice and shows any appropriate substitutions. Any statements causing 
error diagnostics show the exit line in error. For more information, see the 
LST keyword parameter discussion in Appendix F. 


SCR1= and SCR2= 
The assembler needs two scratch work areas to perform its calculations. 
Normally, the SYSRES device is used for one file and the volume containing the 
job SYSRUN file for the other file. This is what is generated by default. But, you 
can use a different volume if desired. 


SCR 1=vol-ser-no and SCR2=vol-ser-no 
Specify the volume serial numbers of the work files. The default for SCR1 is 
SYSRES, and the default for SCR2 is the job’s $YSRUN file. 





ALTLOD= 
Identify the library file from which the assembler will be loaded if it is other than 
@ the $YSLOD file on SYSRES. 


(vol-ser-no, label) 
Specifies the name of the library file from which the assembler will be loaded 
and the volume serial number of the volume containing that file. 
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pe 


(RES, label) & 


Indicates that the assembler is to be loaded from the file identified by label on 
SYSRES. 


(RUN, label) 
Indicates that the assembler is to be loaded from the file identified by label on 
volume containing the job’s run library file (SYSRUN). 


(* label) 
Indicates that the assembler is to be loaded from a cataloged file specified by 
label. 


29.3.2. Assemble and Link-Edit (ASML) 


When you assemble and link-edit your program, you create and name an object module 
and a load module. The load module is temporarily stored in the job's $YSRUN file. The job 
is not executed. You only assemble and link-edit without executing if you are referencing 
something in your program that is defined in another program. For example, you may have 
external references (EXTRN) and supervisor routines (DUMP), etc. At link-edit time, cross- 
referencing between object modules is completed and loose ends are tied together. If you 
can link-edit without error, you are one step closer to completing the job. 


The load module is saved temporarily in the job $YSRUN file, thus enabling all separate 
object modules to communicate while the job is being run. Once the link edit is complete, 
the load module is removed from $Y$RUN. The load module can be stored permanently as 
discussed in the linkage editor portion of the system service programs user guide. It is 
important to realize that you are using more main storage, for a longer period of time, 
when you assembly and link than when you just assemble. When you use the ASML jproc 
call statement, you cannot use the OUT parameter to define an output library and save the 
generated object module. 





29.3.2.1. ASML Jproc Call Statement 


The format of the ASML jproc call statement generates an assembly and then 
automatically link-edits the object module. The options shown are described in 29.3.1.1. 
Again note that the OUT option is not included. 


lun[,dest] 
//{symbot] AASMLA PRNTR=< N[,dest] 
20[,dest] 


4 (vol-ser-no,label) 
(RES) 
AN=< (RES, label) 
(RUN label) 


(* label) @ 
(continued) 
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@ vol-ser-no-1,label-1 vol-ser-no-2,label-2 \ 
RES label-1 RES, label-2 
LIN= RUN, label-1 RUN label-2 
ra * Jabel-1 ¥ *,label-2 is 
N N 
vol-ser-no-1 ,label-1 vol-ser-no-2,label-2 
RES, label-1 RES ,label-2 
in RUN, label-1 RUN label-2 
eOky= * Jabel-1 ") *label-2 
N N 





_ foption 
[st eee || 
mo] 
y 


(vol-ser-no, label) 
(RES, label) 
,ALTLOD= ¢ (RUN,label) 


(* label) 
& en 


This jproc call statement is useful when you are still testing your program, since it lets you 
see the output of your job without reserving a file for it. Once the job is executing 
properly, you can allocate a file and store the load module by using the linkage editor. This 
jproc call statement is also useful for infrequently run jobs. 
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The functions and use of the linkage editor are explained in the system service programs 

@ user guide. There also is a jproc for executing the linkage editor, just as there is one for 
executing the assembler. This jproc call allows you to do more with the generated load 
module than either the ASML or ASMLG jprocs, such as storing the load module in a 
library. (This does not mean you cannot store your load module when you use either the 
ASML or ASMLG jproc call statements; it only means you cannot do it by the jproc call 
itself). You also can use the LINKOP linkage editor control statement but this involves 
more coding, and the jprocs are designed to reduce coding. The jproc call statement for 
the linkage editor is included in the interactive job control user guide. 





29.3.3. Assemble, Link-Edit, and Execute (ASMLG) 


When you use the ASMLG jproc call statement, you create and name both an object 
module and a load module, temporarily store it in the job SY$RUN file, and then execute it. 
The load module is stored in the job $Y$RUN until execution of the job is completed. You 
cannot use the ASMLG jproc call when the system has the shared data management 
feature because job control must first scan the load modules in $Y$LOD for this feature. 
The GO option associated with the ASMLG jproc call cannot be used. If you use the ASM 
jproc call with a separate LINK jproc call or the ASML jproc call, and want to execute the 
program using the shared data management feature, you must provide a separate EXEC 
statement. 





29.3.3.1. ASMLG Jproc Call Statement 


@ The format of the ASMLG jproc call statement generates an assembly, creates a load 
module, and executes your program. The options shown in this format are described in Y 
29.3.1.1. Notice, however, that the ALTLOD parameter default is RUN,SYSRUN when 
using the ASMLG jproc call statement. The OUT keyword parameter does not apply to the 
ASMLG jproc call statement, only to the ASM jproc call statement. 


lun[,dest] 
//[symbot] AASMLGA PRNTR=< N(,dest] 
{,dest] 









(vol-ser-no, label) 
(RES) 
,IN=4 (RES, label) 
(RUN, label) 
(* label) 
vol-ser-no-1,label-1 vol-ser-no-2,label-2 ) 
RES, label-1 RES Jabel-2 
LIN= RUN, label-1 RUN label-2 
; * Jabel-1 ‘) *,label-2 sages 
N N 
vol-ser-no-1 ,label-1 vol-ser-no-2,label-2 
RES, label-1 RES, label-2 
@ copy={ J RUN.Jabel-1 RUN, label-2 
label-1 ’}) * label-2 
N N 





(continued) 





Fa aR a 
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LST= ae ] 
({opt-1,...,opt-n) 


E 
[ sens 12 {"9% ser-no | 
[ scrz-{ vol-ser- = \ 


(alissetalsball 
(RES, label) 
,ALTLOD= ¢ (RUN, label) 
(* label) 








NOTE: 


Calling the ASML or ASMLG jproc more than once in a single job may create 
unpredictable results. As called by either of these jprocs, the linkage editor includes all 
object modules currently residing in the job $Y$RUN file, even those modules generated 
by ASML or ASMLG jprocs called earlier in the job. In this way, you may accidentally 
include object code that has no place in your intended program. To avoid this problem 
you should: 


1. Call only one ASML or ASMLG jproc per job; or 

2. Assemble individual object modules separately using the ASM jproc, then link the 
modules together with one of the linkage editor jprocs described in the current 
version of the job control and system service programs user guides; these linkage 
editor jprocs give you more control over the generated load module. 


29.4. START-OF-DATA JOB CONTROL STATEMENT (/$) 


A start-of-data job control statement must precede the first card of the source program 
or any macros being submitted with the source program. 


LABEL AOPERATIONA OPERAND . 
| 10 16 





// JOB MYPROG 





END 


/ 
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29.5. FOLLOWING THE SOURCE DECK 


Following the END card in the source deck, you need job control cards to tell the computer 
that you have completed part or all of your job. 


29.5.1. End-of-Data Job Control Statement (/*) 
An end-of-data job control statement follows the END directive of the source program. 


// JOB MYPROG 


// ASMLG 

/$ 

PROGNM START g 
END 

/* 


29.5.2. End-of-Job Control Statement (/&) 


An end-of-job control statement terminates the job which was started by the last JOB 
control statement. It indicates that all job steps have been completed. 


LABEL AOQPERATIONA OPERAND 
| 10 16 





// JOB COMSTOR 

// ASM 

/$ 

PROGA START ) 


END 
/* 
// ASM 
ie: 
PROGB START G 


END 
/x 
/é 
// FIN 


29.5.3. Terminate-the-Card-Reader Job Control Statement (//FIN) 


A terminate-the-card-reader job control statement ends a card reader operation. This 
statement follows the end-of-job control statement as shown in the coding form in 29.5.2. 
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29.5.4. Setting the UPSI Byte 


If any errors are detected in your program while it is being assembled, the assembler sets 
the User Program Switch Indicator (UPSI) byte according to OS/3 system standards to 
indicate the type of errors that occurred. 


UPS! Byte Setting 





Bit O 1 (X‘80’) 
) 
Bit 1 1 (x'40’) 
) 
Bit 2 1 (X‘20') 
) 
NOTE: 


Meaning 


Catastrophic errors were detected in the source program 
that prevented completion of the requested function. An 
object module was not generated. 


No catastrophic errors were detected. 


Serious errors were detected that may have affected (but 
not prevented) the completion of the requested function. 
An object module was generated but the results could be 
unpredictable. 


No serious errors were detected. 

Diagnostic errors were detected but the completion of the 
requested function was not affected. The source program 
contains a legal but potentially undesirable situation. An 
object module was generated. 


No diagnostic errors were detected. 


In the event of a program check, the UPSI byte setting X‘80’, in combination with a 
supervisor macro (STXIT}), provides continuation to the next job step rather than complete 
termination of the job stream. The job step that resulted in the program check is cancelled 
and a dump is produced. For further details about STXIT, see the supervisor 
macroinstructions user guide/programmer reference. 
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29.6. SUMMARY OF JOB CONTROL PROCEDURE 


The following card deck sketches and sample printouts demonstrate the difference in an 
output listing when the same source program is assembled; assembled and link-edited; 
and assembled, link-edited, and executed in three separate steps. 


29.6.1. Assembly 


The following source deck requests an assembly: 
my 


source 
program PROG START O 


// JOB ASSEMBLE 






The listing produced by the assembly source deck is as follows. The headings are 
explained in Section 28. 














UP-8913 SPERRY UNIVAC OS/3 29-15 
ASSEMBLER 
e UNIVAC SYSTEM O$/3 ASSEMBLER VERT91026 
DATE= 8U/U1/07 TIME- 09.45 
ASSEMBLER CONTROL STATEMENTS ENCOUNTERED AND PROCESSED AS FOLLOWS- 
EXTERNAL SYMBOL DICTIONARY PAGE 1 
SYMBOL. TYPE. ESID. ADDRESS. LENGTH. 
PROG csecT O1 vdcdue = yDuOBD 
out ENTRY 1 onooss 
OUTRIE ENTRY O11 uouoso 
PAGE 1 
LOC. OBJECT CODE  ADDR1 ADDR2 LINE SOURCE STATEMENT 0S/3 ASM 80/01/07 
cocooo 1 PROG START 
cocoon u5e0 2 BEGIN BALR 6,0 
cacon2 3 USING #6 
oocuo2 47F9 6010 cao12 4 BRANCH B #416 
cocods cic2zc3c¥4ounsc4o 5 oc — CL8 ABCD 
COCUDE C5c6C7Ca4O404040 6 DC —- CLA *EFGH* 
QU0016 203 6v08 efoC HoOGA nade 7 MVC BRANCH+8 (4) ,BRANCH#12 
8 OPEN OUT,(OUTRIB) 
oungic 9+ CNOP C.4 Pacc0960 
OOCUIC 4510 6026 cgo28 = fe BAL 1 ,#412 Pa001150 
eocu26 61 lie oc oxtaat P3001160 
coco2z1 uouoss 12+ oc = AL340UT? Pa001176 
coru24 80 13+ cc 8 Oxtane Pa001180 
co0u2s uoolse 14¢ OC —s AL 3 (0UTRIB) Pa001190 
Ou00z8 0A26 15+ SVC 38 ‘ISSUE SVC Ps002170 
CONG2A D207 6596 6004 N0098 auduE 16 MVC BUF (8),BRANCH*4 
17 OMOUT OUT,BUF 
oocu30 18+ oc) cv) ® SET ALIGNMENT Pa100690 
COf030 5819 60K6 gucaas 19+ L 1,=A(0UT) # LOAD Ri, CDIB ADORESS PuIUOTLO 
cono34 580 6cAA oocac = 20+ L Gy =A(BUF) * LOAD RNS, WORKAREA ADDRESS Pslo074o 
000u38 9220 1002 gagg2 2+ HVT 201),x*25° ® SET FUNCTION CODE Paruos9o 
cocusc 9207 1073 nuno3 226 MVI-301)0,0 # SET FUNCTION CONTROL BYTE 1 Palo089) 
234 SCALL 47 Pa100920 
coco4o 244 oS oH P3s00810 
cocuso oAEF 25¢ sve 239 P$$01360 
ooou42 196 26+ oe YL C16) P$S01390 
coco43 2F 27+ oc yk c47) P$S01395 
cooos4 uals 28+ svc 25 P$$01590 
cocuse a7c9 29+ NOPR PSS01650 
& cocaxs GAIC 30+ svc 28 PSSU1660 
, cucuye 31 ORG 8-2 
Coda4e Aes 32¢ SVC 133 
33 CLOSE OUT 
CUCO4A 34+ oc suYtny . P3000280 
COCO4A 5819 GAG 9088 = 354 i 1,=ACOUT) LOAD R1 wITH FILENAME ADDRESS Paoozuz0 
COOO4E GAZ? 36+ SVC 39 ‘ISSUE SVC Pa002030 
37 EOJ 
coousa 384 DSH £ouoooso 
Coosa uALA 396 SVC 26 Eougou70 
4Q OUT cDIB 
4t+ ENTRY OUT 
oo0054 426 DS) soUF 
gocos4 112¢ w3+OUT pe xx*1a2ce # COI8 ID AND LENGTH 
cocose goon 44s pc oax"ot 
OO05s D6ESES4O4NVOKCYD 45+ ve = CL@*ouT* FILENAME 
coruéa uoooudonocooenca 46+ pc aa *0¢ 
47 OUTRIB RIB BFSZ=16,10A1=BUF »RCSZ=16, TYPEFLE=OUTPUT »RCFM=FIXUNB 
wae PRINT OFF R1800430 
5644 PRINT ON RIBOO4SD0 
cocosa S65+0uTRIB DS UF R1B00460 
566+ ENTRY OUTRIB RIBQ0480 
PAGE = 2 
LOC. OBJECT CODE ADDR1 ADDR2 LINE SOURCE STATEMENT OS/3 ASM 80/01/07 
cucugu acag 567+ DC —s- ALZ(CRBSSTRT) * RIB START RIBUOSOG 
cocos2 usu2 568+ DC = ALZ(RBSBFSZ) * BFSZ HIC RIBOL41G 
cotoss 0010 569+ OC — ALCL" RBSBFSZI(16) & BUFFER SIZE R1BO1420 
cotose o8G3 570¢ DC —s ALZ(RBSIOAL?D * IOA2 HIC r1e0zo000 
coocse acuoss S71¢ DC —s ALCL *RBSIOAL)(BUF-0) * I0A1 ADDRESS R1B02010 
572+ EXTRN BUF P1B0z040 
cocoss 2202 573+ OC = ALZCRBSRSZ) » RCSZ HIC R1BU5100 
eodoeo ucla 574+ DC —s AL(L*RBSRSZ)C16) * PcSz R1805116 
cocusF 2101 575¢ DC —s ALZ(RBSRCFM) RCFM HIC RIBUS66D 
cocos1 c4 5764 DC —s ALCL" RBSRCFM)(RBSFXUND * RCFM=F IXUNB R1805670 
cocos2 5601 577¢ DC —s AL2(RBSTYPE). * TYPEFLE WIC RIB19970 
cocce4 8G 5784 UC — ALCL" RBSTYPED(RBSOUT) * TYPEFLE=OUTPUT R1B19990 
oo0095 A104 579+ DC = ALZ(RBSREND) * RIB END R1B 31330 
coco%e 580 DS OF 
000098 581 BUF DS zL16 
582 END 
eocoas unonags4 583 =ALOUT) « 
GocuaAc Gounsns8 564 =A (BUF) 


NO STATEMENTS FLAGGED IN THIS ASSEMBLY ~-80/01/07T 09.53- 
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29.6.2. Assembly and Link-Edit 


The following source deck requests an assembly and link-edit: 


my 


source 
program 





PROG START 0 


zi 





The listing produced by this deck is as follows: 


Assembly Listing: 


UNIVAC SYSTEM 05/3 ASSEMBLER 


OATE- 86/61/21 TIME- 02.17 


ASSEMBLER CONTROL STATEMENTS ENCOUNTERED AND PROCESSED AS FOLLOWS- 


SYMBOL» TYPE. ESID. ADDRESS. 
PROG csect 01 0000008 
out ENTRY 01 ooooss 
OUTRIB ENTRY O1 goo0so0 


LOC. OBJECT CODE aoor1 
cococo 

000000 0560 

cocoo2 

go0002 47FO 6010 

aocede cCic2zc3scasnsosoun 
GQOCOOE CSC6C7CB84N4O40K0 
000016 0203 6008 600Cc OU0DA 


oogoic 

cadoic 4519 6026 

ooco20 81 

coog2) o000s4 

goco24 sa 

000025 QconsO 

CO0028 OA2z6 

GOCO2A 0207 6096 6004 A098 


000030 

GOCG30 5810 60A6 

000034 5860 6OAA 

Go0o38 9220 1902 20002 
Gocosc 9200 1003 fu003 


coco4a 
OGCO4O OAEF 
Coco4s2 16 
caca4ss 2F 
O0G0044 OA19 
codgose 3709 
Cacoss oaic 
cocoss 
cocoss gags 


OOCOSA 
OOCO¥A 58190 606 


AOOR2 


00012 


OOCGE 


00028 


o0006 


codas 
Qua ac 


Cog as 


LENGTH 


voooso 


Lint 
2 
2 


w 


ry 
5 
6 
7 


8 

9+ 
10+ 
lle 
l2e 
13+ 
14 
154 
16 

17 

18s 
194 
204 
2le 
22+ 
23+ 
246 
25+ 
264 
27+ 
28+ 
294 
30+ 
31+ 
324 
33 
A 34 
A 354 


> rrr rr > 


PP TOM MOTTO > ey yp bP Pp 


EXTERNAL SYMBOL DICTIONARY 


“SOURCE STATEMENT 


PROG 
BEGIN 


BRANCH 


START 
BALR 
USING 
8 

oc 

oc 
MVC 
OPEN 
cNnoPp 
BAL 
oc 

boc 

oc 

oc 
svc 
MYC 
OMOUT 
oc 

L 

L 

wvI 
AVI 
SCALL 
os 
svc 
oc 

oc 
svc 
NOPR 
svc 
ORG 
svc 
CLOSE 
oc 

t 


a 

6,0 

#96 

e*16 

CLS*aBCcD® 
CL8*EFGH*® 
BRANCH+8(4) ,BRANCH?12 
OUT, ¢QUTRIB) 
0,4 

1,412 

xsi? 
AL3(OUT) 
x*eor 
ALZ(OUTRIB) 
38 ISSUE SVC 
BUF (8 ) BRANCH +4 
OUT, BUF 
CYC) « 
1,=A(0UT) * 
G,=ACBUF) # 
2C1),x*20" «& 
341),0 * 

a7 

LH 

239 

YL1i(16) 
YL1(47) 

2s 

c 

28 

a-2 

133 

OUT 

cyto) 


1,=ACOUT) LOAD RI WITH FILENAME ADDRESS 


SET ALIGNMENT 
LOAD R18, COIB ADDRESS 
LOAD RCS, WORKAREA ADDRESS 
SET FUNCTION CODE 
SET FUNCTION CONTROL BYTE 1 


29-16 





VER7T921026 
PAGE a 
PAGE 1 


OS$/3 ASM 88701721 


Pa000960 
Ps0011S0 
Pa0col160 
Pa001170 
Pa001180 
Pa001190 
Psoo2i70 


Palooeso 
Paroo7ia 
Perlao7sa 
Paloossa 
Po100891 
Pslo0920 
P$so0810 
P$S01380 
P$$01390 
P$SO1395 
P$S0159G 
P$s01650 
Pss01660 


Ps000zs0 
Pac02020 








L - DEFERRED LENGTH M4 - MULTIPLY DEFINED 


S - SHARED ITEM U - UNDEFINED REF 
@ANY OTHER CODES REPRESENT PROCESS ERRORS*#® 


LINK EDIT OF °LNKLOD® COMPLETED 
OATE~ 80/01421 TIME- 92.28 
ERRORS ENCOUNTERED- OG0G UPSI- x°00° 


N - NOT INCLUDED P - PROMOTED COMMON 


Vo - VCON ITEM 
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QOO04E CA27 A 36% sve 39 ISSUE SVC Pa0g2030 
37 c0u 
ooo0osa A 384 os cH €ovo0050 
GOCOSO GAIA A 394 svc 26 £0yo0070 
40 ouT cos 
A 4le ENTRY OUT 
oacoss A We os uF 
Gooos4 112Cc A 43eouUT oc X°112C° # CDIB I0 ANO LENGTH 
gocoss ooca A 4M oc 2x*ae 
000058 D6éEsE34040404040 A 4Se oc CLE°OUT® FILENAME 
ocdgéo ooodod0000Rg0G000 aA 46 oc 8F*O° 
47) ouTRIB RIB BFSZ=16,I10A1=BUF »,RCSZ=16,TYPEFLESOUTPUT »RCFM=FIXUNG 
A 4B PRINT OFF R1B00510 
A S86+ PRINT ON R1800S30 
000080 A 587+OUTRIB os oF RIBOO58O 
A 588+ ENTRY OUTRIB RiB00560 
PAGE 2 
LOC. OBJECT CODE ADORI ADDR2 LINE SOURCE STATEMENT OS/3 ASM 80/01/2) 
Cacosc anoo A S894 oc ALZ(RBSSTRT) * RIB START Rk16800S80 
cacos2 Go4o2 A 590+ pc ALZ(RBSBFSZ) * BFS2Z HIC RIBOIS8O 
cotass yon A 5914 oc ALCL *RBSBFSZ)(16) * BUFFER SIZE R1B01590 
Coccs6 ocBG3 A 592+ oc ALZ(RBSIOAI) © IOAl HIC RI802480 
coogss o0Gnes A S934 oc AL(IL*RBSIOALD(BUF-G) © IOAl ADORESS R1p02450 
A 5940 EXTRN BUF R1B02480 
Coauss 2202 a S95+¢ oc ALZ(RBSRSZ) & RCSZ HIC R1605890 
g00csD 9010 A S96+ oc AL(L*RBSRSZ)(26) RCSZ R1B05900 
cacosrF 21¢c1 A 597+ oc ALZ(RBSRCFM) RCFM HIC R1806610 
coco91 G4 A 598+ oc AL(L*RBSRCFMICRBSFXUN) * RCFM=FIXUNG R1B06820 
Cocus2 56cl A 5994 oc AL2ZC(RBSTYPE) # TYPEFLE HIC R1621210 
oogog94 sa A 600+ oc ALIL*RBSTYPED(RBSOUT) #& TYPEFLE=OUTPUT RI821230 
0oo09s Alo A 601+ oc ALZ(RBSREND) *# RIB END RIB33980 
cocass 602 os cr 
c00098 603 BUF DS 2Li6 
664 END 
GocoAs oocno0gs4 605 =A(OUT) 
CodGAC counones 606 =ACBUF) 
DIAGNOSTICS PAGE i 
LINE ERROR CODE MESSAGE 
NO STATEMENTS FLAGGED IN THIS ASSEMBLY -80/N1/21 O2.27T- 
Linkage Editor Listing: 
UNIVAC SYSTEM 0S/3 LINKAGE EDITOR vERs6ehiG 
OATE- 80/01/21 {IME- 02.27 
CONTROL STREAM ENCOUNTERED ANO PROCESSED AS FOLLOWS- 
*GENERATED® LOADM 
PROG *RUN LIBE MODULE* 
*DEFINITIONS DICTIONARY® 
SYMBOL. TYPE. PHASEs ADDRESS. SYMBOL. TYPE. PHASE. ADDRESS. SYMBOL. TYPE. PHASE. ADDRESS. 
KE SALP ENTRY ABS cooocasu KESRES ENTRY ABS ooocoo8o OuT ENTRY ROOT oocoross 
Ou TRIB ENTRY ROOT cooocusc PROG CSECT ROOT oa0g0000 
** ALLOCATION MAP #«@ 
LOAD MODULE - LNKLOOD SIZE - oooo00so 
PHASE NAME TRANS ADDR FLAG LAGBEL TYPE Es1o LNK ORG HIADDR LENGTH OBS ORG 
LNKLOOGG NODE - ROOT ooco0ccU oocoooaF oo00000e8G 
*9* START OF AUTO-INCLUDED ELEMENTS - 
#88 END OF AUTO-INCLUDED ELEMENTS - 
- 80/01/21 02.27 - PROG OBJ 
PROG CSECT OL fooo0000Gc oonocoar ooococsa oooceota 
OuT ENTRY 01 ocooogs4 gooo0gs4 
OUTRIB ENTRY 01 ocooosso oo0otoso 
acososan 
FLAG CODES - 
B - BLK DATA CSECT D - AUTO-DELETED € - EXCLUSIVE °A* REF G - GENERATED EXTRN I - INCLUSIVE ‘V* REF 


R - SHARED REC PRODUCED 


The definitions dictionary and allocation map are explained in the system service programs 


user guide. 
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29.6.3. Assembly, Link-Edit, and Execution 





The following source deck requests an assembly, link-edit, and execution: 


a | f= 


PROG START 0 









/$ 


//DVC 20 // LFD OUT 


// JOB ASSMBLG 





The listing produced by this service deck is the same as the assembler and link listing, but 
it includes the results of the execution. This program moved letters and printed out the 
field containing ABCDEFGH. 





29.7. RUNNING ASSEMBLER FROM A WORKSTATION 


OS/3 provides you with the capability of assembling, link-editing, and executing your 
program interactively. This means two things: 


1. you can build a control stream to execute the assembler, linkage editor, and user 
programs at a workstation, as opposed to punching them on cards or writing them to 
a diskette; and 


2. you can initiate the running of the control stream from the workstation, as opposed to 
asking the system operator to run your job for you. 


The easiest way to build a control stream from a workstation is by using the job control 
dialog. The job control dialog is an interactive facility of OS/3 that allows you to describe 
your job's requirements in English, in response to a series of questions, and then produces 
as its output, the job control stream needed by OS/3 to run your job. The control stream 
produced by the job control dialog is virtually identical to the control stream that you 
would need to produce if your were running your job in a batch environment. Only now, 
you do not have to be concerned with the intricacies of the job control language. The job 
control dialog eliminates this requirement. 
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After you have answered all the questions presented to you by the job control dialog, it 
builds a control stream and stores it in a permanent library file for you. From here, you 
can initiate its running by simply keying in the appropriate system RUN command, or if 
you'd rather, you can change the contents of the control stream using another interactive 
facility of OS/3 called the general editor. 


The procedures for activating the job control dialog, initializing the running of a job, and 
activating the general editor are described in detail in the OS/3 workstation user guide. 


More detailed descriptions of the job control dialog and the general editor are presented in 
the interactive job control user guide and the general editor user guide, respectively. 
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30. Example Macro Definitions 


This section gives examples of both PROCs and MACROs. The explanation of these 
examples places the primary emphasis on the macro source code instead of on the 
resulting inline expansion source code. Descriptions of the macro definitions resolve 
around variable parameter replacement and variable inline expansion code caused by 
conditional assembly statements. Each description is accompanied by the macro source 
code and an example call with the inline expansion code. 


30.1. SMALR/LARGR PROC (POSITIONAL PARAMETER 0) 


The following example PROC selects either the smallest or largest of three positional 
parameters submitted in the call instruction. Two different mnemonics are provided for 
indicating whether the smallest or largest value is selected. The call SMALR is used for 
smallest value selection and the call LARGR is used for largest value selection. This PROC 
is a good example of using positional parameter O. 


PROC Source Code: 


coMmy PROC &844 
SMALR NAME &NH 
LARGR NAME BNL 
AIF (N°EM NE 4)6ERR Test for 4 parameters. Branch to print error message if untrue. 
EDMY Zap EW(1)D Et 2) Select first value. 
CP ERt1), €003) Compare to next value. 
Ewe(o) #910 BNH or BNL or 
ZAP #01) ,68803) Select next value. 
cP Cwtild,fet4) Compare to next value. 
€#t0) e100 BNH or BNL or 
ZAP G#11),E6804) Select next value 
MEXIT 
eERR MNOTE ‘IMPROPER PARAMETERS--NO GENERATION' 
END 


Inline Expansion Code (smallest value): 


SMALR SELECT, VALI ,VAL2, VALS 
ZAP SELECT, VAL2 

cP SELECT, VAL2 

BNH #*10 

ZAP SELECT, VAL2 

ce SELECT, VAL3 

BNR ee10 

ZAP SELECT, VAL3 
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Intine Expansion Code (largest value): 





LARGR SELECT, VALI,VAL2, VAL3 
Zap SELECT, VAL} 


cP SELECT, VAL2 
BNL #10 
ZAP SELECT sVAL2 
cP SELECT, VAL3 
BNL e710 


ZAP SELECT, VAL3 


Operand 2 of the PROC statement indicates there are four positional parameters that can 
be passed from the call instruction, and &# is the symbolic parameter that references the 
positional parameters. This PROC requires all four positional parameters from the PROC. 
Otherwise, no inline expansion takes place and the message coded in the MNOTE is 
printed. 


The AIF conditional assembly statement tests to see whether the four parameters are 
present. Whether the smallest or largest value is selected from the call instruction is 
dependent upon generation of the BNH or BNL instruction in the inline expansion code. 
This is controlled by the ca//-names SMALR or LARGR used in the two NAME statements. 
SMALR implements BNH for positional parameter O and LARGR implements BNL. 


The two model statements referencing positional parameter O (&#(0)) are the instructions 
that determine smallest or largest value selection. The inline expansion code shows that the 
SMALR call instruction generates BNH in place of &#(0) and the LARGR call instruction 
generates BNL. 





Positional parameter 1 of the call instructions indicates an area to receive the selected 
value. It is referenced in the model statements (&#(1)) in operand 1 of the add instructions 
and compare instructions. Positional parameters 2 through 4 of the call instructions are 
the values to be selected. The model statements that perform the calculations for finding 
the smallest or highest value have references to positional parameters 2 through 4 (&#(2) 
through &#(4)). 


The MEXIT statement ends PROC processing at this point in the PROC, so the message 
isn't printed. The MNOTE is printed only if there aren't four positional parameters in the 
call instruction. 


30.2. SMALL6/LARGE6 PROC (DO LOOP) 


The following example PROC selects either the smallest or largest of the positional 
parameters in the call instruction, just like the SMALR/LARGR PROC. This PROC 
broadens the usage range by allowing the caller to specify from 3 to 100 values instead of 
limiting the caller to only 3 as did the SMALR/LARGR example PROC. There are two call 
mnemonics provided: the SMALL6 is used for small value selection and the LARGE6 is 
used for large value selection. The two mnemonics are provided via positional parameter 
0. The SMALL6/LARGE6 PROC shows a design using DO loops to provide variable inline 
expansion code. The DO range is determined by the number of values in the call 
instruction; the more values in the call, the more lines of source code generated. 
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PROC Source Code: 

EOMY PROC &P,100 

SMALLO6 NAME BNH 

LARGE6 NAME BNL 
b0 N°EPD>2 

gOMY ZAP EPCLI,ZEP(2Z} 

ect 00 N*EP-2 
CP EP(D),EPCECT#2) Inner DO loop. The instructions CP, BNH/BNL, 
EPtO) +10 and ZAP will be generated the number of positional 
ZAP EPELI,EPLECT*2} parameters in the call instruction minus two. 
ENCGO 
ENOO 
00 N*EP<3 
PNOTFE *NOGEN*s*MINIMUM OF THREE PARAMETERS REQUIRED 
ENDO 
ENO 


Inline Expansion Code (smallest value): 


SMALL6& SELECT, VALI, VALZ2,VAL3, VAL4Y,VALS Number of parameters = 6 
ZAP SELECT, VALI 

cP SELECT, VAL2 

BNH #e10 First inner DO generation 

ZAP SELECT, VAL2 

cep SELECT, VAL3 ; 

BNH *e10 Second inner DO generation DO iteration = 6-2 =4 
ZAP SELECT, VAL3 

cp SELECT, VAL4 | 12, 

BNH #+10 ; f Third inner DO generation DO N'&P—2 

ZAP SELECT, VAL4 

ce SELECT, VALS : . 

BNH **10 Fourth inner DO generation 


ZAP SELECT, VALS 


Inline Expansion Code (largest value): 


LARGE6 SELECT,VALI, VAL2 pVAL3,VAL4Y VALS 
ZAP SELECT, VAL} 


cP SELECT, VAL2 | 
BNL #416 i 1 
Zap SELECT, VAL2 
cp SELECT, VAL3 | : 
N “+ 
ae SELEC T,VAL3 f Outer DO processed because number of parameters 
cP SELECT» VALY are more than 2 (DO N‘&P > 2). 
BNL *e10 3 
ZAP = - SELECT, VALY 
cP SELECT, VALS | p 
BNL #10 
ZAP SELECT, VALS 


Operand 2 of the PROC statement indicates that the user can code up to 100 parameters 
in the call instruction while the symbolic parameter is &P. Two mnemonic codes can be 
used to call this PROC, as coded in the label field of the two NAME statements. Each is 
used to implement different BAL instruction codes via positional parameter O (&P(O)). In 
this PROC, positional parameter O is referenced only one time, while in SMALR/LARGR it 
was referenced twice. This is because the inner DO loop generates the required number 
BNH/BNL instructions to process the number of values coded in the call instruction. Of 
course, the inner DO is never processed unless the outer DO is. 
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In order for the outer DO to be processed, there must be more than two positional 
parameters in the call (DO N‘&P>2). If there are two parameters or fewer, a zero is 
generated in the outer DO operand and the DO with the PNOTE is generated. 


A 1 is generated in the operand field of the PNOTE DO because there are less than three 
parameters (DO N‘&PL3), and the message in the PNOTE its generated. The call instruction 
for the SMALL6/LARGE6 example PROC must have a minimum of 3 positional 
parameters and can have a maximum of 100. This gives a range of 1 to 98 values to be 
tested for the highest or lowest value. If you compare this with the SMALR/LARGR 
example PROC, you can see that the SMALL6/LARGE6 PROC provides much more than 
SMALR/LARGR and has only one more line of code. 


30.3. BLANK MACRO (VARIABLE INLINE EXPANSION CODE) 


In the following example, MACRO blanks (X‘00’) the content of a specified number of 
bytes. There are only two positional parameters that can be submitted with the BLANK call 
instruction, and one is optional. Positional parameter 1 indicates the starting address of 
the area to be cleared, and positional parameter 2 specifies the number of bytes to be 
cleared. If the number of bytes in the area is less than 257, parameter 2 is optional. The 
BLANK MACRO is an example of variable inline expansion code. There are three basic 
sets of code that can be generated from this MACRO. Positional parameter 2 is used to 
determine which set is generated. 


MACRO Source Code: 


MACRO 
fOMY BLANK E#1,682 
LCLA &LA] 
DO (NT ESYSLISTOZ1+¢*# (N° ESYSLISTC1) ates 
MNOTE 7,*IMPROPER PARAMETERS - NO GENZIRATION® 
MEXIT 
ENDO 
00 N*ESYSLIS T=) 
AIF (L'é#1] GT 256).A1 Code generated if 
comMy XC 81,081 ne 
MEXIT positional parameter 2 
eAl MNOTE 6,°LENGTH OF &81>256 - PARAM: 2 MUST BE USED® is omitted 
MEXIT 
ENOO 
AIF (TEN? NE *NE),A2 
ELAl SETA &#2 
comy L TS,=ACEN]) 
exe) 82/256 
Peseta Code generated for 
ELAI SETA &LA1-256 more than 256 bytes 
ENDO 
00 ELALDO 
xc OCELAT,151),0¢15) Code generated for Jess 
ENDO than 256 bytes 
MEXIT 
eA2 MNOTE 8,*PARAMETER 2 NOT NUMERIC® 


MEND 
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eee 
Inline Expansion Code: 
BLANK PRIBF,893 
L IS,=AtPRIBF) These two instructions were generated from the last DO because 
xc 0(80,152,0¢1513 positional parameter 2 is less than 256. 


The prototype statement establishes the call mnemonics as BLANK and indicates there can 
be two positional parameters in the call that are referenced in the body as &#1 and &#2. 
The LCLA declares &LA1 as an arithmetic set symbol. Set symbols must be declared 
following the heading and preceding any other model statements. 


The rest of the body of this MACRO is sectioned by four DO statements. The first DO is an 
error exit. If either or both expressions on each side of the OR (++) operator are true, then 
no code is generated and the MNOTE message is printed. That is, the numeric attribute of 
the parameter list (N‘'&SYSLIST) is anything other than 1 or 2, then the blank MACRO will 
not work. 


The second DO is processed only if there is one parameter in the parameter list 
(N’&SYSLIST=1). And if the area indicated by positional parameter 1 is greater than 256, 
the AIF statement will shunt the generation of the XC instruction (the blanking operation) 
and print the MNOTE message. If the numeric attribute of the parameter list is 2, then the 
second DO loop is not processed and the AIF after this DO is processed. This AIF tests 
positional parameter 2 (&#2) for a self-defining term; if it isn’t, no code is generated and 
the MNOTE is printed. 


The &LA1 set symbol is set to the value of positional parameter 2, which is the number of 
bytes to be cleared. Register 15 is loaded with the address of area (&#1). The next DO loop 
is processed once for every multiple of 256 bytes indicated in positional parameter 2 (DO 
&#2/256). If positional parameter 2 is less than 256, the next DO is processed and the 
last one is not. 


There are three sets of codes that can be generated from the BLANK example MACRO. 
One set is generated if positional parameter 2 is omitted; another if positional parameter 2 
is more than 256; and another if positional parameter 2 is less than 256. 
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Appendix A. Sample Program 





The following list illustrates the steps taken to create, code, and execute a simple 
assembler program. The sample problem is designed to calculate the effect of a $5.00 a 
week bonus on an employee's yearly, weekly, and hourly pay. 

= = =Flowchart 


The flowchart provides a graphic representation of the logic steps used to solve the 
problem. 


@ STMT 











eae HOUSEKEEPING 7 STORE WEEKLY 
ru SETUP PAY 
MULTIPLY BONUS DIVIDE WEEKLY 
5 thru 6 BY 52 11 and 12 PAY BY 40 HOURS 
ADD TOTAL 
‘ BONUS 6 STORE HOURLY 
YEARLY PAY 
MOVE TOTAL 
STORE TOTAL 
8 RECORD TO OUTPUT 
YEARLY PAY eee 
& DIVIDE THE 
" 9 TOTAL YEARLY 15 EOJ 


PAY BY 52 WEEKS 
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STMT 


23 


24 
25 
26 
27 
28 


29 


Source Code 
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Source code is created to implement the logic flow set forth in the flowchart. In the 
following list, comments have been included to explain what each source statement 


does. 


SYMBOL 


PROGRAM 1 
BEGIN 


WORKAREA 


BONUS 
HOURS 
WEEKS 
YEARRATE 


OUTPUT 
EMPLOYEE 


NAME 


WORKNO 
YEARPAY 
WEEKPAY 
HOURPAY 
R6 


OPERATION 
CODE 


TITLE 


START 
BALR 
USING 
ZAP 
MP 
AP 
MVC 
DP 
MVC 
ZAP 
DP 
MVC 
MVC 
EOJ 
DS 


DC 
DC 
DC 
DC 


DC 
DS 


Dc 


DC 
DC 
DC 
DC 
EQU 


END 


STATEMENT OPERANDS 


‘FIRST SAMPLE PROGRAM’ 


0 

R6,0 

*R6 

WORKAREA,BONUS 
WORKAREA,WEEKS 
WORKAREA,YEARRATE 
YEARPAY,WORKAREA+2 
WORKAREA,WEEKS 
WEEKPAY,WORKAREA+1 
WORKAREA, WEEKPAY 
WORKAREA,HOURS 
HOURPAY,WORKAREA+2 
OUTPUT(23), EMPLOYEE 


CL6 


PL2‘500' 
PL2‘40’ 
PL2‘52' 
PL4‘1300000' 


23C’ ' 
OCL23 


CLO‘REBEW R D’ 
C’N4543’ 

PL4'0’ 

PL3’0’ 

PL2’0' 

6 


BEGIN 


Job Control Procedure to Assemble 


COMMENTS 


Provides the assembler listing with a 
heading. 

Provides a starting point for the program. 
Assigns a base address to the register. 
Assigns a base register to the program. 
Enter bonus rate into work area. 
Multiply bonus rate by 52 weeks. 

Add yearly rate to total bonus. 

Move calculated total to yearly pay area. 
Divide total pay by 52 weeks. 

Move results to weekly pay area. 

Move weekly pay into work area. 

Divide by 40 hours week. 

Move results to hourly pay area. 
Completed record moved to output area. 
End of job. 

Reserve 6 bytes of storage, contents 
unknown. 

Place value 5.00 in two bytes of storage. 
Place value 40 in two bytes of storage. 
Place value 52 in two bytes of storage. 
Place value 13000.00 in four bytes of 
storage. 

Produces 23 bytes of blanks only. 
Symbol “EMPLOYEE” represents next 23 
bytes. 
Produces 
“REBEWRD”. 
Produces five bytes containing “‘N4543”. 
Produces four bytes of zeros. 

Produces two bytes of zeros. 

Produces two bytes of zeros. 

This instruction equates register 6 with 
R6. 

THIS IS THE END OF THE PROGRAM. 


nine bytes containing 


The following job control statements assemble the source code into an object code 


module. 


Job Control Statements 


// JOB ASSEMBLE 


// 
/$ 


ASM 


F Assembler 
; source 


- code 
/* 
/& 
// FIN 


Comments 


Assigns a unique name to the program. 
Assembles the source code. 
Signifies the start of the source statements. 


Signifies the end of the source statements. 
Signifies the end of the job. 
Terminates card reader operation. 
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& = Output Generated by Assembly 


The program is now assembled and an assembly listing is generated. The assembly 
listing contains warning messages if any errors are detected in the source code. 


UNIVAC SYSTEM OS/3 ASSEMBLER VER800922 
DATE~ 81/12/30 TIME- 23.09 


ASSEMBLER CONTROL STATEMENTS ENCOUNTERED AND PROCESSED AS FOLLOWS- 


4s 


EXTERNAL SYMBOL DICTIONARY PAGE 1 
SYMBOL. TYPE. ESID. ADDRESS. LENGTH. 
PROGRAML CSECT 01 ooooau BDOI7E 
FIRST SAMPLE PROGRAM PAGE 2 
LOC. OBJECT CODE ADOR] AODR2 LINE SOURCE STATEMENT OS/3 ASM 81/12/30 
oocooo 2 PROGRAML STAST O 
oood00 0560 3 BESIN BALR R6,yo 
000002 4 USING ¥#,R6 
GO0002 F851 SOSE 6044 CO040 UI046 5 ZAP = WORK AREA, BONUS 
000008 FC51 603E 6048 D0040 cOn4A 6 MP WORK AREA, WEEKS 
OOOOOE FASS 603E 604A 20080 OD04C 7 AP wORKAREA,YEARRATE 
000024 D205 6073 6040 30075 00042 8 MVC —- YEAPP AY »wORKAREA#2 
QOOO1A FUS1 603E 6048 20040 D004 9 pp wORKAREA pWEEKS 
000020 D202 6077 603F 00079 00041 ic MVC =- KEEK PAY pWORKAREA*1 
000026 Fasz 603€ 6677 OG040 u2079 il ZAP = WORK AREA, WEEKPAY 
oo00zc FDS: 693— 6046 COo4o o9048 12 uP sORKAREA ,HOURS 
000032 0201 607A 6040 DOO7C o3042 13 MVC  —- HOURP AY, WORK AREA +2 
000038 D216 604E 6965 DCeS5O 09067 14 MVC =‘ OUTPUT(23) ,EMPLOYEE 
15 EON 
00003 A 16+ os CH £ou000S0 
OOOD3E OALA A 17+ svc 26 £0J00070 
opoo4p 18 WOPKAREA OS cL6 
oooo46 sooc 19 30NUS oc FL2°596° 
oo00%8 o4oc 29 HOURS oe PL2°4C? 
oooo4sA O52c 21 WEEKS ze PL2¢52¢ 
oooo4c 1s9u000C 22 YEARRATE OC PL4"1 30°00" 
000050 4o4D4s04o40404040 23 ouTPUT tC 23c* * 
000067 24 EMPLOYEE GS OCL23 
000067 D9CSCZ2C5E6400940 25 NAME ce CL9"REBEW R D? 
000070 DSF4FSF4F3 26 WORKNO CC C*NUS 43° 
000075 ooouoooc 27 YEARPAY iC PLatg? 
ooeo79 ooovoc 28 WEEKPAY SC PL3'G? 
oo007¢ ovoc 29 HOURPAY LC PL2'o° 
000006 30 P6 EL 6 
ooo090 31 ENG  BESIN 
CROSS-REFERENCE PAGE 1 
SYMBOL LENGTH VALUE 9JEFN SYMBOL LENGTH VALUE OEFN 


BEGIN ouodo2 cooooo 90003 0031 
BONUS ou0c2 Ou0046 00019 ooos 
EMPLOYEE 00023 O00067 90N24 0014 
HOURPAY Qo002 ooO007C 00029 0013 
HOURS augoo2 ocoo4s 90020 oole 
NAME ooo09 900067 30025 

OUTPUT ouoel guooso 00623 oc14 
PROGRAM1 QU0D1 OuOo000 cnto2 


R6 go0001 oooo06 00036 o003 ao004 
WEEKPAY 00003 OuGO79 00028 0010 90011 
WEEKS 00002 gooo4a 00521 c006 93009 


WORKAREA 00006 OUu0040 00018 goos acoe oo07 coos GGO9 
0010 oOo11 CcO1r12 0023 

WORKNO 00005 oUuoo70 O0o26 

YEARPAY Qoo0% 000075 00027 ocos 

YEARRATE OOO04 OoOO4sC IO022 6007 


DIAGNOSTICS PAGE 1 


LINE ERROR CODE MESSAGE 


NO STATEMENTS FLAGGED IN THIS ASSEMBLY “81/12/30. 23.09- 
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a Job Control Procedure to Assemble, Link-edit, and Execute 





After the errors in the source code are corrected, the following job control statements 
are added to assemble the code, create a load module, and execute the program. 


Job Control Statements Comments 
// JOB ASSEMBLE Assigns a unique name to the program. 
// ASMLG Assembles, link-edits, and executes the program. 
/$ Signifies the start of the source statements. 
Assembler 
° source 
3 code 
/* Signifies the end of the source statements. 
/& Signifies the end of the job. 


// FIN Terminates card reader operation. 
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Appendix B. Character Conversion 
Codes 


Table B—1. ASCII (American Standard Code for Information Interchange) Character Codes 


aa 
ete 





Tee me 


























7 BEL ETB 
8 8S CAN 
9 HT EM 
A LF SUB 
B VT ESC 
c = FF FS 
Do | CR GS 
iam so RS 














NOTES: 


Some graphic card code and hexadecimal assignments may differ depending on the device, language, 
application, and installation policy. 


‘O) The following optional graphics can be substituted ® Graphics available by use of the 0768—02 
in the character set: printer which prints a 94-character set (DEL is 
not a graphic) 
“| for A 
@ Ninety-four printable character set. 
| for | 


@ Sixty-three printable character set. 
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Table B—2. EBCDIC (Extended Binary Coded Decimal Interchange Code) Character Codes 





[2 fon [eA] vnel 
J} nf) ACK Sy 
Ececmcc 


NOTES: 





By 


Some graphic card code and hexadecimal assignments may differ depending on the device, language, 
application, and instailation policy. 


@ DS, SOS, FS are the control characters for the @ The lowercase alphabet and indicated graphics are 
EDIT instruction and have been assigned for introduced by use of the 0768—02 printer, which 
ASCII mode processing so as not to conflict prints a 94-character set. 
with the corresponding character positions 
previously assigned in the EBCDIC chart. As ® The following substitutions are made for the UTS 400 handler: 
these characters are not outside the range as 
defined in American National Standard SPROT for SO 
institute X3.4 — 1968, they must not appear EPROT for SI 
in external storage media, such as American SB for FS 
National Standard Institute standard tapes. EB for GS 
This presents no difficulty due to the nature SOE for RS 
of the EDIT instruction. FCC for US 
MW for BEL 
; . : : ] for! 
@®@ The following optional graphics can be substituted ! for ] 


in the character set: 


DC4 for th 
A torr] © ‘or the UTS 400 handler. 


lfor! 


@ For 63-character printers, the following substitution 
is made: 





\ fori 
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Table B—3. Punched Card, ASCII, and EBCDIC Codes (Part 1 of 5) 


Printed cra {| son | wcrc 
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Table B—3. Punched Card, ASCil, and EBCDIC Codes (Part 2 of 5} 


Printed 
Symbol 


12—0—4 


12—0—5 


12—0-—6 


12-0--7 


12—0—8 


12—0-9 


12—11-1 


12-11-2 


12-11-3 


12-114 


12-11-5 


12~11-6 


12-11-7 


12—11-8 


12-11-9 


11-0-2 


11-0-3 


11-0—4 


11-0-5 


11-0-6 


11-0-—7 


11-0-8 


11-0-9 
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Table B—3. Punched Card, ASCII, and EBCDIC Codes (Part 3 of 5) 


pee Printed | __ascn_| score _ 
Symbol nate Hexadecimal | Decimal | 















Exclamation point 






Quotation mark, dieresis 






Number sign, pound sign 


Doilar sign 






Percent sign 







Ampersand 







Apostrophe, acute accent 







Opening parenthesis 


Closing parenthesis 







Asterisk 






Plus sign 







Comma, cedilla 






Minus sign, hyphen 


Period, decimal point 






Slash, virgule, solidus 









Colon 







Semicolon 


Less than 







Equal sign 








Greater than 







Question mark 






Commercial at symbol 







Opening bracket 


Closing bracket 








Reverse stash 






Circumflex 
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Table B—3. Punched Card, ASCII, and EBCDIC Codes (Part 4 of 5) 


crs | asus] ewer 


Character 


Undertine 
Grave accent 
Opening brace 
Closing brace 
Vertical line 


Overline, tilde 


ACK (Acknowledge) 

BEL (Bell) 

BS (Backspace) 

CAN (Cancel) 

CR (Carriage return) 

DC1 (Device control 1) 
DC2 (Device control 2) 
DC3 (Device control 3) 
DC4 (Device control 4) 
DEL (Delete) 

DLE (Data link escape) 

DS (Digit select) 

EM (End of medium) 
ENQ (Enquiry) 

EOT (End of transmission) 
ESC (Escape) 

ETB (End of transmission block) 
ETX (End of text) 

FF (Form feed) 


FS (File separator) 


Punches 


F  Nmprinnttncmnnctes Characters 
0-9-—8-6 
0-9-8-7 
11-9-6 
11-9-8 
12—9-8-5 
11-9-1 
11-9-2 
11-9-3 
9-8-4 
12-9~7 
12—11-—9~—8—1 
11—0-—9-8-1 
11-9—-8-1 
0-9-8-5 


9-7 


0-9-6 
12—9-3 
12—9-—8—-4 


11-—9-8-4 
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Table B—3. Punched Card, ASCIl, and EBCDIC Codes (Part 5 of 5) 


aa | nscn | ewe i 
Character 


FS (Field separator) 0-9-2 
GS (Group separator) 11-—9—8-—5 
HT (Horizontal tabulation) 12~9—-5 


LF (Line feed) 0-9-5 


NAK (Negative acknowledge) 9—8-—5 


NUL (Null) 12—0-—9-8-1 
RS (Record separator) 11—9-8-—6 
SI (Shift in) 12-9-—8-7 
SO (Shift out) 12-9-8-—6 
SOH (Start of heading) 12-9—1 
SOS (Significance start) 0-9-1 

SP (Space) 

STX (Start of text) 

SUB (Substitute) 

SYN (Synchronous idle) 

US (Unit separator) 


VT (Vertical tabulation) 
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Appendix C. Math Tables 


C.1. HEXADECIMAL-DECIMAL INTEGER CONVERSION 
Table C—1 provides for conversion of hexadecimal and decimal numbers in the range: 


Hexadecimal Decimal 





000 to FFF 0000 to 4095 
In the table, the decimal value appears at the intersection of the row representing the 
most significant hexadecimal digits (162 and 16') and the column representing the least 
significant hexadecimal digit (16°). 


Example: 


hexadecimal C21 = decimal 3105 


HEX 0 1 2 
co 3072 3073 3074 
C1 3088 3089 3090 
C2 3104 3105 3106 
C3 3120 3121 3122 


For numbers outside the range of the table, add the following values to the table figures: 








Hexadecimal Decimal Hexadecimal Decimal 
1000 4,096 C000 49,152 
2000 8,192 DOOO 53,248 
3000 12,288 EOOO 57,344 
4000 16,384 FOOO 61,440 
5000 20,480 10000 65,536 
6000 24,576 20000 131,072 
7000 28,672 30000 196,608 
8000 32,768 40000 262,144 
9000 36,864 50000 327,680 
AOOO 40,960 60000 393,216 


BOOO 45,056 70000 458,752 





UP-8913 


Example: 


BC21 16 = 48,161 10 


Hexadecimal 


C21 
+B000 
+BC21 





Decimal 





3,105 
+45,056 
48,161 


SPERRY UNIVAC OS/3 
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Table C—1. Hexadecimal-Decimal Integer Conversion (Part 1 of 4) 


at De DS eee 
0000 0003 0004 0005 0006 0007 0008 *| 0009 


0002 
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Table C—1. Hexadecimal-Decimal Integer Conversion (Part 2 of 4) 
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Table C—1. Hexadecimal-Decimal Integer Conversion (Part 3 of 4) 
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Table C—1. Hexadecimal-Decimal Integer Conversion (Part 4 of 4) 
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& C.2. HEXADECIMAL FRACTIONS (APPROXIMATE VALUES) 


Hexadecimal fractions are shown in Table C—2. 


0 
1 

2 
3 
A 
5 
6 
7 
8 
9 
A 
B 
Cc 
D 
E 
F 


Table C—2. Hexadecimal Fractions 


TS ee 





To convert a 4-digit (2-byte) hexadecimal fraction to a decimal fraction, add the values 
shown in Table C—2 for each of the hexadecimal digits to be converted as the following 
illustrates. The hexadecimal fraction .B5A1 equals the approximate decimal fraction 
.70948791 from Table C—2. 


.B 
05 
.OOA 
.0001 


.B5A1 


from the table equals 
from the table equals 
from the table equals 
from the table equals 


equals the sum 


.6875 
01953125 
.002441406250 
.000015258789 


.109487915039 
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5 
25 
625 
812 5 
906 25 
953 125 
1 976 562 5 
2 488 281 25 
4 244 140 625 
8 122 070 312 5 
16 061 035 156 25 
32 030 $17 578 425 
65 ots 258 789 062 5 
131 007 629 394 531 25 
262 003 814 697 265 625 
524 001 907 348 632 812 5 
1 048 000 953 674 316 406 25 
2 097 000 476 837 188 203 125 
4 194 000 238 418 579 101 562 5 
8 388 ooo 119 209 289 550 781 25 
16 777 000 059 604 644 775 330 625 
33 554 ooo 029 802 322 387 695 312 5 
67 108 000 O14 901 161 193 847 656 25 
134 217 000 007 450 580 596 923 828 125 
268 435 000 003 725 290 298 461 914 062 5 
536 870 000 001 862 645 149 230 957 031 25 
1 073 741 000 000 931 322 574 615 478 515 625 
2 147 483 ooo 000 465 661 287 307 739 257 812 5 
4 294 967 ooo 000 232 830 643 653 869 628 906 25 
8 589 934 000 000 116 415 321 826 934 814 453 125 
17 179 869 000 000 058 207 660 913 467 407 226 562 5 
34 359 738 000 000 029 103 830 456 733 703 613 281 25 
68 719 476 000 000 014 551 915 228 366 851 806 640 625 
137 438 953 000 000 007 276 957 614 183 425 903 320 312 5 
274 877 906 ooo 000 003 637 978 807 091 712 951 660 156 25 
549 755 813 000 000 001 818 989 403 545 856 475 830 078 125 


099 511 627 000 000 000 909 494 701 772 928 237 915 039 062 5 
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C.4. POWERS OF 16 





16 
256 


65 536 
1 048 576 
16 777-216 


4 294 967 296 

68 719 476 736 

1 099 511 627 776 10 

17 592 186 044 416 11 

281 474 976 710 656 12 

4 603 599 627 370 496 13 

72 057 594 037 927 936 14 

1 152 921 504 606 846 976 15 


0 
1 
2 
3 
4 
5 
6 
7 
8 
9 


These powers of 16 are especially useful in determining the value of floating-point 
numbers. 
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Appendix D. Check-Off Table Terms 





OBJECT 
OPCODE FORMAT 
TYPE 


INST. 
LGTH. 
MNEM. JHEX. 


(BYTES) 
Condition Codes 


Cif RESULT = 0,SET TOO 
OCJiF RESULT <0, SET TO1 
OF RESULT >0O, SET TO 2 










(J ADDRESSING 
[J DATA (INVALID SIGN/DIGIT) 
(J DECIMAL DiviIDE 

C] DECIMAL OVERFLOW 

(J Execute 

CL EXPONENT OVERFLOW 

DC EXPONENT UNODERFLOW 

(] FIXED-POINT OIVIDE 

0 FIXED-POINT OVERFLOW 

CJ FLOATING-POINT DIVIDE 























Possible Program Exceptions 


(] PROTECTION 
(J SIGNIFICANCE 
(J SPECIFICATION: 











NOT A FLOATING-POINT REGISTER 

OP 1 NOT ON HALF-WORD BOUNDARY 
OP 2 NOT ON HALF-WORD BOUNDARY 
OP 2 NOT ON FULL-WORD BOUNDARY 


OP 2 NOT ON DOUBLE-WORD 
BOUNDARY 


OP 1 NOT EVEN NUMBERED REGISTER 
OP 1 NOT ODD NUMBERED REGISTER 






OF OVERFLOW, SET TO3 
(UNCHANGED 


(] OPERATION 








Bee: Bebe 


2 
ie) 
2 
m 


The check-off table is a fast reference source for its associated instruction. The table 
points where to look for possible errors when writing your programs and helps you debug 
your program when it does not run correctly. A program interrupt occurs when the 
hardware detects an improper specification, use of instructions or data. Interrupt requests 
of this type cause the instruction currently being executed to be suppressed or terminated. 
When a table is used with an instruction, the checked (®) condition codes and program 
exceptions are the only ones that apply to that instruction. The program exceptions are 
explained in the following list, as well as the instruction to which it applies. 


a Addressing 


A storage location outside the range of the installed storage is referenced by a 
program-specified address. 


B Data 
— An invalid sign or digit code is detected in decimal operands. 
— Fields in decimal arithmetic overlap incorrectly. 


— The first operand of the multiply decimal instruction does not have a sufficient 
number of high order zero digits. 





UP-8913 SPERRY UNIVAC OS/3 D-2 
ASSEMBLER 





= Decimal Divide & 





The quotient of a divide decimal instruction exceeds the capacity of the quotient part 
of the first operand field. 


a Decimal Overflow 


The result of an add decimal, subtract decimal, or zero and add instruction exceeds 
the capacity of the first operand location. 


= Execute 
The subject instruction of an execute instruction is an execute instruction. 
= Exponent Overflow 


The final characteristic resulting from a floating-point arithmetic operation exceeds 
127. 


7 Exponent Underflow 


The final characteristic resulting from a floating-point arithmetic operation is less 
than zero. 





= Fixed-Point Divide 
The quotient of a fixed-point divide operation exceeds the capacity of the first operand 
(including division by zero) or the result of a convert to binary instruction exceeds 31 
bits. 
= Fixed-Point Overflow 
A fixed-point add or subtract operation exceeds the capacity of the first operand field. 
= Floating-Point Divide 
The divisor fraction in a floating-point divide operation is equal to zero. 


a Operation 


An illegal operation has been attempted or an operation using a noninstalled 
processor feature has been attempted. 


2 Protection 


A storage protection violation occurs on a program-generated address when the 
protection feature is installed. 
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= Significance 


The final fraction resulting from a floating-point addition or subtraction is equal to 
zero. 


= Specification 
— The unit of information referenced is not on an appropriate boundary. 
— An invalid modifier field is specified in the STR instruction. 


— The R, field of an instruction which uses an even/odd pair of registers (64-bit 
operand) does not specify an even register. 


— A floating-point register other than O, 2, 4, or 6 is specified. 
— A multiplicand or divisor in decimal arithmetic exceeds 15 digits and sign. 


— The first operand field is shorter than, or equal in length to, the second operand 
in decimal multiply and decimal divide instructions. 
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Appendix E. 


Instruction Listings 


Included in this appendix are alphabetic listings of the mnemonic codes (Table E—1) and 
instruction names (Table E—2) and a numeric list of the machine codes (Table E—3). 


Table E—1. 


Instruction Name 


Add 

Add Normalized, Long 
Add Normalized, Long 
Add Normalized, Short 
Add Normalized, Short 
Add Half Word 

Add Immediate 

Add Logical 

Add Logical 

Add Decimal 

Add 

Add Unnormalized, Short 
Add Unnormalized, Short 
Add Unnormalized, Long 
Add Unnormalized, Long 
Branch and Link 

Branch and Link 

Branch on Condition 
Branch on Condition 
Branch on Count 

Branch on Count 

Branch on Index High 
Branch on Index Low or Equal 
Compare Algebraic 
Compare, Long 
Compare, Long 
Compare, Short 
Compare, Short 
Compare Half Word 
Compare Logical 


Machine| Byte 
Code Length 


4 
4 
2 
4 
2 
4 
4 
4 
2 
6 
2 
4 
2 
4 
2 
4 
2 
4 
2 
4 
2 
4 
4 
4 
4 
2 
4 
2 
4 
4 


Mnemonic List of Instructions (Part 1 of 4) 


| source code Format | Code Format 


a 
F1,da(Xx2,bz) 
Ty02 
11,d2(X2,b2) 
TF 2 
T1d(X2,bz) 
d,(b;),i2 

1 ,da(X2,b2) 
rv 
d,(1,,b1),do(I2-b) 
Vy T2 
F1,d2(X2,b2) 
Tg 

11 ,d2(X2,b2) 
02 
14,d2(X2,b2) 
02 
i,d2(Xx2,b2) 
i,t, 
11,d2(x2,b2) 
Tl, 
T1,13,da(b2) 
r1,13,d(b2) 
11 ,d2(X2,b2) 
11,0{X2,b2) 
F102 

1 ,da(x2,b2) 
02 
11,02(X2,b2) 
1,d2(X2,b2) 





1 S2(Xq) 
11,S2(X2) 
02 
11,S2(X2) 
rT 
1y,S2(X2) 
S1,i2 
Ty,S2(Xo) 
102 
S4(I1),Sa(l2) 
rl 
11,S2{X2) 
2 
1,S2(X2) 
102 
¥1,S2(X2) 
4,02 
i,S2(X2) 
iT 
11,S2(X2) 
1,02 
1113/82 
11,13,82 
T1,Sa{X2) 
T1,Sa(X2) 
Ty02 
14,S2(X2) 
Ty,02 
11,S2(X2) 
14/Sa(X2) 

















Y 4 
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Table E—1. Mnemonic List of Instructions (Part 2 of 4} 
| Source Code Format Code Format 
Instruction Name 
CLC Compare Logical 6 d;,(1,b1),d2(b2) $1(l),S2 
CLCL Compare Logical Characters Long 2 1,02 1,02 
CLI Compare Logical Immediate 95 4 d,(b,),i2 S112 
CLIS Compare Logical Immediate and Skip E1 6 d,(b;),i2,m3,d4 S1,l2,IM3,S4 
CLM Compare Logical Characters Under Mask) BD 4 ry,M3,d2(b2) r1,M3,S2 
CLR Compare Logical 15 2 r,t 11,02 
CLRCH Clear Channel 9FO2 4 (Privileged) (Privileged) 
CLRDV Clear Device 9DX2 4 (Privileged) (Privileged) 
cP Compare Decimal F9 6 d,(I1,b;),da(12,b2) S,(I4),Sa(I2) 
CR Compare Algebraic 19 2 rl. r,02 
CSM Compare and Swap Under Mask Bg 4 T1,03,d2(b2) T1,03,S2 
CVB Convert to Binary 4F 4 11,d2(X2,by) F1,S2(X2) 
CVD Convert to Decimal 4E 4 1 1,d(x2,b2) 1 1,S2(X2) 
D Divide 5D 4 11 ,d2(x2,b2) T1/S2(X2) 
DD Divide, Long 6D 4 r1,d2(X2,b2) r1,S2(X2) 
DDR Divide, Long 2D 2 rT, rte 
DE Divide, Short 7D 4 F1,d2(X2,bz) r1/S2(X) 
DEP |peR Divide, Short 3D 2 FF ts 
DP Divide Decimal! FD 6 d,(1,,b4),da(I2,b2) $1(I;),,Sall2) 
DR Divide 1D 2 11,09 rile 
ED Edit DE 6 d,(I,b,),d2(b2) $,(1),S2 
EDMK Edit and Mark DF 6 d,(I,b,),d(b2) $,(1),S2 
EN9 ElO Enqueue I/O EO 6 (Privileged) (Privileged) 
EX Execute 44 4 Fy ,da(X2,b2) 11,S2(X2) 
EXD Execute Diagnose 8300 | 4 (Privileged) (Privileged) 
GRB Get IORB OB 2 (Privileged) (Privileged) 
HDR Halve, Long 24 2 rile. rity 
HDV Halt Device 9E01 4 (Privileged) (Privileged) 
HER Halve, Short 34 2 11,02 11,02 
HPR Halt and Proceed 99 4 (Privileged) (Privileged) 
IC Insert Character 43 4 1, ,d2(x2,b>) T1,So(X2) 
ICM Insert Characters Under Mask BF 4 r,,™M3,d2(b2) r1,IN3,S2 
IPL Initial Program Load 8303 4 (Privileged) | (Privileged) 
ISK Insert Storage Key 09 2 (Privileged) (Privileged) 
L Load 58 4 r1,d2(x2,b2) Fy,S2(X2) 
LA Load Address 41 4 F1,d2(x2,b2) T1,S2(X2) 
LCDR Load Complement, Long 23 2 T,02 tle 
LCER Load Compiement, Short 33 2 ro rl 
LCHR Load Channel Register 4 (Privileged) (Privileged) 
LCR Load Complement 2 T02 1,02 
LCTL Load Control 4 (Privileged) (Privileged) 
LD Load, Long 4 d2(x2,b2) Ty,S2(X2) 
LDA Load Directive Address 4 (Privileged) (Privileged) 
LDR Load, Long 2 ry02 M02 
LE Load, Short 4 r1,d2(X>,b2) 1y,S2(X) 
LER Load, Short 2 102 T1012 
LH Load Half Word 4 d2{x2,b2) 11,S2(X9) 
LIA Load |/O Address 4 (Privileged) (Privileged) 
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Table E—1. 


Instruction Name 


Load Multiple 

Load Negative, Long 

Load Negative, Short 
Load Negative 

Load Positive, Long 

Load Positive, Short 

Load Positive 

Load Program Status Word 
Load 

Longitudinal Redundancy Check 
Load Relocation Register 
Load and Test, Long 

Load and Test, Short 
Load and Test 

Muitiply 

Multiply, Long 

Multiply, Long 

Multiply, Short 

Multiply, Short 

Multiply Half Word 

Move I/O 

Multiple Decimal 

Multiply 

Move Characters 

Move Character Long 
Move !mmediate 

Move Numerics 

Move With Offset 

Move Zones 

AND Logical 

AND Logical 

AND Logical Immediate 
AND Logical 

OR Logical 

OR Logical 

OR Logical Immediate 

OR Logical 

Pack 

Put jORB 

Reset 

Subtract 

Subtract Normalized, Long 
Subtract Normalized, Long 
Start Device 

Subtract Normalized, Short 
Subtract Normalized, Short 
Subtract Half Word 

Shift Logical 


Machine| Byte 
Code Length 


4 
2 
2 
2 
2 
2 
2 
4 
2 
4 
4 
2 
2 
2 
4 
4 
2 
4 
2 
4 
4 
6 
2 
6 
2 
4 
6 
6 
6 
4 
6 
4 
2 
4 
6 
4 
2 
6 
2 
4 
4 
4 
2 
4 
4 
2 
4 
4 


Mnemonic List of Instructions (Part 3 of 4) 


| Source code Format | Code Format 


T1,13,da(b) 
TTe 

rg 

02 

are) 

Ty.02 

82 
(Privileged) 
rg 
(Privileged) 
(Privileged) 
v1.02 

Ty ,02 

102 

11 ,da(X2,b2) 

11 ,d2(X2,b2) 
rT 
T,d2(x2,b2) 
rg 
1,d2(X2,ba) 
(Privileged) 
di(1;,b;),do(I2,b2) 
T172 
d,(1,b;),da(b2) 
T1082 

d,(by),i2 
d,(I,b;),d2(bz) 
d,(1,,b;),do(I2,b2) 
d,(I,b,),da(b2) 
11,d2(X2,b2) 
d,(I,b;),d(b2) 
d,(b;),i2 

Ty02 
11,d2(X2,b2) 
d,(1,b;),da(b2) 
d,(by),i2 

TT 2 
d,(11,b1),da(I2,b2) 
(Privileged) 
(Privileged) 
11,da(X2,b2) 
14,da(X2,b2) 
Ty 2 
(Privileged) 
¥,a(x2,bz) 
ry02 

1 ,d2(X2,b2) 
T,™M3,da(b2) 





T1,13,S2 

02 

11,82 

02 

02 

Ty ,02 

11,02 
(Privileged) 
T12 
(Privileged) 
(Privileged) 
1,72 

1,02 

11,02 
T1,S2(X2) 
11,S2(X2} 
r12 
T1,S2(X2) 
02 
11,S2(X2) 
(Privileged) 
$1(h),Sa(l2) 
Ty.02 

S1(I),S2 ' 5S 
ry02 

S1,l2 

$(I),S2 
$1(11),Sa(l2) 
$,(I),S2 
F1,S2(X2) 
$,(1),S2 

$1,l2 

1102 
1,S2(X2) 
$(I),S2 

S12 

F102 
$1(I1),Sa(l2) 
(Privileged) 
(Privileged) 
F1,S2(X2) 
T1,S2(X2) 
1,02 
(Privileged) 
11,S2(X2) 
102 
11,S2(X2) 
r1,™M3,S2 
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Table E—1. Mnemonic List of Instructions (Part 4 of 4) 


Machine | Source code Format | Code Format 









Instruction Name 















































Subtract Logical 4 11 ,d(X2,b2) F4,S2(X2) 
Shift Left Single Aigebraic 4 r,d2(b2) 11,82 
Shift Left Double Algebraic 4 r,d2(b2) 1,82 
Shift Left Double Logical 4 r,,d2(b2) T1,S2 
Shift Left Single Logical 4 r1,d2(b2) 11,82 
Supervisor Load Multiple 4 (Privileged) (Privileged) 
Subtract Logical 2 T102 r4,02 
Subtract Decimal 6 d,{I,,b4),do(l2,b2) $1(1,),Sa(I2) 
Set Program Mask 2 ry if] 
Subtract 2 ry,02 ry, 
Shift Right Single Algebraic 4 r1,2(b2) 14,82 
Shift Right Double Algebraic 4 r,02(b2) 1,82 
Shift Right Double Logical 4 11 ,da(b2) 14,82 
Shift Right Single Logical 4 r,,d2(bz) 11,82 
Shift and Round Decimal 6 d,(11,b;),d2(be),i3 $(1,),S2.i3 
Set System Key 2 (Privileged) (Privileged) 
Set System Mask 4 (Privileged) (Privileged) 
Supervisor Store Multiple 4 (Privileged) (Privileged) 
Store 4 Ty ,d2(X2,b2) 11,S2(Xo) 
Store Character 4 ry ,d2(Xx2,b2) T1,S9(X2) 
Store Characters Under Mask 4 Fritts Lies 
Store Control 4 (Privileged) (Privileged) 
Store Long 4 Ty ,2(X2,b2) F1,S2{Xo) 
STEP Store Short 4 11,d2(X2,b2) 1 1,S2(X2) 
Store Half Word 4 11,d2(X>,b2) T1,S2(X2) 
Store Multiple 4 11,13,d2(bz) 14,0 3,S2 
Service Timer Register 2 (Privileged) (Privileged) 
Store Relocation Register 4 (Privileged) (Privileged) 
Store Status 4 (Privileged) (Privileged) 
Subtract Unnormalized, Short 4 1,d2(X2,b2) r1,S0{X, 
Subtract Unnormalized, Short 2 002 is 
Supervisor Call 2 i i 
Subtract Unnormalized, Long 4 11,d2(X2,b2) 1 1,S2(X2) 
ih a Scan ise as (Privileged) (Privileged) 
ubtract Unnormalized, Long rT re 
Test Under Mask 4 db). Nes 
Test Under Mask and Skip 6 d,(b,),i2,m3,d4 $1,12,M3,S4 
Translate 6 d,(I,b,),d2(b.) $,(I),S2 
Translate and Test 6 d;(1,b;),d2(b2) 
Test and Set 4 d2(b2) S2 
Unpack 6 dq, (ly b ,)d,(1,,b, ) 8, (1, ).s5(t,) 
ae di 4 r ales b,) ry Sox.) 
xclusive 6 s,(I 
Exclusive OR, Jmmediate 4 ; a eee : "3 
Exclusive OR 2 r ' r bes bay 
12 12 
Zero and Add Decimal 6 





d,(1,,b,).d,(1,.6,) s,(1,),s,(1,) 
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& Table E—2. Alphabetic Listing of Instructions (Part 1 of 6) 


Instruction Name Machine 
Code 


Add 

Add 

Add Decimal 

Add Half Word 

Add Immediate 

Add Immediate 

Add Logical 

Add Logical 

Add Normalized, Long 

Add Normalized, Long 

Add Normalized, Short 

Add Normalized, Short 
& Add Unnormalized, Long 

Add Unnormalized, Long 

Add Unnormalized, Short 

Add Unnormalized, Short 

AND 

AND 

AND 

AND 

Branch and Link 


Branch and Link 





Branch on Condition 
Branch on Condition 
Branch on Count 
Branch on Count 


Branch on Index High 


Branch on Index Low or Equal 


& Clear Channel — Privileged 
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Table E—2. Alphabetic Listing of Instructions (Part 2 of 6) 











Instruction Name Machine 
Code 
Clear Device — Privileged . 9DX2 CLRDV 
Compare 19 CR 
Compare 59 Cc 
Compare and Swap Under Mask B9 CSM 
Compare Decimal F9 cP 
Compare Half Word 49 CH 
Compare Logical 15 CLR 
Compare Logical 55 CL 
Compare Logical 95 CLI 
Compare Logical D5 CLC 
Compare Logical Characters Under Mask BD CLM 
Compare Logical Immediate and Skip E1 CLIS 
Compare Logical Characters Long OF CLCL 
Compare, Long 29 CDR 
Compare, Long 69 cD 
Compare, Short 39 CER 
Compare, Short 79 CE 
Convert to Binary 4F CVB 
Convert to Decimal 4E CVD 
DE> | 
Divide 1D DR 
Divide 5D D 
Divide Decimal FD DP 
Divide, Long 2D DDR 
Divide, Long 6D DD 
Divide, Short 3D DER 
Divide, Short 7D DE 
Edit DE ED 
Edit and Mark DF EDMK 





- Enqueue I/O — Privileged 
ENG g EO EIO 
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Table E—2. Alphabetic Listing of Instructions (Part 3 of 6) 


Instruction Name 


Exclusive OR 

Exclusive OR 

Exclusive OR 

Exclusive OR 

Execute 

Execute Diagnose — Privileged 


Get IORB — Privileged 


Halt and Proceed — Privileged 
Halt Device — Privileged 
Halve, Long 


Halve, Short 


Initial Program Load — Privileged 


Insert Character 

Insert Characters Under Mask 
Insert Storage Key — Privileged 
Load 

Load 

Load Address 

Load and Test 

Load and Test, Long 

Load and Test, Short 

Load Channel Register — Privileged 
Load Complement 

Load Complement, Long 

Load Complement, Short 

Load Control — Privileged 

Load Directive Address — Privileged 
Load Half Word 

Load I/O Address — Privileged 
Load, Long 

Load, Long 


*Added as a feature 
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Table E—2. Alphabetic Listing of Instructions (Part 4 of 6) 


Instruction Name 





Load Multiple 

Load Negative 

Load Negative, Long 
Load Negative, Short 
Load Positive 

Load Positive, Long 
Load Positive, Short 
Load PSW — Privileged 
Load Relocation Register 
Load, Short 

Load, Short 


Longitudinal Redundancy Check — Privileged 


Move 

Move 

Move |/0 — Privileged 
Move Characters Long 
Move Numerics 

Move With Offset 
Move Zones 

Multiply 

Multiply 

Multiply Decimal! 
Multiply Half Word 
Multiply, Long 
Multiply, Long 
Multiply, Short 
Multiply, Short 

OR 


OR 


Machine 
Code 


98 


11 


21 


31 


10 


20 


30 


82 


A3 


38 


78 


830E 


92 


D2 


81 


OE 


D1 


F1 


D3 


5C 


FC 


4c 


2c 


6C 


3C 


7C 


16 


56 





LM 


LNR 


LNDR 


LNER 


LPR 


LPDR 


LPER 


LPSW 


LRR 


LER 


LE 


LRC 


MvVI 





MVC 


Mio 


MVCL 


MVN 


MVO 


MVZ 


MR 


MP 
MH 
MDR 
MD 
MER 
ME 


OR 








UP-8913 SPERRY UNIVAC OS/3 E-9 








ASSEMBLER Update B 
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Instruction Name Machine 
Code 
OR 96 Ol 
OR D6 oc 
Pack F2 PACK 
Put IORB — Privileged oc PRB <j 
Reset — Privileged 8301 RESET 
Service Timer Register — Privileged 03 STR 
Set Program Mask 04 SPM 
Set Storage Key — Privileged 08 SSK* 
Set System Mask — Privileged 80 SSM 
Shift and Round Decimal FO SRP 
Shift Left Double 8F SLDA 
Shift Left Double Logical 8D SLDL 
Shift Left Single 8B SLA 
@ Shift Left Single Logical 89 SLL 
Shift Logical 9B SHL 
Shift Right Double 8E SRDA 
Shift Right Double Logical 8C SRDL 
Shift Right Single 8A SRA 
Shift Right Single Logical 88 SRL 
Start Device — Privileged 9C02 SDV 
STEP 
Store 50 ST 
Store Character 42 STC 
Store Characters Under Mask BE STCM 
Store Control — Privileged B6 STCTL 
Store Half Word 40 STH 
Store, Long 60 STD 
Store Multiple 90 STM 
Store Relocation Register — Privileged A2 STRR 
@ Store, Short 70 STE 
Store Status — Privileged 8302 STS 


*Added as a feature. 
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Table E—2. Alphabetic Listing of Instructions (Part 6 of 6) 











Instruction Name Machine 
Code 
Subtract 1B SR 
Subtract 5B $s 
Subtract Decimal FB SP 
Subtract Half Word 4B SH 
Subtract Logical 1F SLR 
Subtract Logical 5F SL 
Subtract Normalized, Long 2B SDR 
Subtract Normalized, Long 6B SD 
Subtract Normalized, Short 3B SER 
Subtract Normalized, Short 7B SE 
Subtract Unnormalized, Long 2F SWR 
Subtract Unnormalized, Long 6F SW 
Subtract Unnormalized, Short 3F SUR 
Subtract Unnormalized, Short 7F SU 
Supervisor Call OA SVC 
Supervisor Load Multiple — Privileged B8 SLM 
Supervisor Store Multiple — Privileged BO SSTM 
—>> Switch List Scan — Privileged 830F SWLS 
Test and Set 93 TS 
Test Under Mask 91 ™ 
Test Under Mask and Skip E2 TS 
Translate DC TR 
Translate and Test DD TRT 
Unpack F3 UNPK 


Zero and Add F8& ZAP 
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& Table E—3. List of Instructions by Machine Code (Part 1 of 6) 


Machine Code — Instruction Name 


Service Timer Register — Privileged 





04 SPM Set Program Mask 
05 BALR Branch and Link 
06 BCTR Branch on Count 
| 07 BCR Branch on Condition (Native and 360/20 modes) 
08 SSK* Set Storage Key — Privileged 
09 ISK* Insert Storage Key — Privileged 
OA SVC Supervisor Call 
OB GRB Get IORB — Privileged 
oc PRB Put |ORB — Privileged 
OE MVCL Move Characters Long 
OF CLCL Compare Logical Characters Long 
10 LPR Load Positive 
@ 11 LNR Load Negative 
12 LTR Load and Test 
13 LCR Load Complement 
14 NR AND 
15 CLR Compare Logical 
16 OR OR 
17 XR Exclusive OR 
18 LR Load 
19 CR Compare 
1A AR Add 
| 1B SR Subtract 
ic MR Multiply 
1D DR Divide 
| 1E ALR Add Logica! 
1F SLR Subtract Logical 
& 20 LPDR Load Positive, Long 
21 LNDR Load Negative, Long 
22 LTDR Load and Test, Long 





23 LCDR Load Complement, Long 
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24 HDR 


Halve, Long 








28 LDR Load, Long 
CDR Compare, Long 
ADR Add Normalized, Long 
SDR Subtract Normalized, Long 
MDR Multiply, Long 
DDR Divide, Long 
AWR Add Unnormalized, Long 
SWR Subtract Unnormalized, Long 
LPER Load Positive, Short 
LNER Load Negative, Short 
LTER Load And Test, Short 
LCER Load Complement, Short 
HER Halve, Short 
LER Load, Short 
CER Compare, Short 
AER Add Normalized, Short 
SER Subtract Normalized, Short 
MER Multiply, Short 
DER Divide, Short 
AUR Add Unnormalized, Short 
SUR Subtract Unnormalized, Short 
STH Store Half Word 
LA Load Address 
STC Store Character 
Ic Insert Character 
EX Execute 
BAL Branch and Link 
BCT Branch on Count 





BC Branch on Condition 
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Machine Code | Mnemonic. | 
48 LH 


49 


4A 


4B 


4c 


4E 


4F 


50 


51 


54 


55 


56 


57 


58 


59 


5A 


5B 


5C 


5D 


5E 


SF 


60 


61 


68 


69 


6A 


6B 


6C 


6D 


6E 


CH 


AH 


SH 


MH 


CvD 


CVB 


ST 


LDA 


AL 


SL 


STD 


LIA 


LD 


CD 


AD 


SD 


MD 


DD 


AW 
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Table E—3. List of Instructions by Machine Code (Part 3 of 6) 


Instruction Name 


Load Half Word 


Compare Half Word 
Add Half Word 
Subtract Half Word 
Multiply Half Word 
Convert to Decimal 
Convert to Binary 
Store 

Load Directive Address — Privileged 
AND 

Compare Logical 
OR 

Exclusive OR 

Load 

Compare 

Add 

Subtract 

Multiply 

Divide 

Add Logical 
Subtract Logical 
Store, Long 


Load 1/0 Address — Privileged 


Load, Long 


Compare, Long 

Add Normalized, Long 
Subtract Normalized, Long 
Multiply, Long 

Divide, Long 


Add Unnormalized, Long 


E-13 
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Table E—3. List of Instructions by Machine Code (Part 4 of 6) 


Machine Code Mnemonic Instruction Name 


Subtract Unnormalized, Long 















Store, Short 


Load, Short 






Compare, Short 






Add Normalized, Short 







Subtract Normalized, Short 







Multiply, Short 
Divide, Short 


Add Unnormalized, Short 







Subtract Unnormalized, Short 


Set System Mask — Privileged 






Move 1/0 — Privileged 






Load PSW — Privileged 






Execute Diagnose — Privileged 






Reset — Privileged 






Store Status — Privileged 






Initial Program Load — Privileged 




















Longitudinal Redundancy Check 
Switch List Scan — Privileged 
Branch on Index High 

Branch on Index Low or Equal 
Shift Right Single Logical 
Shift Left Single Logical 

Shift Right Single 

Shift Left Single 

Shift Right Double Logical 
Shift Left Double Logical 

Shift Right Double 

Shift Left Double 


Store Multiple 





Test Under Mask 





Move Immediate 
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93 TS 


Test and Set 
94 NI 






























AND 

Compare Logical 

OR 

Exclusive OR 

Load Multiple 

Halt and Proceed — Privileged 
Add Immediate 

Shift Logical 

Start Device — Privileged 
Clear Device — Privileged 
Halt Device — Privileged 
Clear Channel — Privileged 
Load Channel Register — Privileged 


Store Relocation Register — Privileged 





Load Relocation Register — Privileged 


Supervisor Store Multiple — Privileged B3 ing 
ts) Ci | Privil d By es 
t t _ 

‘ore Contro rivilege BS Sip 


Load Control — Privileged 
Supervisor Load Multiple — Privileged 
Compare and Swap Under Mask 
Compare Logical Characters Under Mask 
Store Characters Under Mask 
Insert Characters Under Mask 
Move Numerics 
Move 


Move Zones 
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Table E—3. List of Instructions by Machine Code (Part 6 of 6) 


Machine Code Mnemonic Instruction Name 





NC AND 







CLC Compare Logical 








oc OR 







XC Exclusive OR 


TR Translate 







TRT Translate and Test 








ED Edit 






EDMK Edit and Mark 


EIO Enqueue I/O — Privileged 







CLIS Compare Logical Immediate and Skip 


Test Under Mask and Skip 









Shift and Round Decimal 







Move With Offset 







Pack 






Unpack 


Zero and Add 







Compare Decimal 









Add Decimal 







Subtract Decimal 


Multiply Decimal! 






Divide Decimal 






*Added as a feature. 
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Appendix F. Use of PARAM Statement 


This appendix describes the use of the PARAM statement and the option-specifying 
operands supported by the SPERRY UNIVAC Operating System/3 (OS/3) Assembler. 
These options permit you to identify library files, to access source or copy modules and 
macro definitions from these libraries, to select assembler listings, and to control object 
module output. Also included in this appendix is the source module correction routine. 


F.1. 


PARAM STATEMENT 


The PARAM statement specifies the assembler processing options in effect at assembly 
time and alters the standard default options. If you don’t specify assembler options in the 
@ control stream of your job, the assembler functions as follows: 


The assembler searches only the system source library file (SY$SRC) for any source 
module or copy code referenced. 


It also searches only the system macro library file (SYSMAC) for any macro 
references. 


It stores the object module produced in the job run library file (SY$RUN). 

It prints the source code, object code, cross-references, and diagnostic listings. 
The value of &SYSPARM is equal to a null string. 

Columns 1 and 2 of the coding form must contain slashes, followed by at least one 
blank column, and then PARAM followed by at least one blank column (see following 
format). Multiple options are supported for each option separated by commas. The end 


of selected options is indicated by a blank column following the last option. All 
options selected are printed preceding the assembly listing. 
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Format: 












// APARAMA 


filename filename2 
cory | (N) tI (N) : 


E N=modulename [ it 


i (A 
| 


/LST= {ast [32] 13] isa) ] 


| 


‘string’ \] 












filename 
,OUT= (N) 


. 





SYSPARM= 





COPY Keyword Parameter: 


Enables up to two files to be identified as source code module libraries or specifies 
that no files are to be searched for source code modules. If this option is omitted, 
$SYSSRC is assumed and is the only file searched for source code module references. 
Only source modules can be copied; the source code must be in the standard format 
and may not contain any COPY, ICTL, MACRO, PROC, or MEND directives. 


COPY=filename1 

Specifies that the file identified as filename1 is searched first for source code 
modules referenced and, if not found there, then $Y$SRC is searched: filename is any 
name you specify or the system source library. If filename1 = filename2, then copy = 
filename’ will generate the same files to be searched as copy = /filename2, except 
that in the first case the order in which the files are to be searched will be filename1 
and then $Y$SRC, whereas in the second case, the order will be $Y$SRC and then 
filename2. 


COPY=filename1 /filename2 
Specifies that the file identified as filename is searched first. Then, the file identified 
as filename2 is searched for source code modules referenced. When two filenames 
are specified for this parameter, the $Y$SRC file is not searched. 
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@ COPY=filename1/(N) 

Specifies only the file identified as filename1 is searched for source code 
modules referenced. As stated previously, if filename1 = filename2, then copy = 
filename1/(N) is the same as copy = (N)/filename2, with only one file to be 
searched in either case. 


COPY=(N) 
Specifies no files, not even $Y$SRC, are searched for source code modules 
referenced. COPY=(N)/(N) is the same as COPY=(N). 


IN Keyword Parameter: 


Identifies the name of the source module that is to be assembled and the file in 
which it resides. If this option is omitted, the source code must be in the control 
stream. 


IN=modulename 
Specifies the name of the source module and directs the assembler to search the 
SYSSRC file for the module; modulename is the name of the source module and 
is up to eight characters. 


IN=modulename/ filename 
Specifies the name of the source module and the file in which it resides; 
; filename is any name you supply or the system source library. 


LIN Keyword Parameter: 


Enables up to two files to be identified as macro source files or no files to be 
searched for macro references. If this option is omitted, $Y$MAC is assumed and is 
the only file searched. 


LIN=filename1 
Identifies the file that is searched for macro references and, if not found there, 
then SYSMAC is searched; filename is any name or the name of the system 
macro library. 


LIN=filename' /filename2 
Identifies the two files that are searched for macro references. The file identified 
as filename1 is searched first, followed by the file identified as filename2. The 
SYSMAC file is not searched. 


LIN=filename1 /(N) 
Specifies only the file identified as filename is searched for macro references. 


LIN=(N) 
| Specifies no files, not even S$YSMAC, are searched for macro references. 
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LST Keyword Parameter: 


Indicates the type of listing desired. If this option is omitted, source, object, cross- 
reference, and diagnostic listings are printed. 


LST=s 


A single specification requiring no parentheses. 


LST=([s;]..-[-$4]) 
Any s in the series is one of the following: 


NC 


Specifies that the cross-reference listing is suppressed. 


ND 


Specifies that the diagnostic listing is suppressed. 


NR 


Specifies that the cross reference listing is to contain only those symbols that 
have at least one reference each. 


N 


Specifies that all output listings are suppressed. 


DBG 


Specifies a proc or macro debug mode feature within the OS/3 assembler. 
When the feature is selected, the output listing shows the following: 


Results of the expansion of any proc or macro called within the user 
program, including any conditional assembly directives processed as the 
result of the expansion itself. Source coding (constants, directives, and 
instructions) is listed twice and shows any appropriate substitutions. Any 
statements causing error diagnostics show the exit line in error. 


A proc or macro which produces error diagnostics at the time it is encoded 
is listed following the END directive; e.g., system errors. A proc or macro is 
encoded once, but may be called multiple times. 


If an error is detected at both expansion and encoding time, it appears two 
or more times. Errors detected only at encoding time appear once following 
the END directive. 


All lines flagged (regardless of their order of appearance) are shown in the 
diagnostic summary list. Lines flagged at encoding time may or may not be 
flagged at expansion time. 


When this feature is not selected, any errors detected during proc or macro 
expansion may not show the exact line in error, but rather the vicinity of the item 
which is flagged. 
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OUT Keyword Parameter: 


Enables you to specify the file that is to be used to store the object module output by 
the assembler. If this option is omitted, the object module is generated and stored in 
SYSRUN, the system-run library. 


OUT=filename 
Identifies the file that is used as the output file by the assembler; filename is any 
name or the job run library. 


OUT=(N) 
Specifies that no output file is used by the assembler and, thus, no object 
module is generated. 


RO Keyword Parameter: 


Permits you to optionally flag ail absolute/base displacement fields of instructions 
that yield values less than 4096. Each statement is flagged with an 
‘ADDRESSABILITY’ error flag. For example, if you wanted to code MVI TAG,X’40’ but 
coded MVC TAG,X’‘40’ by mistake, the latter instruction would be flagged, since the 
displacement field is less than 4096. 


SYSPARM Keyword Parameter: 


Specifies the equivalent of a global SETC symbol, with the value specified in this 
option. If this option is omitted, the value of &SYSPARM is a null string. 


Operational Consideration: 


F.2. 


The value established by SYSPARM is available within the assembly, both outside of 
and within macro definitions. This parameter is referenced as &SYSPARM within 
assembly statements. Any error in this specification directs the assembler to ignore 
the specification, and an appropriate error message is printed on the output printer. 


SYSPARM=‘string’ 
Specifies a string of one to eight characters enclosed in apostrophes. An 
apostrophe within the string is represented by two apostrophes but only counts 
as one in determining the length of the string. 


SOURCE CORRECTIONS 


The OS/3 assembler supports a source module correction routine. This routine is the 
same as the one used in the librarian. The correction deck is interchangeable between the 
assembler and the librarian except that the librarian also uses the added COR control 
statement. The corrections made to the source module are temporary. The corrections are 
specified by the presence of both the source module input (7//APARAMAIN=modulename 
or the IN=(vol-ser-no,label) for the jproc call) and the correction records in the job control 
stream. These records must be with the data delimiters (/$ and /*). If there are no records 
between the data delimiters, no source correction is performed. 
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There are three control statements associated with the correction routine: sequence (SEQ), 
recycle (REC), and skip (SKI). To make the source module corrections, the actual source 
record to be inserted is used as the correction card with the same sequence number as 
the record to be replaced. Insertions are performed by using at least one correction card 
(always the first) card with a sequence number falling between the sequence numbers of 
the records between which the insertion is to be made. Any number of unsequenced 
correction cards may then follow the first sequence card. Deletions are performed by 
bypassing one or more original source module records in the old data set, thus eliminating 
them from being written on the new data set. The SKI and REC statements are used for 
this function. 


F.2.1. SEQ Statement 

Function: 
Specifies the starting position and the length of the sequence field. If the sequence 
file is omitted, column 73 is assumed to be the first column of the sequence field and 


continues to the maximum of eight characters. 


Format: 





A OPERATION A 






OPERAND 


eal felts \ 
‘ 1 00000000 








Specifications: 
column position 
Is the first column position in the source record where the sequence field begins. 
If omitted, column 73 is assumed to be the first column of the sequence field. 
content. 
Is one to eight characters. The length determines the length of the sequence 
field. 
Operational Considerations: 


a Card column 1 must be blank if the sequence field does not start in card column 1. 


= The SEQ card is always the first card in the correction routine. 
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F.2.2. REC Statement 


Function: 


Causes the record pointer for the input module to be repositioned to the first record in 
the module. In conjunction with the SKI control statement, it allows the rearranging 
of major segments of the input module. When a REC control statement is processed, 
records are read from the input module up to and including the record whose 
sequence number matches the sequence number in the REC control statement field. 
Then, the second pointer for the input module is reset to the first record in the 
module. If the sequence field of the REC control statement is blank, repositioning of 
the record pointer takes place immediately. 


Format: 









A OPERATION A OPERAND SEQUENCE 









ignored [last sequence no.] 


Specification: 


last sequence no. 
Is one to eight alphanumeric characters that identify the sequence number of the 
last input record to be read from the input module. If omitted, the repositioning 
function takes place immediately. 


Operational Considerations: 


a Records are replaced one at a time by writing a source statement with a sequence 
number matching the sequence number of the record to be replaced. 


= Records are inserted by writing source correction statements with sequence numbers 
that fall between the sequence numbers of the input records between which insertion 
is to take place. Blank sequence fields cause an insertion to take place immediately. 


F.2.3. SKI Statement 
Function: 


Allows one or more original input module records to be bypassed. Records are read 
from the input module until a sequence number is detected that matches the 
sequence number of the SKI command. The skip operation is started and continues 
until a sequence number that matches the operand field of the SKI command is 
detected. If the sequence field of the skip command is blank, the function is started 
immediately. 





UP-8913 SPERRY UNIVAC OS/3 F-8 
ASSEMBLER 


EE TTT 


Format: 









A OPERATION A OPERAND 







SEQUENCE 
last-sequence-no. [starting-sequence-no.] 


Specifications: 


last-sequence-no 


Is one to eight alphanumeric characters that identify the sequence number of the 
last input module record to be bypassed. 


starting-sequence-no. 
Is one to eight alphanumeric characters that identify the sequence number of the 
first source module record to be bypassed. 


Operational Consideration: 


= If omitted, the skip operation starts immediately with the input module record that 
follows the last record operated on. 
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Appendix G. System Variable Symbols 


System variable symbols automatically generate values or character strings at assembly 
time. There are seven system variable symbols: &SYSECT, &SYSLIST, &SYSNDX, 
&SYSDATE, &SYSTIME, &SYSJDATE, and &SYSPARM. The following subsections contain 
the functions of each of the seven system variable symbols. 


G.1. &SYSECT 


&SYSECT is a system variable symbol used to represent the name of the control section 
containing a macroinstruction. 


&SYSECT is assigned a value for each inner and outer macroinstruction processed by the 
assembler. This value is the name of the control section containing the macroinstruction. 
If &SYSECT is referenced in a macro definition, its substituted value is the name of the 
last CSECT, DSECT, or START directive that occurred prior to the macroinstruction. If a 
named CSECT, DSECT, or START directive did not appear prior to the macroinstruction, 
&SYSECT is assigned a null character value during the processing of the macro definition 
called by the macro call instruction. 


Any CSECT or DSECT directives processed within a macro definition affect the value of 
&SYSECT for any subsequent inner macroinstructions in the definition and for any outer 
and inner macroinstructions that occur outside the current nest of macro definitions. 
However, the value of &SYSECT remains constant during the processing of a given 
macroinstruction, and is not affected by CSECT or DSECT directives or inner 
macroinstructions occurring in that macro definition. 


G.2. &SYSLIST 


Within a macro definition in macro format, each positional parameter may be referenced 
by a name; however, each positional parameter need not be named in the macro prototype 
statement and may be referenced in terms of its position within the macroinstruction 
operand field by wiring the system variable symbol &SYSLIST followed by an expression in 
parentheses. The value of the expression identifies the position of the parameter in the 
operand field. The expression may be a SETA symbol or a self-defining term. Therefore, if 
a macro definition prototype statement has the operand field: 


&A,&B,&C 
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the first positional parameter is referenced either as &A or &SYSLIST(1), the second is 
referenced either as &B or &SYSLIST(2), and the third positional parameter is either &C or 
&SYSLIST(3), and so on. This capability, which is used to index through the positional 
parameters, treats each parameter in the same way. 





A null character string is generated in place of &SYSLIST(m) if m is zero or greater than 
the number of positional parameters supplied in the macroinstruction. 


The system variable &SYSLIST may not be used in a mixed-mode (positional and keyword 
parameters included) macro definition. 


G.3. &SYSNDX 


The assembler maintains a counter that is incremented by 1 each time the assembler 
encountered a macroinstruction. The value of this counter within the first macro is 1. The 
current value of this counter is supplied as the 4-digit character value of the system 
variable symbol &SYSNDX each time a macroinstruction is encountered. A macro 
definition that defines labels within the code it generates, and that may be called more 
than once in a single assembly, generally creates duplicate definitions of the same label. 
To avoid this problem, the system variable symbol &SYSNDX may be used as a suffix on 
the labels defined by the macro definition, so that each time the macro definition is called, 
it will define a different set of labels. 





G.4. &SYSDATE 

&SYSDATE is a system variable symbol, which you can reference in your program text or 
within a macro definition, to generate the date your program is assembled. The date is 
produced in your assembly listed as a character string representing the month, day, and 
year (mm/dd/yy) the program was assembled. If you 

1. assemble your program, 

2. store it in a library, and 


3. retrieve the assembled program for execution at a later date, 


any &SYSDATE reference in your program references the original assembly date, not the 
current date when your program is executed. 


You specify &SYSDATE as either an operand in a source code statement, which defines a 
constant (DC), or an operand field literal. 


LABEL AOPERATIONA OPERAND 
1 10 16 








ASMDATE DC C'&SYSDATE' 
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When this line of source code is assembled, the object code contains the current date. 


You can also use the &SYSDATE system variable symbol as a literal. 





LABEL AOPERATIONA OPERAND 
1 10 16 
MVC BUF ,=C'&SYSDATE' 


When this line of source code is executed, the assembly date is moved into a main storage 
area called BUF. 


G.5. &SYSTIME 
&SYSTIME is a system variable symbol, which you can reference either in your program 
text or within a macro definition, to generate the time of day your program is assembled. 


The time is produced in your assembly listing as a character string representing the hour, 
minute, and second (hh.mm.ss) the assembly was run. If you 


1. assemble your program, 
2. store it in a library, and 
3. retrieve the assembled program for execution at another time, 


any &SYSTIME reference in your program references the original assembly time, not the 
current time of execution. 


You specify &SYSTIME as either an operand in a source code statement, which defines a 
constant (DC), or an operand field literal. 


ASMTIME = =DC C'sSYSTIME' 


When this line of source code is assembled, the object code contains the current time. 


You can also use the &SYSTIME system variable symbol as a literal. 


MVC BUF,=C'ESYSTIME' 


When this line of source code is executed, the assembly time is moved into a main storage 
area called BUF. 
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G.6. &SYSJDATE 





&SYSJDATE is a system variable symbol, which you can reference either in your program 
text or within a macro definition, to generate the Julian date when your program is 
assembled. The date is produced in your assembly listing as a character string 
representing the month, day, year, and Julian value — day of the year (mmddyjjj) the 
assembly was run. If you 


1. assemble your program, 
2. store it in a library, and 
3. retrieve the assembled program for execution at another time, 


any &SYSJDATE reference in your program references the Julian date of the original 
assembly. 


You specify &SYSJDATE as either an operand in a source code statement, which defines a 
constant (DC), or an operand field literal. 


LABEL AOPERATIONA OPE RAND 
| 10 16 


ee 





JULDATE DC C'&ESYSJDATE' 


When this line of source code is assembled, the object code contains the Julian date. 


You can also use the &SYSJDATE system variable symbol as a literal. 


MVC BUF ,=C'§SYSJDATE' 


When this line of source code is executed, the Julian date is moved into a main storage 
area called BUF. 
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G.7. &SYSPARM 


&SYSPARM is a system variable symbol, which you can reference either in your program 
text or within a macro definition, to generate an 8-byte null character string at assembly 
time. The string is initially null but can be varied by using the PARAM statement as 
follows: 





A OPERATION A 


SYSPARM=‘string’ 


OPERAND 






//APARAMA 


By using the PARAM statement, you can specify a string of up to eight characters, 
enclosed in apostrophes. Once you've altered the value of &SYSPARM, any reference to 
&SYSPARM produces the character string you specified in the PARAM statement, not a 
null character string. 


To reference the &SYSPARM system variable symbol, you specify &SYSPARM as either an 
operand in a source code statement, which defines a constant (DC), or an operand field 





literal. 
LABEL AOPERATIONA OPERAND 
] 10 16 
NULSTRNG DC C'sSYSPARM! 


When this line of source code is assembled, the object code contains an 8-byte null 
character string. 


You can also use the &SYSPARM system variable symbol as a literal. 


MVC BUF ,=C'&SYSPARM' 


If you don’t precede this source code statement with a PARAM statement when this line 
of source code is executed, an 8-byte null character string is moved into a main storage 
area called BUF. 




















UP-8913 SPERRY UNIVAC OS/3 Index 1 
ASSEMBLER 
Index 
Term Reference Page Term Reference Page 
Add immediate (Al) instruction See Al 
instruction. 
A instruction 
examples 10.2 10—8 | Add logical (AL) instruction See AL 
formats 10.2 10—7 instruction. 
operational considerations 10.2 10—7 
Add logical (ALR) instruction See ALR 
A, type constant 5.2.9 5—13 instruction. 
Absolute expression Add normalized (AD) instruction, long format See AD 
definition 441 4—16 instruction. 
examples 441 4—17 
relocatable terms 4.4.1 4—16 | Add normalized (ADR) instruction, 
long format See ADR 
Absolute term instruction. 
examples 44.1 4—16 
expression 44 4—16 | Add normalized (AE) instruction, 
relocatable expression 4.42 4—17 short format See AE 
instruction. 
ACTR statement 
format 27.43 27—24 | Add normalized (AER) instruction, 
function 27.4.3 27—24 short format See AER 
instruction. 
AD instruction 
example 11.2 11—5 | Add unnormalized (AU) instruction, 
formats 11.2 11—3 short format See AU 
operational considerations 11.2 11—4 instruction. 
Add (A) instruction See A Add unnormalized (AUR) instruction, 
instruction. short format See AUR 
instruction. 
Add (AR) instruction See AR 
instruction. Add unnormalized (AW) instruction, 
long format See AW 
Add decimal (AP) instruction See AP instruction. 
instruction. 
Add unnormalized (AWR) instruction, 
Add half word (AH) instruction See AH long format See AWR 
instruction. instruction. 
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Term 


Address constants 
A-type 
external 
full-word 
half-word 
V-type 
Y-type 


Addressing 
main computer storage 
register 


ADR instruction 
example 
formats 
operational considerations 


Advance listing (EJECT) direction 
&SYSLIST 


AE instruction 
example 
formats 
operational considerations 


AER instruction 
example 
formats 
operational considerations 


AGO statement 


AH instruction 
example 
formats 
operational considerations 


Al instruction 
examples 
formats 
operational considerations 


AIF statement 
examples 
format 


AL instruction 
example 
formats 
operational considerations 


Alphabetic instruction listing 


ALR instruction 
example 
formats 
operational considerations 
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Reference 


5.2.9 
5.2.11 
5.2.9 
5.2.8 
5.2.11 
5.2.8 


3.1 
3.2 


11.3 
11.3 
11.3 


See EJECT 
directive. 


114 
11.4 
11.4 


11.5 
11.5 
11.5 


27.2.2 


10.4 
10.4 
10.4 


10.5 
10.5 
10.5 


27.3.3 
27.3.3 


12.2 
12.2 
12.2 


Table E—2 
12.3 


12.3 
12.3 


Page 


5—13 
5—15 
3—13 
3—12 
5—15 
5—12 


3-1 


11-7 
11—6 
11—6 


11-11 
11-9 
11-10 


11-13 
11—12 
11—12 


27—16 


10—12 
10—11 
10—11 


10—14 
10—13 
10—14 


27—22 
27—21 


12—2 
12—1 
12—3 


E—5 
12—6 


12—5 
12—5 


Term 


American Standard Code for Information 
Interchange (ASCII) character codes 


Ampersand 
character string 
set symbols 
&SYSDATE 
&SYSECT 
&SYSLIST 
example 
mixed mode 
null character string 
&SYSNDX 
&SYSPARM 
&SYSTIME 


And (N) instruction 


And (NC) instruction 


And (NI) instruction 


And (NR) instruction 


ANOP statement 
example 
format 


AP instruction 
examples 
formats 
operational considerations 


Apostrophe, character representation 


Application instructions 
explicit length 
formats 
implicit length 
types 


AR instruction 
example 
format 
operational considerations 


Index 2 


eee 


Reference 


Table B—1 


446 
27.1 


G4 


G.1 


G.2 
G.2 
G2 


G3 
G.7 
G5 


See N 
instruction. 


See NC 
instruction. 


See NI 
instruction. 


See NR 
instruction. 


27.24 
27.24 


9.3 
9.3 
9.3 


446 


7A 
Fig. 7—1 
71 
71 


10.3 
10.3 
10.3 





Page 











UP-8913 


Term 


Arithmetic operators 
absolute terms 
description 


ASCII 


ASM Jproc call statement 
examples 
format 
function 


ASML Jproc call statement 
format 
function 


ASMLG Jproc call statement 
format 
function 


Assemble and link-edit, 
ASML Jproc call statement 


Assemble, link-edit, and execute 
ASMLG Jproc call statement 


Assembler application instruction 
notations 
assembled example 
explicit format 
implicit format 
machine code 


Assembler coding form 
additional coding rules 
column 72 
comment field 
continuation field 
description 


label field 
operand field 
operation field 
sample 
sequence field 


Assembler control directives 
basic functions 
condition no operation (CNOP) 
generate literal pool (LTORG) 
program card (END) 
program start (START) 
specify location counter (ORG) 
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Reference 


44) 
43.1 


Table B—1 


29.3.1.1 
29.3.1.1 
29.3.1 


29,3.2.1 
29.3.2 


29.3.3.1 
29.3.3 


29.3.2.1 
29.3.2 


29.3.3.1 


41d 
4.1.1 
411 
411 


1.17 
1.1.6 
1.1.4 
1.1.2 

1.1 

Fig. 1—5 
1.1.3 
1.1.2 
Ld 

Fig. 1—3 
115 


Table 17—1 
17.1 
17.3 
17.2 
17.5 
17.4 


ASSEMBLER 
Page Term 
Assembling 
4—16 assemble, link-edit, and execute 
4—14 coding 
job contro! procedures 
B—1 
Assemble listing 
definition 
29—5 example 
29—4 organization 
29—3 
sample 
29—10 | Assign base register (USING) directive 
29—10 
Attribute references, conditional assembly 
applications 
29—11 count 
29—11 example 
format 
integer 
29—10 length 
29—10 number 
scale 
29—11 | Attributes of symbols 
length 
relocatability 
4—1 type 
4—2 value 
4—2 
4—3 AU instruction 
example 
formats 
1—11 operational consideration 
1—11 
1—9 AUR instruction 
1—7 example 
i—]l formats 
1—13 operational consideration 
1—7 
1—6 AW instruction 
1—5 example 
1—4 formats 
1—10 operational consideration 
AWR instruction 
17-1 example 
17—2 formats 
17—5 operational consideration 
17—4 
17—8 
17—6 


Index 3 
Update A 


Reference Page 


29.3 29—3 
1.1 1-1 
29.1 29—1 
4.1.2 4—6 
29.6.1 29—14 
See organization 

of listing. 

Fig 1-8 1—16 


See USING directive. 


Table 27-3 27—26 


27.5.9 27—31 
27.5.6 27—32 
275 27-25 
27.5.4 27—30 
27.5.2 27—28 
27.5.6 27—32 
27.5.3 27—30 
4.23 4—11 
425 4—13 
423 4—11 
Table 27—4 27—27 
4.23 4—l1 
116 11—16 
11.6 11—15 
11.6 11—15 
117 11-17 
117 1l—17 
117 11—17 
118 11—20 
11.8 11—19 
11.8 11—19 
11.9 11—21 
11.9 11—21 
11.9 11—21 
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Term 


B, type constant 


BAL 
general description 
sample program 


BAL instruction 
example 
formats 


BALR instruction 
example 
format 


Base and displacement constants (S), 
examples 


Base register assignment directives 
assign base register (USING) 
unassign base register (DROP) 

Basic Assembly Language (BAL) 

BC instruction 
formats 
operational considerations 

BCR instruction 
formats 
operational consideration 

BCT instruction 
example 
formats 

BCTR instruction 

Binary constants (B) 
padding 
truncating 

Binary representation 

BLANK macro example 


Braces within brackets 


Branch and link (BAL) instruction 


Branch and fink (BALR) instruction 
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5.2.3 


1.1 
Appendix A 


8.3 
8.3 


8.3 
8.3 


5.2.10 
18.2 
18.1 

See BAL. 


8.4 
8.4 


8.4 
8.4 


8.5 
8.5 
8.5 


5.2.3 
5.2.3 


2.2 
30.3 
4.1.2 


See BAL 
instruction. 


See BALR 
instruction. 


Page 


5—13 


18—3 
18—2 


30—4 


4—5 


Term 


Branch on condition (BC) instruction 


Branch on condition (BCR) instruction 


Branch on count (BCT) instruction 


Branch on count (BCTR) instruction 


Branch on index high (BXH) 
instruction 


Branch on index low or equal 
(BXLE) instruction 


Branching 
conditional branch (AIF) 
define branch destination (ANOP) 
function 
macro definition exit (MEXIT} 
sequence symbols 
unconditional branch (AGO) 


Branching instructions 

BAL 

BALR 

BC 

BCR 

BCT 

BCTR 

EX 

extended mnemonic codes 


function 


BXH instruction 
examples 
formats 


BXLE instruction 
byte 


definition 
word structure 


Index 4 


Reference 


See BC 
instruction. 


See BCR 
instruction. 


See BCT 
instruction. 


See BCTR 
instruction. 


See BXH 
instruction. 


See BXLE 
instruction. 


27.2.3 
27.24 
27.2 

27.2.5 
27.2.1 
27.2.2 


8.3 
8.3 
8.4 
8.4 
8.5 
8.5 
8.8 
8.2 
Table 8—1 
8.1 


8.6 
8.6 


8.7 


21 
Fig. 4—2 


Page 


27—17 
27—18 
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27-15 
27—16 
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27.18 27—14 
C instruction 
examples 10.6 10—16 | Character representation 
formats 10.6 10—15 alphabetic 24.1 2—5 
operational considerations 10.6 10—16 asterisk 43.1 4—14 
description 24 2—5 
C, type constant 5.2.1 5—8 numeric 2.43 2—6 
special characters 2.44 2—8 
CCW instruction special letters 2.4.2 2—6 
examples 21.6 21—10 
format 21.6 21—9 j Character strings value 4.46 4—19 
Operational considerations 21.6 21—10 
Check-off table 
CD instruction explanation Appendix D 
examples 11.10 11—24 format Appendix D 
formats 11.10 11—23 terms Appendix D 
operational considerations 11.10 11—24 
CL instruction 
CDR instruction examples 12.8 12—20 
examples 11.11 11—26 formats 12.8 12—19 
formats 11.11 11—25 operational considerations 12.8 12—20 
operational considerations 11.11 11—25 
CLC instruction 
CE instruction examples 12.9 12—23 
examples 11.12 11—28 formats 12.9 12—22 
formats 11.12 11—27 operational considerations 12.9 12—23 
operational considerations 11.12 11—28 
Clear channel (CLRCH) instruction 13.3.1 13—7 
CER instruction 
examples 11.13 11—30 | Clear device (CLRDV) instruction 13.3.2 13—8 
formats 11.13 11—29 
operational considerations 11.13 11—29 | CLCL instruction 
example 12.10 12—27 
CH instruction formats 12.10 12—25 
examples 10.8 10—20 programming considerations 12.10 12—26 
formats 10.8 10—19 
operational considerations 10.8 10—20 | CLI instruction 
examples 12.11 12—30 
Channel command word (CCW) See CCW formats 12.11 12—29 
instruction. operational considerations 12.11 12—30 
Character constants (C) CLIS instruction 
padding 5.2.1 5—8 example 12.12 12—37 
truncation 5.2.1 5—8 formats 12.12 12—34 
operational considerations 12.12 12—36 
Character conversion codes 
American Standard Code for Information CLM instruction 
Interchange (ASCII) Table B—1 B—1 example 12.13 12—41 
Table B—3 B—3 formats 12.13 12—39 
Extended Binary Coded Decimal operating considerations 12.13 12—40 
Interchange Code (EBCDIC) Table B—2 B—2 
Table B—3 B—3 CLR instruction 
punched card Table B—3 B—3 example 12.14 12—43 . 
formats 12.14 12—42 
operational considerations 12.14 12—43 
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Term 


CLRCH instruction 

CLRDV instruction 

CNOP directive 
examples 


format 


Code generation, repetitive 


CODEDIT section, listing content 


Code an assembler program 


COM directive 
examples 
format 


Comments field, coding form 
examples 
forms 


Comments statement 


Common storage definition (COM) 


directive 


Compare {C) instruction 


Compare (CR) instruction 


Compare (CD) instruction, 
long format 


Compare (CDR) instruction, 
long format 


Compare (CE) instruction, 
short format 


Compare (CER) instruction, 
short format 


Compare and swap under mask 
(CSM) instruction 
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13.3.1 13—7 
13.3.2 13—8 
17.1 17—3 
17.1 17—2 


See repetitive 
code generation 


statements. 

28.3 28—2 
Table 28—1 28—2 
1.1 1—1 
19.1 19—3 
19.1 19—3 
1.1.4 1—9 
1.1.4 1—9 


27.3.3 27—21 


See COM 
directive. 


See C 
instruction. 


See CR 
instruction. 


See CD 
instruction. 


See CDR 
instruction. 


See CE 
instruction. 


See CER 
instruction. 


See CSM 
instruction. 


Term 


Compare decimal (CP) 
instruction 


Compare half word (CH) 
instruction 


Compare logical (CL) 
instruction 


Compare logical (CLC) 
instruction 


Compare logical (CLI) 
instruction 


Compare logical (CLR) 
instruction 


Compare logical characters long 
(CLCL) instruction 


Compare logical immediate and 
skip (CLIS) instruction 


Compare logical characters under 
mask (CLM) instruction 


Complex relocatable expressions 
definition 
examples 
restrictions 


Condition no operation (CNOP) 
directive 


Conditional assembly 
attribute references 
branching 
error messages and comments 
repetitive code generation 
set symbols 
summary 


Conditional assembly control counter 
(ACTR) statement 


Index 6 


Reference Page 





See CP 
instruction. 


See CH 
instruction. 


See CL 
instruction. 


See CLC 
instruction. 


See CLI 
instruction. 


See CLR 
instruction. 


See CLCL 
instruction. 





See CLIS 
instruction. 


See CLM 
instruction. 


443 4—18 
4.43 4—18 
4.43 4—18 


See CNOP 
directive. 


27.5 27—25 
27.2 27—15 
27.3 27—19 
27.4 27—22 
27.1 27—2 
Table 27—1 27-1 


See ACTR & 


statement. 
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Term 


Conditional branch (AIF) 
statement 


Continuation column, coding form 


Control section identification 
(CSECT) directive 


Convert to binary (CVB) 
instruction 


Convert to decimal (CVD) 
instruction 


COPY directive 
example 
format 


Correction deck 
Count attributes 


CP instruction 
examples 
formats 
operational considerations 


CR instruction 
examples 
formats 
operational considerations 


Cross-reference section, listing 
content 


CSECT directive 
examples 
format 


CSM instruction 
example 
formats 
operational considerations 


CVB instruction 
examples 
formats 
operational considerations 
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Reference 


See AIF 
statement. 


1.14 


See CSECT 
directive. 


See CVB 
instruction. 


See CVD 
instruction. 


21.5 
21.5 
F.2 
27.5.5 
9.4 


9.4 
9.4 


10.7 
10.7 
10.7 


28.5 


Page 


21-8 
21—8 


F—5 
27—31 
9—11 


9—10 
9—11 


10—18 
10—17 
10—17 


28—4 


Table 28—3 28—4 


19.2 
19.2 


12.15 
12.15 
12.15 


10.9 
10.9 
10.9 


* 19-6 


19—6 


12—47 
12—44 
12—46 


10—22 
10—21 
10—22 


Term 


CVD instruction 
example 
formats 
operational considerations 


D instruction 
example 
formats 
operational considerations 


D, type constant 
Data area program exceptions 


DC statement 
alignment 
constant specification 
definition 
example 


DD instruction 
examples 
formats 
operational considerations 


DDR instruction 
examples 
formats 
operational considerations 
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Reference 


10.10 
10.10 
10.10 


10.11 
10.11 
10.11 


9.2.12 


Appendix D 


5.1.1 
5.1.1 
5.1.1 
5.1.1 


11.14 
11.14 
11.14 


11.15 
11.15 
11.15 


Page 


10—25 
10—24 
10—25 
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Term 


DE instruction 
examples 
formats 
operational considerations 


Decimal divide, program exception 


Decimal instructions 
add decimal (AP) 
compare decimal (CP} 
divide decimal (DP) 
move with offset (MVO) 
multiply decimal (MP) 
pack decimal (PACK) 
packed decimal manipulation 
subtract decimal (SP) 
unpack decimal (UNPK) 
zero and add (ZAP) 


Decimal overflow, program exception 
Default option, example 


Define branch destination (ANOP) 
statement 


Define end of range (ENDO) 
statement 


Define start of range (DO) 
statement 


Definition-type symbol, DC 
statement 


Definition types 
A character 
B character 
C character 
D character 
E character 
F character 
function 
H character 
P character 
S character 
V character 
Y character 
Z character 


Delete operation code (OPSYM) 
directive 





Reference 


11.16 
11.16 
11.16 


Appendix D 


9.3 
9.4 
9.5 
9.12 
9.14 
9.15 
9.1 
9.16 
9.18 
9.19 


Appendix D 


4.12 


See ANOP 
statement. 


See ENDO 
statement. 


See DO 
statement. 


5.1.1 


9.2.9 
9.2.3 
5.2.1 
5.2.12 
5.2.12 
5.2.7 
aL 
5.2.6 
5.2.4 
5.2.10 
9.2.11 
5.2.8 
5.2.5 


See OPSYM 
directive. 


Page 


11—37 
11—36 
11—36 


9—8 

9—10 
9—13 
9—75 
9—80 
9—82 
9—1 

9—86 
9—95 
9—98 


Term 


DER instruction 
example 
formats 
operational considerations 


Diagnostic section, listing content 


Digit field 
Digit select byte, ED instruction 


Directives 
base register assignment 
basic functions 
control 
input and output control 
listing control 
program linking and sectioning 


Divide (D) instruction 


Divide (DR) instruction 


Divide (DD) instruction, 
long format 


Divide (DDR) instruction, 
long format 


Divide (DE) instruction, 
short format 


Divide (DER) instruction, 
short format 


Divide decimal (DP) 
instruction 


DO statement 
Double word 


DP instruction 
example 
formats 
operational considerations 
program exception 


Index 8 

Update A 
Reference Page 
11.17 11—39 
11.17 11—38 
11.17 11—38 
28:6 * 28—5 
Table 28—4 28—5 
2.43.1 2—6 
9.6.1 9—17 
Section 18 
Table 15—1 15—1 
17.1 17—2 
Section 21 
Section 20 
Section 19 
See D 
instruction. 
See DR 
instruction. 
See DD 
instruction. 
See DDR 
instruction. 
See DE 
instruction. 
See DER 
instruction. 
See DP 
instruction. 
27.4.1 27—22 
2.5 2—9 
9.5 9—14 
9.5 9—13 
95 9—13 
Appendix D 
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é Term Reference Page Term Reference Page 
DR instruction E 
example 10.12 10—32 
formats 10.12 10—31 | £, type constant 5.2.12 5—15 
onerational considerations 10.12 10—31 
EBCDIC Table B—2 B—2 
DROP directive 
examples 18.1 18—2 ED instruction 
format 18.1 18—2 formats 9.6 9—16 
operation summary Table 9—1 9—26 
DS statement operational considerations 96 9—17 
alignment 5.1.7 5—8 
constant specification 5.16 5—7 Edit (ED) instruction See ED 
definition 5.1.1 5—4 instruction. 
definition-type symbol 5.14 5—6 
duplication factor 5.13 5—5 Edit and mask (EDMK) 
examples 5.1.2 5—5 instruction See EDMK 
format 5.1 5—1 instruction. 
length factor (L) 5.1.5 5—6 
EDMK instruction 
DSECT directive example 9.7 9—28 
examples 19.3 19—9 formats 9.7 9—27 
format 19.3 19—8 operational considerations 9.7 9—27 
Dummy control section identification EIO instruction 13.3.3 13—9 
(DSECT) directive See DSECT 
directive. EJECT directive 20.1 20—2 
Duplication factor Ellipsis 4.1.2 4—5 
function 5.13 5—5 
length attribute 4.2.3 4—11 END directive 
zero examples Table 5—2 5—6 examples 17.2 17—4 
format 17.2 17—4 
End-of-data job control statement 
{/*) 29.5.1 29—13 
ENDO statement 
examples 27.4.2 27—23 
format 27.4.2 27—23 
Enqueue 1/0 (EI0) instruction 13.3.3 13—9 
ENTRY directive 
example 19.4 19—10 
format 19.4 19—10 
EQU directive 
examples 16.1 16—2 
format 16.1 16-1 
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Term 


Equate (EQU) directive 


Error messages and comments 
MNOTE message statements 
PNOTE message statements 

EX instruction 
example 
formats 
operational considerations 
program exception 


Exclusive or (X) instruction 


Exclusive or (XC) instruction 


Exclusive or (XI) instruction 


Exclusive or (XR) instruction 


EXD instruction 


Execute (EX) instruction 


Execute diagnose (EXD) instruction 
Execution 
Explicit format coding 


Explicit source code 
examples 
format 


Exponent overflow, program exception 


Exponent underflow 
AD instruction 
ADR instruction 
AE instruction 
AER instruction 
program exception 
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Reference 


See EQU 
directive. 


27.3.1 
27.3.2 


8.8 
8.8 
8.8 
Appendix D 


See X 
instruction. 


See XC 
instruction. 


See XI 
instruction. 


See XR 
instruction. 


13.4.1 


See EX 
instruction. 


13.4.1 

1.4 

72 

7.2 

7.2 
Appendix D 
11.2 

11.3 

11.4 


11.5 
Appendix D 


ASSEMBLER 
Page Term 
Expressions 
absolute term 
character 
complex relocatable 
27—20 declaration 
27—21 definition 
evaluation 
final result 
8—23 intermediate results 
8—20 length attribute 
8—22 relocatable term 


13-16 


13—16 
1—20 


7—6 


11—4 
1i—7 
11—10 
11—13 


External address constants (V) 
padding 
truncating 


External symbol dictionary (ESD) 
listing 


Externally referenced symbol declaration 
(ENTRY) directive 


Externally defined symbol declaration 
(EXTRN) directive 


EXTRN directive 
examples 
format 
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Update B 
Reference 
44 4—16 
444 4—18 
443 4—18 
6.1 6—2 
44 4—16 
44 4—16 
44 4—16 
44 4—16 
445 4—-19 
442 4—17 
5.2.11 5—15 
5.2.11 5—15 
28.4 28—3 


Table 28—2 28—3 


See ENTRY 
directive. 


See EXTRN 
directive. 





19.5 19—11 
19.5 19—11 
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@ Term 


F, type constant 

Field separator byte, ED instruction 
Fill character, ED instruction 
Fixed-point divide, program exception 


Fixed-point instructions 

add (A) 

add (AR) 

add half word (AH) 

add immediate (Al) 

compare (C) 

compare (CR) 

compare half word (CH) 

convert to binary (CVB) 

convert to decimal (CVD) 

divide (D) 

divide (DR) 

general discussion 

load (L) 

load and test (LTR) 
@ load complement (LCR) 

load half word (LH) 

load (LR) 

load multiple (LM) 

load negative (LNR) 

load positive (LPR) 

multiply (M) 

multiply half word (MH) 

multiply (MR) 

shift left double (SLDA) 

shift left single (SLA) 

shift right double (SRDA) 

shift right single (SRA) 

store (ST) 

store half word (STH) 

store multiple (STM) 

subtract (S) 

subtract half word (SH) 

subtract (SR) 


Fixed-point numbers 
description 
formats 


Fixed-point overflow, program exception 


Floating-point addition 
AD instruction 


é ADR instruction 
AE instruction 


AER instruction 
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Reference 


Appendix D 


10.2 

10.3 

10.4 

10.5 

10.6 

10.7 

10.8 

10.9 

10.10 
10.11 
10.12 
10.1 

10.13 
10.15 
10.16 
10.17 
10.14 
10.18 
10.19 
10.20 
10.21 
10.23 
10.22 
10.24 
10.25 
10.26 
10.27 
10.28 
10.29 
10.30 
10.31 
10.33 
10.32 


2.5 
Fig. 2—2 


Appendix A 


11.2 
11.3 
114 
11.5 


Page 


10—7 

10—9 

10—11 
10—13 
10—15 
10—17 
10—19 
10—21 
10—24 
10—27 
10—31 
10—1 

10—33 
10—38 
10—40 
10—42 
10—35 
10—44 
10—50 
10—52 
10—55 
10—61 
10—59 
10—64 
10—67 
10—70 
10—73 
10—76 
10—78 
10—80 
10—83 
10—88 
10—85 


11—3 
11—6 
11—9 
11—12 
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Term 


Floating-point constants (E and D) 
example 
formats 


Floating point divide, program exception 


Floating-point instructions 

add normalized, long format (AD) 
add normalized, long format (ADR) 
add normalized, short format (AE) 
add normalized, short format (AER) 
add unnormalized, short format (AU) 
add unnormalized, short format (AUR) 
add unnormalized, long format (AW) 
add unnormalized, long format (AWR) 
compare, long format (CD) 
compare, long format (CDR) 
compare, short format (CE) 
compare, short format (CER) 
divide, long format (DD) 
divide, long format (DDR) 
divide, short format (DE) 
divide, short format (DER) 
general description 
halve, long format (HDR) 
halve, short format (HER) 
load, long format (LD) 
load, long format (LDR) 
load, short format (LE) 
load, short format (LER) 
load and test, long format (LTDR) 
load and test, short format (LTER) 
load complement, long format (LCDR) 
load complement, short format (LCER) 
load negative, long format (LNDR) 
load negative, short format (LNER) 
load positive, long format (LPDR) 
load positive, short format (LPER) 
multiply, long format (MD) 
multiply, long format (MDR) 
multiply, short format (ME) 
multiply, short format (MER) 
store, long format (STD) 
store, short format (STE) 
subtract normalized, long format (SD) 
subtract normalized, long format (SDR) 
subtract normalized, short format (SE) 
subtract normalized, short format (SER) 
subtract unnormalized, 

long format (SW) 
subtract unnormalized, 

long format (SWR) 
subtract unnormalized, 

short format (SU) 
subtract unnormalized, 

short format (SUR) 
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Reference 


5.2.12 
5.2.12 
Fig. 5—1 


Appendix D 


11.2 

11.3 

11.4 

115 

116 

117 

118 

119 

11.10 
11.11 
11.12 
11.13 
11.14 
11.15 
11.16 
11.17 
11.1 

11.18 
11.19 
11.22 
11.23 
11.24 
11.25 
11.30 
11.31 
11.20 
11.21 
11.26 
11.27 
11.28 
11.29 
11.32 
11.33 
11.34 
11.35 
11.40 
11.41 
11.36 
11.37 
11.38 
11.39 


11.44 
11.45 
11.42 


11.43 


Page 


5—17 
5—15 
5—17 


11—3 

11—6 

11-9 

11—12 
11—15 
11—17 
11—19 
11—21 
11—23 
11—25 
11—27 
11—29 
11—31 
11—34 
11—36 
11—38 
11-1 

11—40 
11—42 
11—48 
11—50 
11—52 
11—54 
11—64 
11—66 
11—44 
11—46 
11—56 
11—58 
11—60 
11—62 
11—68 
11—70 
11—72 
11-74 
11—84 
11—86 
11—76 
11—78 
11—80 
11—82 


11—92 
11—94 
11—88 


11—90 
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Term Reference Page Term Reference Page & 
Floating-point numbers H 
description 2.6 2—9 
format 2.6 2—9 H, type constant 5.2.6 5—11 
Free element list (FEL) 14.6 14—39 | Half word 2.1 2-1 
Full word 2.1 2—1 Half-word address constants (Y) 
padding 5.2.8 5—12 
Full-word address constants (A) truncating 5.2.8 5—12 
padding 5.2.9 5—13 
truncating 5.29 5—13 Half-word fixed-point constants (H} 
padding 5.2.6 5—11 
Full-word fixed-point constants (F) truncating 5.2.6 5-11 
padding 5.2.7 5—12 
truncating 5.2.7 5—12 Halt device (HDV) instruction 13.3.4 13—10 
Halve, long format (HDR) instruction See HDR 
instruction. 
Halve, short format (HER) instruction See HER 
instruction. 
HDR instruction 
example 11.18 11—4] 
formats 11.18 11—40 
operational considerations 11.18 11—40 & 
HDV instruction 13.3.4 13—10 
HER instruction 
example 11.19 11—43 
formats 11.19 11—42 
operational considerations 11.19 11—42 
Hexadecimal constant (X) 
padding 5.2.2 5—9 
truncating 5.2.2 5—9 
G 
‘é Hexadecimal-decimal integer conversion C.1 C—1 
General register privileged instructions 13.8 13—24 
Hexadecimal fractions (approximate values) C.2 C—7 
General registers 3.2 3-3 
Hexadecimal representation 
Generate literal pool (LTORG) description 23 23 
directive See LTORG notation Table 2—2 2-4 
directive. 
; ; HPR instruction 13.2.1 13—2 
Get IORB (GRB) instruction 13.3.8.2 13—14b 
Global set symbols 
examples 27.1.2 27—6 
format 27.1.2 27—5 
GRB instruction 13.3.8.2 13—14b 
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Term 


IC instruction 


ICM instruction 


ICTL directive 
examples 
format 


Implicit format 
coding 
examples 


Implicit source code 
examples 


format 


Include code from a library 
(COPY) directive 


Initial program load (IPL) instruction 


Inline expansion code 
BLANK macro 
function 
generation 
variable 


Input and output control directives 
include code from a library (COPY) 
input format control (ICTL) 
input sequence control (ISEQ) 
produce a record (PUNCH) 
reproduce following record (REPRO) 


Input format control (ICTL directive} 


Input sequence control (ISEQ) directive 


Insert character (IC) instruction 
examples 
formats 
operational considerations 
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Reference Page 


See insert 
character 
instruction. 


See insert 
characters under 
mask instruction. 


21.1 21—3 
21.1 21—2 
73 7—6 
73 7—6 
7.1 7—4 
73 7—6 
73 7—6 
See COPY 

directive. 

13.10.1 

30.3 30—4 
22.1 22—1 
23.1 23-1 
23.1 23—2 
30.3 30—4 
21.5 21—8 
21.1 21—2 
21.2 21—4 
21.4 21—6 
21.3 21—5 
See ICTL 

directive. 

See ISEQ 

directive. 

12.20 12—62 
12.20 12—61 
12.20 12—62 


Term 


Insert characters under mask 


(ICM) instruction 
examples 
formats 


operational considerations 


Insert storage key (ISK) instruction 


instruction 
aligning 
application 
branching 
decimal 
definition 
fixed-point 
floating-point 
logical 
privileged 
RR 
RS 
RX 
Sl 
SM 
SS 
status switching 


Instruction listings 
alphabetic 
machine code 
mnemonics 


Integer attributes 
examples 
function 


IPL instruction 
ISK instruction 


ISEQ directive 
example 
format 


Italics 


Index 13 
Update A 


Reference 


12.21 
12.21 
12.21 


13.2.2 


71 
71 
8.1 
9.1 
74 
10.1 
11.1 
12.1 
13.1 
71 
71 
71 
7.1 
7.1 
7.1 
13.1 


Table E—2 
Table E—3 
Table E—1 


27.5.4 
27.5.4 


13.10.1 
13.2.2 


21.2 
21.2 


4.1.2 


Page 


14 
7-4 


13-1 
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Term 


Job control cards 
end-of-data job control statement 
(/*) 
end-of-job contro! statement (/&) 
terminate-the-card-reader job 
control statement (//FIN) 


Job control procedures 
running an assembler program 
source deck introduction 


JOB control statement 


Keyword parameters 
coding 
referencing in the call 
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Reference 


29.5.1 
29.5.2 


29.5.3 
29.1 
29.2 


29.2.1 


4.1.2 
25.3 
26.3 


Page 


29—13 
29—13 


29—13 
29-1 
29—1 


29—2 


4—6 
25-4 
26—4 
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Term 


L instruction 
example 
formats 
operational considerations 


LA instruction 
examples 
formats 
operational considerations 


Label argument, PROC format 
Label field, coding form 


LCDR instruction 
example 
formats 
operational considerations 


LCER instruction 
example 
formats 
operational considerations 


LCHR instruction 


LCR instruction 
example 
format 
operational considerations 


LCTL instruction 


LD instruction 
example 
formats 
operational considerations 


LDA instruction 


LDR instruction 
example 
formats 
operational considerations 


LE instruction 
example 
formats 
operational considerations 


Least significant bit (LSB) 


Index 14 


Reference 


10.13 
10.13 
10.13 


12.22 
12.22 
12.22 


25.6 
1.1.3 
11.20 


11.20 
11.20 


11.21 
11.21 
11.21 


13.3.5 
10.16 
10.16 
10.16 
13.6.1 
11.22 
11.22 
11.22 
13.3.6 
11.23 


11.23 
11.23 


11.24 
11.24 
11.24 


See LSB. 


Page 


10—34 
10—33 
10—33 


12—68 
12—67 
12—67 


25—12 


11—45 
11—44 
11—44 


11—47 
11—46 
11—46 


13—11 


10—41 
10—40 
10—40 


13—20 


11—49 
11—48 
11—48 


13—12 


11—50 
11—50 
11—50 


11—53 
11—52 
11—52 
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Term 


Leave blank lines on listing 
(SPACE) directive 


Length attribute 
application instruction 
conditional assembly 
duplication factor 
examples 
expressions 
referencing 
terms 


Length factor 
boundary alignment 
L character 


LER instruction 
example 
formats 
operational consideration 


Less than operator 


LH instruction 
example 
formats 
operational considerations 


LIA instruction 


Linkage editor 
creating a load module 
functions 


Listing contents control (PRINT) 
directive 


Listing control directives 
advance listing (EJECT) 
basic functions 
leave blank lines on listing (SPACE) 
listing content control (PRINT) 
listing title declaration (TITLE) 


Listing title declaration (TITLE) 
directive 
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Literals 
See SPACE defined 
directive. 
examples 
5.1.5 5—6 restrictions 
27.5.2 27—28 source code 
4.2.2 4—11 specification 
5.1.5 5—7 
444 4—18 LM instruction 
4.2.5 4—13 examples 
4.2 4—8 formats 
operational considerations 
5.1.5 5—6 LNDR instruction 
5.1.5 5—7 example 
formats 
operational considerations 
11.25 11—54 
11.25 11—54 | LNER instruction 
11.25 11—54 example 
formats 
4.3.3 4-15 operational considerations 
10.17 10—43 
10.17 10—42 
10.17 10—42 
13.3.7 13—13 
1.3 1—18 


29.3.3 29—11 


See PRINT 
directive. 

20.1 20—2 
Table 20—1 20—1 
20.3 20—5 
20.2 20—3 
20.4 20—6 
See TITLE 


directive. 


Index 15 
Update A 


Reference 


42 
4.2.2 
5.3 
5.3 
5.3 
4.2.2 
4.2.2 


10.18 
10.18 
10.18 


11.26 
11.26 
11.26 


11.27 
11.27 
11.27 





Page 


4—8 

4—10 
5—18 
5—19 
5—19 
4—10 
4-11 


10—45 
10—44 
10—45 


11—57 
11—56 
11—56 


11—59 
11—58 
11—58 
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Term 


LNR instruction 

example 

format 

operational considerations 
Load (L) instruction 
Load (LR) instruction 
Load (LD) instruction, long format 
Load (LDR) instruction, long format 
Load (LE) instruction, short format 
Load (LER) instruction, short format 
Load address (LA) instruction 
Load and test (LTDR) instruction, 

long format 


Load and test (LTR) instruction 


Load and test (LTER) instruction, 
short format 


Load complement (LCDR) instruction, 
long format 


Load complement, short format (LCER) 
instruction 


Load complement (LCR) instruction 


Load control (LCTL) instruction 
Load directive address (LDA) instruction 


Load half word (LH) instruction 


Load I/O address (LIA) instruction 
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Reference 


10.19 
10.19 
10.19 


See L 


instruction. 


See LR 


instruction. 


See LD 


instruction. 


See LDR 


instruction. 


See LE 


instruction. 


See LER 


instruction. 


See LA 


instruction. 


See LTDR 


instruction. 


See LTR 


instruction. 


See LTER 


instruction. 


See LCDR 


instruction. 


See LCER 


instruction. 


See LCR 


instruction. 


13.6.1 
13.3.6 


See LH 


instruction. 


13.3.7 





Page 


10—51 
10—50 
10—50 


13—20 


13—12 


13—13 


Term 


Load module, creating 
Load multiple (LM) instruction 


Load negative (LNDR) instruction, 
long format 


Load negative (LNER) instruction, 
short format 


Load negative (LNR) instruction 


Load positive (LPR) instruction 


Load positive (LPDR) instruction, 
long format 


Load positive (LPER) instruction, 
short format 


Load program status word (LPSW) instruction 
Load relocation register (LRR) instruction 


Local set symbol 
examples 
format 


Location counter 
adding 1 
asterisk 
definition 
restrictions 
values 


Index 16 


Reference 


13 


See LM 


instruction. 


See LNDR 


instruction. 


See LNER 


instruction. 


See LNR 


instruction. 


See LPR 


instruction. 


See LPDR 


instruction. 


See LPER 


instruction. 


13.2.3 
13.7.1 


27.1.1 
27.1.1 


4.2.4 
4.2.4 
4.24 
4.2.4 
4.2 





13—22 


13—22 


27—4 
27—3 


4—13 
4—13 
4—12 
4—13 
4—13 
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ASSEMBLER 
a ee 


@ Term Reference Page Term Reference Page 
Logical instructions Low order 4.1.2 4—6 
add logical (AL) 12.2 12—2 
add logical (ALR) 12.3 12—5 Lowercase letters and terms, coding 4.12 4—5 
and (N) 12.4 12—7 
and (NC) 12.5 12—10 | LPDR instruction 
and (Nl) 12.6 12—13 example 11.28 11—61 
and (NR) 12.7 12—16 formats 11.28 11—60 
compare and swap under mask (CSM) 12.15 12—44 operational considerations 11.28 11—60 
compare logical (CL) 12.8 12—19 
compare logical (CLC) 12.9 12—22 | LPER instruction 
compare logical (CLCL) 12.10 12—25 example 11.29 11—63 
compare logical (CLI) 12.11 12—29 formats , 11.29 11—62 
compare logical (CLR) 12.14 12—42 operational considerations 11.29 11—62 
compare logical characters 
under mask (CLM) 12.13 12—39 | LPR instruction 
compare logical immediate example 10.20 10—53 
and skip (CLIS) 12.12 12—34 format 10.20 10—52 
edit (ED) 9.6 9—16 operational considerations 10.20 10—52 
edit and mark (EDMK) 9.7 9—27 
exclusive or (X) 12.16 12—49 | LPSW instruction 13.2.3 13—4 
exclusive or (XC) 12.17 12—52 
exclusive or (XI) 12.18 12—55 | LR instruction 
exclusive or (XR) 12.19 12—58 example 10.14 10—36 
general description 12.1 12—1 format 10.14 10—35 
insert character (IC) 12.20 12—61 operational considerations 10.14 10—35 
@ insert characters under mask (ICM) 12.21 12—64 
load address (LA) 12.22 12—67 | LRC instruction 13.4.2 13—17 
move character (MVC) 9.9 9—63 
move immediate (MVI) 12.23 12—69 {| LRR instruction 13.7.1 13—22 
move numeric (MVN) 9.11 9—72 
move zones (MVZ) 9.13 9—78 LSB 2.1 2-1 
or (0) 12.24 12—72 4.1.2 4—8 
or (OC) 12.25 12—75 
or (01) 12.26 12—78 |} LTDR instruction 
or (OR) 12.27 12—81 example 11.30 11—65 
shift left double logical (SLDL) 12.28 12—84 formats 11.30 11—64 
shift left single logical (SLL) 12.29 12—87 operational considerations 11.30 11—64 
shift logical (SHL} 12.30 12—91 
shift right double logical (SRDL) 12.31 12—99 | LTER instruction 
shift right single logical (SRL) 12.32 12—102 example 11.31 11—67 
store character (STC) 12.33 12—105 formats 11.31 11—66 
subtract logical (SL) 12.35 12—111 Operational considerations 11.31 11—66 
subtract logical (SLR) 12.36 12—114 
test under mask (TM) 12.37 12—117} LTORG directive 17.3 17—5 
test under mask and skip (TMS) 12.38 12—121 
translate (TR) 12.39 12—126} LTR instruction 
translate and test (TRT) 12.40 12—129 example 10.15 10—39 
format 10.15 10—38 
Logical operators 4.3.2 4—15 operational considerations 10.15 10—38 


Longitudinal redundancy check (LRC) 
instruction 13.4.2 13—17 
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Term Reference Page Term Reference Page 
M MACRO format 
basic design 26.1 26—1 
M instruction label argument 26.5 26—6 
example 10.21 10—56 referencing keyword parameters 
formats 10.21 10—55 in the call 26.3 26—4 
operational considerations 10.21 10—56 referencing positional parameters in 
the call 26.2 26—2 
Machine code referencing subparameters in the call 26.4 26—5 
assembler format relationships Fig, 4—1 4-4 ; 
definition 4.1.1 4—] Macro (MACRO) definition See MACRO 
instruction listing Table E—3 E—11 definition. 
purpose 1.2 i—14 
Macro processor 
Macro call instruction inline macro expansion Fig. 22—1 22—3 
call-names 23.3 23—/ *~ $Y$MAC 22.1 22—1 
format 23.3 23—6 
function 22.2 22—3 Macro source code 
keyword parameter 23.3 23—8 example 30.3 30—4 
parameter-list 23.3 23—8 “macro facility 22.2 22—3 
positional parameter 23.3 23—8 -types 22.2 22—3 
$Y$MAC 22.2 22—3 
MACRO definition 
accessing in library Fig. 23—2 23—5 Main computer storage addressing 
accessing in source deck Fig. 23—1 23—4 data field 3.1.2 3—2 
body 23.1 23—1 instruction 3.1.1 3-1 
call-name 23.1 23—2 symbolic 3.1.1 3—1 
call instruction design 24.2 24—2 
examples Fig. 24—4 24—12 | Math tables 
Section 30 hexadecimal-decimal integer 
general 24.1 24—1 conversion C.i C—1 
heading 23.1 23—1 hexadecimal fractions (approximate 
Fig. 24—1 24—1 values) C.2 C—7 
macro instruction and definition, powers of 2 C.3 C—8 
communication Fig. 24—3 24—8 powers of 16 C.4 C—9 
operation 23.1 23—1 
parameter substitution 23.1 23—2 | MD instruction 
PROC and MACRO instructions example 11.32 11—69 
compared Fig. 24—2 24—6 formats 11.32 11—68 
prototype statement 24.2 24—3 operational considerations 11.32 11—68 
storage 23.2 23—3 
trailer 23.1 23—1 MOR instruction 
variable inline expansion code 23.1 23—2 example 11.33 l1l—71 
variable symbol 24.2 24—2 formats 11.33 11—70 
operational considerations 11.33 11—70 
Macro definition exit (MEXIT) 
statement See MEXIT ME instruction 
statement. example 11.34 11—73 
formats 11.34 11—72 
Macro design operational considerations 11.34 11—72 
macro call instruction 23.3 23—6 
macro definition 23.1 23-1 MER instruction 
macro definition storage 23.2 23—3 example 11.35 11—75 
formats 11.35 11—74 
Macro facility operational considerations 11.35 11—74 
processor 22.1 22—1 
source code 22.2 22—2 
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Term 


Message character, ED instruction 
MEXIT statement 


MH instruction 
example 
formats 
operational considerations 


MIO instruction 

Mnemonic 
definition 
instruction listing 
operation code 

MNOTE message statement 


example 
format 


Most significant bit (MSB) 
Move character (MVC) instruction 


Move character long (MVCL) 
instruction 


Move immediate (MVI) instruction 


Move 1/0 (MIO) instruction 
Move numeric (MVN) instruction 


Move with offset (MVO) 
instruction 


Move zones (MVZ) instruction 


MP instruction 
example 
formats 
operational considerations 


MR instruction 
example 
format 
operational considerations 
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Reference Page 


9.6.1 9—20 


27.2.5 27—19 


10.23 10—63 
10.23 10—61 
10.23 10—62 


13.3.8 13—14 


11 1—1 
TableE—1 E—1 
11d 1—5 


27.3.1 27—20 
27.3.1 27—20 


See MSB. 
See MVC 
instruction. 
See MVCL 


instruction. 


See MVI 
instruction. 


13.3.8 13—14 


See MVN instruction. 


See MVO 

instruction. 

See MVZ 

instruction. 

9.13 9—81 
9.13 9—80 
9.13 9—81 
10.22 10—60 
10.22 10—59 
10.22 10—59 


Term 


MSB 


Multiple options, coding 


Multiply (M) instruction 


Multiply (MR) instruction 


Multiply, long format (MD) 
instruction 


Multiply, long format (MDR) 
instruction 


Multiply, short format (ME) 
instruction 


Multiply, short format (MER) 
instruction 


Multiply decimal (MP) 
instruction 


Multiply half word (MH) 


MVC instruction 
examples 
formats 
operational considerations 


MVCL instruction 
examples 
formats 
operational considerations 


MVI instruction 
examples 
formats 
operational considerations 


Index 19 
Update A 


Reference 


2.1 
4.12 


4.12 


See M 


instruction. 


See MR 


instruction. 


See MD 


instruction. 


See MDR 


instruction. 


See ME 


instruction. 


See MER 


instruction. 


See MP 


instruction. 


See MH 


instruction. 


9.9 
9.9 
9.9 


9.10 
9.10 
9.10 


12.23 
12.23 
12.23 


Page 


9—64 
9—63 
9—63 


9—69 
9—6/ 
9—68 


12—70 
12—69 
12—70 
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Term Reference Page Term Reference Page & 
MVN instruction 
examples 9.11 9—73 
formats 9.11 9—72 N instruction 
operational considerations 9.11 9—72 examples 12.4 12—8 
formats 12.4 12—7 
MVO instruction operational considerations 12.4 12—8 
examples 9.12 9—76 
formats 9.12 9—75 NC instruction 
operational considerations 9.12 9—75 example 12.5 12—11 
formats 12.5 12—10 
MVZ instruction operational considerations 12.5 12—11 
examples 9.13 9—79 
formats 9.13 9—78 NI instruction 
operational considerations 9.13 9—78 examples 12.6 12—14 
formats 12.6 12—13 
operational considerations 12.6 12—14 
Normalization 
AD instruction 11.2 11—3 
ADR instruction 11.3 11—6 
AE instruction 11.4 11—9 
AER instruction 11.5 11—12 
NR instruction 
example 12.7 12—17 
formats 12.7 12—16 
operational considerations 12.7 12—17 
Number attributes 
example 27.5.6 27—32 
function 27.5.6 27—32 
Numeric data, comparison Table 2—1 2—2 
Numeric representation 
packed format 2.4.3.2 2—7 
unpacked format 2.4.3.1 2—6 











UP-8913 SPERRY UNIVAC 0S/3 index 21 
ASSEMBLER 
Term Reference Page Term Reference Page 
OPTION job control statement 29.2.2 29—2 
0 instruction Option-specifying operands F.1 F—1 
example 12.24 12—73 
formats 12.24 12—72 | Optional information, coding 4.1.2 4—5 
operational considerations 12.24 12—73 
OR, bit comparison 4.3.2 4—15 
Object code 
example 1.2 1—14 OR instruction 
format 1.2 1—14 example 12.27 12—82 
formats 12.27 12—81 
Object module format Fig, 1—9 1—18 operational considerations 12.27 12—82 
Object program Or (0) instruction See 0 
definition 4.1.2 4—5 instruction. 
general 1.2 1—14 
Or (OC) instruction See OC 
OC instruction instruction. 
example 12.25 12—76 
formats 12.25 12—75 | Or (Ol) instruction See OI 
operational considerations 12.25 12—76 instruction. 
Ol instruction ORG directive 
examples 12.26 12—80 examples 17.4 17—7 
formats 12.26 12—78 format 17.4 17—6 
operational considerations 12.26 12—79 function 17.4 17—6 
Operand field, coding form 1.1 1—4 Organization of listing 
CODEDIT 28.3 28—2 
Operand length, ED cross-reference 28.5 28—4 
instruction 9.6 9—16 diagnostic 28.6 28—5 
example 29.6 29—14 
Operation, program exception Appendix D external symbol dictionary (ESD) 28.4 28—3 
preface 28.2 28—1 
Operation field, coding form 1.1.1 1—4 
0S/3 Assembler 1.1 1-1 
Operators 
arithmetic 4.3.1 4—14 Output, assembly listing Section 28 
description 43 4—13 
logical 4.3.2 4—15 
priority Table 27—2 27—9 
relational 4.3.3 4—15 
summary Table 4—2 4—14 
OPSYM directive 
examples 16.2 16—3 
format 16.2 16—3 
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ASSEMBLER Update B 
Term Reference Page Term Reference Page 
PROC definition 
call instruction design 24.2 24—2 
P type constant 5.2.4 5—10 examples Fig. 24—4 9=24—12 
30.2 30—2 
Pack decimal (PACK) general 24.1 24—1 
instruction See PACK MACRO and PROC instruction 
instruction. compared Fig. 24—2 24—6 
macro instruction and definition, 
PACK instruction communication Fig. 24—3 24—8 
examples 2.4.3.2 9] variable symbol 24.2 24—2 
9.15 9—82 
formats 9.15 9—82 PROC format 
operational considerations 9.15 9—83 basic design 25.1 25—1 
packed format conversion 2.4.3.2 2—7 label argument 25.6 25—11 
multiple PROC names and 
Packed decimal constant (P) positional parameter 0 25.5 25—9 
padding 9.2.4 5—10 referencing keyword parameters 
truncation 5.2.4 5—10 in the call 25.3 25—4 
referencing positional parameters 
PARAM statement in the call 25.2 25—3 
format F.1 F—2 referencing subparameters in 
function Fl F—1 the call 25.4 25—7 
operational considerations F.2 F—5 
Procedure (PROC) definition See PROC 
PNOTE message statement 27.3.2 27—21 definition. 
Positional parameter 0 Produce a record (PUNCH) 
description 25.5 25—9 directive See PUNCH 
example 30.1 30-1 directive. 
Positional parameters Program end (END) directive See END 
coding 4.1.2 4—6 directive. 
comma 4.1.2 4—6 
referencing in the call 25.2 25—3 Program exceptions 
26.2 26—2 addressing Appendix D 
data Appendix D 
Powers decimal divide Appendix D 
of 2 C.3 C—8 decimal overflow Appendix D 
of 16 C.4 c—9 execute Appendix D 
oes exponent overflow Appendix D 
Preface section of listing 28.2 28—1 exponent underflow Appendix D 
ar fixed-point divide Appendix D 
PRINT directive fixed-point overflow Appendix D 
format 20.2 20—3 floating-point divide Appendix D 
examples 20.2 20—4 operation Appendix D 
- ; ; protection Appendix D 
Privileged instructions, status 13.1 13-1 significance Appendix D 
specification Appendix D 
PRB instruction 13.3.8.1 13—14a 
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© Term 


Program linking and sectioning directives 
common storage definition (COM) 
control section identification 
(CSECT) 

dummy control section identification 
(DSECT) 

externally defined symbol declaration 
(ENTRY) 


externally referenced symbol 
declaration (EXTRN) 


Program start (START) directive 


Program status word (PSW) 
Protection program exception 
PSW 
PUNCH directive 

example 

format 
Punched card codes 


Punctuation marks, coding 


Put !ORB (PRB) instruction 
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Reference 


19.1 
19.2 
19.3 


19.4 


19.5 


See START 
directive. 


See PSW. 
Appendix D 
8.1 

21.4 

21.4 

Table B—3 
4.1.2 


13.3.8.1 


Page Term 
R 
19—3 
Reading instruction notation 
19—6 assembler application instruction 
rules and meanings 
19—8 
REC statement 
19—10 format 
operational consideration 
19—11 
Register instruction equate 
instruction 
Register notations, example 
Relational operators 
Relative addressing, location 
g—1 counter 
Relocatability attribute 
21—7 
21—6 | Relocatable expression 
absolute terms 
B—3 definition 
examples 
4—5 relocatable term 
requirements 
13—14a 


Relocatable term 
absolute expression 
division 
expression 
multiplication 


Repetitive code generation statements 
conditional assembly control 
counter (ACTR) 
define end of range (ENDO) 
define start of range (DO) 


REPRO directive 
example 
format 
Reproduce following record 
(REPRO) directive 
Reset (RESET) instruction 
RR instruction 
Running an assembler program 


examples 
using job control 


RS instruction 


Index 23 
Update B 


Reference 


4.1.1 
4.12 


F.2.2 
F.2.2 


6.1 
4.1.2 


4.3.3 


4.24 


4.4.2 
4.4.2 
4.4.2 
4.4.2 
4.4.2 


4.41 
4.4 
4.4 
4.4 


27.4.3 
27.4.2 
27.4.1 


21.3 
21.3 


See REPRO 
directive. 
13.4.3 

7.1 

29.6.1 

29.1 


71 


Page 


4—1 
4—5 


4—15 


4—12 


4—11 


4—17 
4—17 
4—18 
4—17 
4—17 


4—16 
4—16 
4—16 
4—16 


27—24 
27—23 
27—22 


21—5 
21—5 


13—18 


29—14 
29—1 
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ASSEMBLER 
Term Reference Page Term Reference Page & 
Service timer register 
(STR) instruction 13.5.1 13—19 
S instruction 
example 10.31 10—84 | Set program mask (SPM) 
formats 10.31 10—83 instruction See SPM 
operational considerations 10.31 10—83 instruction. 
S switch, ED instruction 9.6 9—17 SET statement 
examples 27.1.4 27—9 
S, type constant 5.2.10 5—13 format 27.1.4 2/—7 
function 27.1.3 27—6 
Sample program Appendix A 27.1.4 27—6 
operator priority Table 27—2 27—9 
Scale attribute 27.5.3 27—30 
Set storage key (SSK) instruction 13.2.4 13—5 
SD instruction 
example 11.36 11—77 | SET symbols 
formats 11.36 11—76 character expressions 27.1.8 27—14 
operational considerations 11.36 11—77 function 27.1 27—2 
global 27.1.2 27—5 
SDR instruction local 27.1.1 27—3 
example 11.37 11—79 SET statement 27.1.4 27—7 
formats 11.37 11—78 SETA statement 27.1.5 27—9 
Operational considerations 11.37 11-78 SETB statement 27.1.6 27—10 
SETC statement 27.1.7 27—13 
SDT subscripted 27.1.9 27-14 
binary conversion 4.2.1 4—9 value assignment 27.1.3 27—6 
character 4.2.1 4—9 
decimal 4.2.1 4—9 Set system mask (SSM) instruction 13.2.5 13—6 
hexadecimal 4.2.1 4—9 
meaning 4.2 4-9 SETA statement 
4.2.1 4—9 examples 27.1.5 27—10 
negative term 4.2.1 4—10 format 27.1.5 27/—9 
use 4.2.1 4-9 
SETB statement 
SDV instruction 13.3.9 13—14 examples 27.1.6 27—13 
format 27.1.6 27—10 
SE instruction 
example 11.38 11—81 | SETC statement 
formats 11.38 11—80 examples 27.1.7 27—14 
Operational considerations 11.38 11—81 format 27.1.7 27—13 
Self-defining terms (SDT) See SDT. Setting of UPSI byte 29.5.4 29—14 
SEQ statement SH instruction 
format F.2.1 F—6 example 10.33 10—89 
operational considerations F.2.1 F—6 formats 10.33 10—88 
specifications F.2.1 F—6 operational considerations 10.33 10—89 
Sequence field, coding form 1.1.3 1—9 Shaded option 4.1.2 4—5 
Sequence symbols 27.2.1 27—15 | Shift and round decimal 
(SRP) instruction See SRP 
SER instruction instruction. 
example 11.39 11—83 
formats 11.39 11—82 
operational considerations 11.39 11—82 
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Term 


Shift left double (SLDA) 
instruction 


Shift left double logical (SLDL) 
instruction 


Shift left single (SLA) 
instruction 


Shift left single logical 
(SLL) instruction 


Shift logical (SHL) instruction 


Shift right double (SRDA) 
instruction 


Shift right double logical (SRDL) 
instruction 


Shift right single logical (SRL) 
instruction 


Shift right single (SRA) 
instruction 


SHL instruction 
example 
formats 
operational considerations 


SI instruction 


Sign consideration for operand 2, 
ED instruction 


Signed unpacked number 


Significance, program exception 


Significance start byte, ED 
instruction 


SKI statement 
format 
function 
operational considerations 
specifications 
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Reference Page 


See SLDA 
instruction. 


See SLDL 
instruction. 


See SLA 
instruction. 


See SLL 
instruction. 
See SHL 


instruction. 


See SRDA 
instruction. 


See SRDL 
instruction. 


See SRL 
instruction. 


See SRA 
instruction. 


12.30 12—95 
12.30 12—91 
12.30 12—94 


71 7-1 


9.6.1 9—17 


See zoned 
decimal constants. 


Appendix D 

9.6 9—17 
F.2.3 F—8 
F.2.3 F—7 
F.2.3 F—8 
F.2.3 F—8 


Term 


SL instruction 
example 
formats 
operational considerations 


SLA instruction 
example 
formats 
operational considerations 


SLDA instruction 
example 
formats 
operational considerations 


SLDL instruction 
example 
formats 
operational considerations 


SLL instruction 
example 
formats 
operational considerations 


SLM instruction 
example 
formats 


SLR instruction 
example 
formats 
operational considerations 


SM instruction 


Source card images 
definition 
general 


Source code 
literals 
PROC (DO loop) 
PROC (positional parameter 0) 


Source deck 
definition 
job contro! cards 
requesting an assembly 


Source deck introduction 
JOB control statement 
OPTION job control statement 


Source module correction routine 
control statements 
correction deck 
REC statement 
SEQ statement 
SKI statement 


Index 25 
Update B 


Reference 


12.35 
12.35 
12.35 


10.25 
10.25 
10.25 


10.24 
10.24 
10.24 


12.28 
12.28 
12.28 


12.29 
12.29 
12.29 


13.8.1 
13.8.1 


12.36 
12.36 
12.36 


71 


42.2 
30.2 
30.1 


4.1.2 
29.5 
29.6 


29.2.1 
29.2.2 


F.2 
F.2 
F.2.2 
F.2.1 
F.2.3 


Page 


12—112 
12—111 
12—112 


10—69 
10—67 
10—68 


10—65 
10—64 
10—64 


12—85 
12—84 
12—85 


12—88 
12—87 
12—88 


13—24 
13—24 


12—115 
12—114 
12—114 


7-1 


i 


4—10 
30—2 
30—1 


4—6 
29—12 
29—14 


29—-2 
29—2 


F—5 
F—5 
F—7 
F—6 
F—7 
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Term Reference Page Term Reference Page @ 





Source program 
general 
meaning 


SP instruction 
examples 
formats 
operational considerations 


SPACE directive 
examples 
format 


Special characters 
Special letters 
Specification, program exceptions 


Specify location counter 
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